.
Code : Tout sélectionner
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <ListviewConstants.au3>
#include <GuiComboBoxEx.au3>
$Debug_CB = False
Global $HEX = "", $couleurSouris, $Couleurslt = 0
Global $CouleurEX_RGB[1000], $CouleurEX_BGR[1000], $CouleurROUGE[1000], $CouleurVERT[1000], $CouleurBLEU[1000]
Global $txtRouge, $txtVert, $txtBleu, $lblCodeHexa, $lblCouleur
Global $GUI, $img, $hCombo, $hImage
Global $inputRGB, $inputBGR, $inputROUGE, $inputVERT, $inputBLEU
Couleur()
Func Couleur()
$GUI = GUICreate("couleurs Hacker",720,370,-1,-1,$WS_SYSMENU)
Opt("GUIOnEventMode", 1)
GUICtrlCreateGroup (" Aperçu : ", 10,5, 290, 130)
GUICtrlCreateLabel("Code RGB : ",20,25,60)
GUICtrlCreateLabel("Rouge : ",30,45,40)
GUICtrlSetColor(-1,0xff0000)
$txtRouge = GUICtrlCreateLabel("0",75,45,30)
GUICtrlCreateLabel("Vert : ",30,65,40)
GUICtrlSetColor(-1,0x00ff00)
$txtVert = GUICtrlCreateLabel("0",75,65,30)
GUICtrlCreateLabel("Bleu : ",30,85,40)
GUICtrlSetColor(-1,0x0000ff)
$txtBleu = GUICtrlCreateLabel("0",75,85,30)
GUICtrlCreateLabel("Code Hex : ",20,112,100)
$lblCodeHexa = GUICtrlCreateLabel("",90,112,70, 21)
$lblCouleur = GUICtrlCreateLabel("",160,25,130,100)
GUICtrlSetBkColor($lblCouleur,0x000000)
$img = GUICtrlCreatePic("palete.bmp",305,7,400,328)
GUICtrlCreateGroup (" Slectionner votre couleur : ", 10,140, 290, 190)
$hCombo = _GUICtrlComboBoxEx_Create ($GUI, "", 20, 170, 70, 150)
GUISetState()
$hImage = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_Add ($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo, 0x000000, 16, 16))
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)
_GUICtrlComboBoxEx_AddString ($hCombo, "1", 0, 0)
$CouleurEX_RGB[0] = "0x000000"
$CouleurEX_BGR[0] = "0x000000"
$CouleurROUGE[0] = 0
$CouleurVERT[0] = 0
$CouleurBLEU[0] = 0
GUICtrlCreateLabel("RGB :", 100, 174, 40)
$inputRGB = GUICtrlCreateInput("", 160, 170, 120)
GUICtrlCreateLabel("BGR :", 100, 204, 40)
$inputBGR = GUICtrlCreateInput("", 160, 200, 120)
GUICtrlCreateLabel("ROUGE :",100, 234, 40)
$inputROUGE = GUICtrlCreateInput("", 160, 230, 120)
GUICtrlCreateLabel("VERT :",100, 264, 40)
$inputVERT = GUICtrlCreateInput("", 160, 260, 120)
GUICtrlCreateLabel("BLEU :",100, 294, 40)
$inputBLEU = GUICtrlCreateInput("", 160, 290, 120)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
_GUICtrlComboBox_SetCurSel($hCombo, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
HotKeySet("+!s", "stop")
While 1
$pos = MouseGetPos()
$couleurSouris = PixelGetColor($pos[0],$pos[1])
If $HEX <> Hex($couleurSouris, 6) Then
$HEX = Hex($couleurSouris, 6)
GUICtrlSetBkColor($lblCouleur, "0x"&Hex($couleurSouris, 6))
GUICtrlSetData($lblCodeHexa, "0x"&Hex($couleurSouris, 6))
GUICtrlSetData($txtRouge, Dec(StringLeft(Hex($couleurSouris, 6) ,2)))
GUICtrlSetData($txtVert, Dec(StringMid(Hex($couleurSouris, 6), 3, 2)))
GUICtrlSetData($txtBleu, Dec(StringRight(Hex($couleurSouris, 6), 2)))
EndIf
GUICtrlSetData($inputRGB, $CouleurEX_RGB[_GUICtrlComboBox_GetCurSel($hCombo)])
GUICtrlSetData($inputBGR, $CouleurEX_BGR[_GUICtrlComboBox_GetCurSel($hCombo)])
GUICtrlSetData($inputROUGE, $CouleurROUGE[_GUICtrlComboBox_GetCurSel($hCombo)])
GUICtrlSetData($inputVERT, $CouleurVERT[_GUICtrlComboBox_GetCurSel($hCombo)])
GUICtrlSetData($inputBLEU, $CouleurBLEU[_GUICtrlComboBox_GetCurSel($hCombo)])
WEnd
EndFunc
Func stop()
$Couleurslt = $Couleurslt + 1
$CouleurEX_RGB[$Couleurslt] = "0x"&Hex($couleurSouris, 6)
$CouleurEX_BGR[$Couleurslt] = "0x"&StringRight(Hex($couleurSouris, 6), 2)&StringLeft(StringRight(Hex($couleurSouris, 6), 4), 2)&StringLeft(Hex($couleurSouris, 6), 2)
$CouleurROUGE[$Couleurslt] = Dec(StringLeft(Hex($couleurSouris, 6) ,2))
$CouleurVERT[$Couleurslt] = Dec(StringMid(Hex($couleurSouris, 6), 3, 2))
$CouleurBLEU[$Couleurslt] = Dec(StringRight(Hex($couleurSouris, 6), 2))
_GUIImageList_Add ($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo, "0x"&Hex($couleurSouris, 6), 16, 16))
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)
_GUICtrlComboBoxEx_AddString ($hCombo, $Couleurslt+1, $Couleurslt, $Couleurslt)
_GUICtrlComboBox_SetCurSel($hCombo, $Couleurslt)
GUISetState()
EndFunc
Func quitter()
Exit
EndFunc
Voici le Fichier : Palete.Bmp
