[AU3/EXE] Code Color

Voici un Code Color comme celui de Fred et celui de Sacha, mais cette fois-ci en AutoIt:

Code:

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>

HotKeySet("{ESC}", Close)

GUICreate("Code Color - BBat Software", 320, 160)
GUISetBkColor("0x6699FF")
GUISetState(@SW_SHOW)

Local $Draw_Hex, $Draw_Red, $Draw_Green, $Draw_Blue

While 1

   Sleep(50)

   GUICtrlDelete($Draw_Hex)
   GUICtrlDelete($Draw_Red)
   GUICtrlDelete($Draw_Green)
   GUICtrlDelete($Draw_Blue)

   ; HEX
   $Coord = MouseGetPos()
   $Hex = "0x" & Hex(PixelGetColor($Coord[0], $Coord[1]), 6)
   $Draw_Hex = GUICtrlCreateLabel("" & Hex(PixelGetColor($Coord[0], $Coord[1]), 6), 10, 10, 300, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0xFFFFFF")

   ; RED
   $Red = BitAND(BitShift($Hex, 16), 0xFF)
   $Draw_Red = GUICtrlCreateLabel("" & $Red, 10, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0xFF0000")

   ; GREEN
   $Green = BitAND(BitShift($Hex, 8), 0xFF)
   $Draw_Green = GUICtrlCreateLabel("" & $Green, 110, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0x339933")

   ; BLUE
   $Blue = BitAND($Hex, 0xFF)
   $Draw_Blue = GUICtrlCreateLabel("" & $Blue, 210, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0x0000FF")

WEnd

Func Close()
   Exit
EndFunc

[Vous devez être inscrit et connecté pour voir ce lien]

Exécutable: http://www.sendspace.com/file/ti36am

ECHAP pour fermer le programme.

Si vous savez comment réduire le clignotement tout en conservant la "réactivité", n'hésitez pas à le modifier, parce que là, ça pique les yeux  

Dylan.

SA ME RAPPEL UN DE MES VBNET SA LE CODE COLOR SA