#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
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