AutoIt Français

Et pour la couleur, j'ai trouvé sa :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

interfaceGui()

Func interfaceGui()
        Local $n, $msg, $start_ini_path
        $start_ini_path = "parametres.ini"
       
        If FileExists($start_ini_path) Then
            ;OK
        Else
            ;Pas de fichier start.ini : on sort
            MsgBox(4096, "iSafari OPTIONS", "Le fichier de configuration n'a pu être trouvé !" & @CRLF & "Pour plus d'informations, rendez-vous dans les rubriques d'aide de iSafari.")
            Exit
        EndIf
       
        GUICreate("iSafari OPTIONS", 400, 270, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)  ; will create a dialog box that when displayed is centered

        ;GUISetBkColor(0xE0FFFF)
        GUICtrlCreateLabel("Couleur du naviguateur :", 10, 10, 200)
        GUICtrlSetFont(-1, 10, 800)
       
        $pic1 = GUICtrlCreatePic("FramaKiosk.jpg", 10, 40, 150, 94)
        $pic2 = GUICtrlCreatePic("FramaSuite.jpg", 210, 40, 150, 94)
       
        $radio1 = GUICtrlCreateRadio("Normal", 10, 140, 180, 20)
        $radio2 = GUICtrlCreateRadio("Graphite", 210, 140, 150, 20)
       
        if IniRead($start_ini_path,"Couleur","couleur", "NotFound") = "normal" Then ;
            GUICtrlSetState($radio1, $GUI_CHECKED)                                  ;
        Else                                                                        ;
            GUICtrlSetState($radio1, $GUI_CHECKED)                                  ;
        Endif
               
        $Button_OK = GUICtrlCreateButton("OK", 130, 200, 60)
        $Button_Cancel = GUICtrlCreateButton("Annuler", 200, 200, 60)
       
        GUISetState()

        ; Run the GUI until the dialog is closed
        While 1
            $msg = GUIGetMsg()
           
            Select
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop
                Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                    ;MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is Checked.')
                Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                    Case $msg = $Button_OK
                    ; l'utilisateur a validé son choix : au boulot
                   
                    if BitAND(GUICtrlRead($radio1), $GUI_CHECKED) Then ; l'utilisateur veut le kiosk classique
                        IniWrite($start_ini_path,"Couleur","couleur","normal")
                        Else
                        EndIf

                   
                    if BitAND(GUICtrlRead($radio2), $GUI_CHECKED) Then ; l'utilisateur veut le menu asuite
                        IniWrite($start_ini_path,"Couleur","couleur","graphite")
                        Else
                    EndIf
                   
                    MsgBox(64, "iSafari OPTIONS", "Les changements ne seront pris en compte qu'au prochain démarrage de iSafari.")
                    ExitLoop
                Case $msg = $Button_Cancel
                    ExitLoop
            EndSelect
        WEnd
       
        GUIDelete()
    EndFunc   ;==>interfaceGui