[R] Palette de couleur

[bromy]

Bonjour,

J'aimerais savoir si il est possible d'ajouter une palette de couleur sur une interface graphique sur AutoIt
Et quand je cliquerais sur une des couleurs de la palette, que le script retienne cette couleur pour une autre utilisation par la suite ? Je sais pas si j'ai etais tres clair, si vous comprennez pas j'essayerais de mieux expliquer x)

Bonne soirée
Bromy

[TT22]

Est-ce que cela te convient ?

Couleur.zip

(30.8 Kio) Téléchargé 126 fois

Les couleurs sont contenus dans les variables : $Color_Left (si l'utilisateur à choisis la couleur en cliquant sur le bouton gauche de la souris) et $Color_Right (si l'utilisateur à choisis la couleur en cliquant sur le bouton droite de la souris).

Edit : Voici une petite amélioration du Script :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <Misc.au3>

$Color_Left = 0x000000
$Color_Right = 0xFFFFFF
$Last_Left = "000000"
$Last_Right = "FFFFFF"

$gui = GUICreate("Couleur",500,300)
$Pic = GUICtrlCreatePic(@ScriptDir&"\palette.bmp",200,90,126,126)
$Label0 = GUICtrlCreateLabel("Couleur Gauche :", 10,10,100,20)
$input1 = GUICtrlCreateInput(Hex($Color_Left,6),100,8,50,20)
$label1 = GUICtrlCreateLabel("",10,30,80,50)
GUICtrlSetBkColor($label1,$Color_Left)
$Label01 = GUICtrlCreateLabel("Couleur Droite :", 10,170,100,20)
$input2 = GUICtrlCreateInput(Hex($Color_Right,6),100,168,50,20)
$label2 = GUICtrlCreateLabel("", 10,190,80,50)
GUICtrlSetBkColor($label2,$Color_Right)
GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
    Case $GUI_EVENT_CLOSE
        Exit
    EndSwitch
    
    If GUICtrlRead($input1) <> $Last_Left Then
    GUICtrlSetBkColor($label1,"0x"&GUICtrlRead($input1))
    $Last_Left = GUICtrlRead($input1)
    EndIf
    
    If GUICtrlRead($input2) <> $Last_Right Then
    GUICtrlSetBkColor($label2,"0x"&GUICtrlRead($input2))
    $Last_Right = GUICtrlRead($input2)
    EndIf
    
    If _IsPressed("01") Then
        $Poss_Left = GUIGetMsg(1)
        If $Poss_Left[3] > 200 and $Poss_Left[3] < 326 And $Poss_Left[4] > 90 And $Poss_Left[4] < 216 Then
            $Pos_Left = MouseGetPos()
            $Color_Left = PixelGetColor($Pos_Left[0],$Pos_Left[1])
            GUICtrlSetData($input1,Hex($Color_Left,6))
            GUICtrlSetBkColor($label1,$Color_Left)
        EndIf
    EndIf
    
    If _IsPressed("02") Then
        $Poss_Right = GUIGetMsg(1)
        If $Poss_Right[3] > 200 and $Poss_Right[3] < 326 And $Poss_Right[4] > 90 And $Poss_Right[4] < 216 Then
            $Pos_Right = MouseGetPos()
            $Color_Right = PixelGetColor($Pos_Right[0],$Pos_Right[1])
            GUICtrlSetData($input2,Hex($Color_Right,6))
            GUICtrlSetBkColor($label2,$Color_Right)
        EndIf
    EndIf
WEnd

[Iste]

Ou sinon, si le gris et le noir vous intéresse, vous pouvez utiliser _ChooseColor()

[bromy]

Merci beaucoup, c'est parfait

[Tlem]

@bromy
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.