AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Math.au3>
#include <ButtonConstants.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 80, 56, 81, 49, $WS_GROUP)
$Input1 = GUICtrlCreateInput("Input1", 200, 64, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $1=_ChooseColorRGB()
            Sleep(6000)
            GUICtrlSetData($Input1,$1)

    EndSwitch
WEnd

Func _ChooseColorRGB($iColorRef = 0, $hWndOwnder = 0)
;
Local $tcc, $tChoose, $color_picked, $iResult
;
$tChoose = DllStructCreate($tagCHOOSECOLOR)
$tcc = DllStructCreate("int[16]")
$iColorRef = Hex(String($iColorRef), 6)
$iColorRef = '0x' & StringMid($iColorRef, 5, 2) & StringMid($iColorRef, 3, 2) & StringMid($iColorRef, 1, 2)
DllStructSetData($tChoose, "Size", DllStructGetSize($tChoose))
DllStructSetData($tChoose, "hWndOwnder", $hWndOwnder)
DllStructSetData($tChoose, "rgbResult", $iColorRef)
DllStructSetData($tChoose, "CustColors", DllStructGetPtr($tcc))
DllStructSetData($tChoose, "Flags", BitOR($__MISCCONSTANT_CC_ANYCOLOR, $__MISCCONSTANT_CC_FULLOPEN, $__MISCCONSTANT_CC_RGBINIT))
$iResult = DllCall("comdlg32.dll", "long", "ChooseColor", "ptr", DllStructGetPtr($tChoose))
$color_picked = Hex(String(DllStructGetData($tChoose, "rgbResult")), 6)
Return '0x' & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2)
;
EndFunc