[Ex] Sélécteur d'apparances (multi-langues)

[DJSIR]

Je laisse cette version disponible malgré qu'elle soit OUTDATED
Cet utilitaire est maintenant inclus a iSafari.

Je vais vous présenter un futur composant de iSafari, le sélécteur d'apparance.

Je le met ici, parce que j'ai envie de le partager pour recevoir des commentaires, et des idées d'améliorations (et peut être une meilleure traduciton de l'anglais ).

C'est quoi ?
Le sélécteur d'apparance est un des futurs composants de iSafari 3.0, la nouvelle version. Celui, ci permet de laisser à l'utilisateur le choix des graphiques et des images. Il est multi-langue, basé sur la fonction Translate.
Le sélécteur d'apparances fonctionne avec le principe du copier/coller.

Comment ça marche
Trop compliqué a expliquer :

► Afficher le textescript

Code : Tout sélectionner

#Region
#AutoIt3Wrapper_Icon=icons\Selector.ico
#AutoIt3Wrapper_Outfile=output\selector.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Permet de changer d'apparance pour iSafari 3.0
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.1.1
    Author:         DJSIR

    Notes :
        Si vous veniez a modifier ce script, merci de laisser le nom de l'auteur.

    Script Function:
        Permet de changer l'apparance de iSafari via les skins (version bêta).

#ce ----------------------------------------------------------------------------

;Includes
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include "includes\FileListToArrayEx.au3"
#include "includes\isafari_functions.au3"

SendReport("Execution du logiciel")

;Variables
;Langue "vide" ou english
$lang = IniRead("config.isaf", "config", "lang", "")

SendReport("Création GUI et Controles")
;Création de la GUI
GUICreate(Translate("Veuillez séléctionnner une apparance"), 400, 180)

GUICtrlCreateIcon(@ScriptDir & "\icons\selector.ico", 1, 55, 3, 50, 50)
GUICtrlCreateLabel(Translate("Sélécteur d'apparances"), 120, 14, 1000, 25)
GUICtrlSetFont(-1, 15, -1, -1, "Verdana")

SendReport("Execution de la commande _FileListToArrayEx")

$avArray = _FileListToArrayEx(@ScriptDir & "\skins\", "*.ini", 0, "current", True)
$avArray_MAX = _ArrayMax($avArray, 1, 0)
$info = GUICtrlCreateLabel( Translate("Nom") & " :" & @CRLF & Translate("Auteur") & " :" & @CRLF & Translate("Version") & " :", 10, 130, 75, 200)
GUICtrlSetState($info, $GUI_DISABLE)
$valid = GUICtrlCreateButton(Translate("Choisir cette apparance"), 190, 130, 200, 40)
$l_skin = GUICtrlCreateList("", 10, 60, 380, 70)

For $i = 1 To $avArray_MAX
    $valeur = IniRead($avArray[$i], "skin", "name", "")
    GUICtrlSetData($l_skin, $valeur)
Next

GUISetState()

SendReport("Lancement de la boucle")

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $valid Then
        $l_skine = GUICtrlRead($l_skin)
        If $l_skine = "" Then
            MsgBox(0, Translate("Erreur"), Translate("Vous n'avez choisi aucune apparance a appliquer. Veuillez en séléctionner une."))
        Else
            GUICtrlSetData($valid, Translate("Veuillez patienter..."))
            DirCopy(@ScriptDir & "\skins\" & $l_skine, @ScriptDir & "\skins\Current", 1)
            GUICtrlSetData($valid, Translate("Terminé"))
            Sleep(1000)
            SendReport("Changement d'apparance efféctuée avec succes")
            Exit
        EndIf
    EndIf
WEnd

Func SendReport($report)
    _SendData($report, "iSafari-Reporter")
EndFunc

Func Translate($txt)
    Return IniRead("lang.isaf", $lang, $txt, $txt)
EndFunc

Screens

grace a neo2606

Changelog

1.2 :
Ajout du Néerlandais (fusion avec iSafari)

1.1 :
Ajout de l'anglais
Ajout d'un logo
1.0 :
Première version

[neo2606]

Il est tout a fait bien ce sélecteur d'apparences.

Voudrais tu aussi avoir la version en néerlandais Je peux la faire sans problème
Il me faudra moins de 2 minutes pour te donner la version NL du sélecteur.

[DJSIR]

Rendez-vous sur le sujet officiel d'iSafari