[Ex] Contrôler les couleurs de votre GUI après compilation du script

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Numeric
Niveau 5
Niveau 5
Messages : 106
Enregistré le : mer. 23 mars 2016 08:17
Status : Hors ligne

[Ex] Contrôler les couleurs de votre GUI après compilation du script

#1

Message par Numeric » dim. 15 mai 2016 01:41

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

 AutoIt Version : 3.3.14.2
 Auteur:         Numeric

 Fonction du Script : Controler les couleurs GUI apres compilation du script
        Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("GUIDesign by Numeric", 679, 438, 192, 124)

Global $Label1 = GUICtrlCreateLabel("I love AutoIt", 264, 40, 190, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")

Global $Button1 = GUICtrlCreateButton("Valider", 56, 320, 155, 57)
Global $Edit1 = GUICtrlCreateEdit("", 400, 104, 241, 241)
GUICtrlSetData(-1, "")

Global $Group1 = GUICtrlCreateGroup("Options", 40, 96, 185, 169)

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $FichierIni = @ScriptDir&"\Design.ini"

If Not FileExists($FichierIni) Then

                IniWrite($FichierIni,"design","0xBFCDDB","0xBFCDDB")
                IniWrite($FichierIni,"design","0x800080","0x800080")
                IniWrite($FichierIni,"design","0x808000","0x808000")
                IniWrite($FichierIni,"design","0x3399FF","0x3399FF")
                IniWrite($FichierIni,"design","0x00FF00", "0x00FF00")
Else
                 _GUIDesign($Form1)

EndIf







While 1


 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $Form1
  Case $Form1
  Case $Form1
  Case $Form1
  Case $Label1
  Case $Button1
  Case $Edit1
 EndSwitch
WEnd

Func _GUIDesign($GUI_ID = Default)

        Local $GUIDesign, $i, $GUIColor, $controlColor1, $controlColor2, $controlColor3, $controlColor4

    If $GUI_ID = Default Then $GUI_ID = $Form1

        $GUIDesign = IniReadSection($FichierIni,"design")

       
        For $i = 1 To $GUIDesign[0][0] Step 1

                Sleep(1000)

                $GUIColor = GUISetBkColor($GUIDesign[$i][0], $GUI_ID)

                $controlColor = GUICtrlSetBkColor($Button1,$GUIDesign[$i-1][0])

                If $i > 2 Then
                $controlColor2 = GUICtrlSetBkColor($Edit1, $GUIDesign[$i-2][0])
                EndIf

         If $i > 3 Then
                $controlColor3 = GUICtrlSetBkColor($Label1, $GUIDesign[$i-3][0])
                EndIf

                 If $i > 4 Then
                $controlColor4 = GUICtrlSetBkColor($Group1,$GUIDesign[$i-4][0])
                EndIf

        Next

EndFunc
De 0 et 1 vers les étoiles , tout part du Binaire, Numeric

Répondre