[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 : 126
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 »

#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