Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
#include <GUIConstantsEx.au3> #include <Misc.au3> Global $Farbwahl = True TrayTip("Bereit","Programm ist bereit. Mit Esc beenden. Mit Klicken Farbe herausbekommen", 20, 1) $hGUI = GUICreate("Color", 200, 200) $hLabel = GUICtrlCreateLabel("", 10, 10, 180, 80) GUICtrlSetBkColor(-1, 0xFFFFFF) $hButton1 = GUICtrlCreateButton("In Zwischenablage",80,160) $hButton2 = GUICtrlCreateButton("Neue Farbe",10,160) $hLabel2 = GUICtrlCreateLabel("",10,100,90,50) GUISetState() While 1 If _IsPressed("1B") or GUIGetMsg() = -3 Then Exit If $Farbwahl = False then If _IsPressed("01") Then ;Linke Maustaste $maus = MouseGetPos() $farbe = PixelGetColor( $maus[0], $maus[1]) GUICtrlSetBkColor($hLabel, "0x"&StringRight(Hex($farbe),6)) GUICtrlSetData($hLabel2, "0x"&StringRight(Hex($farbe),6)) $Farbwahl = True TrayTip("Farbe","0x"&StringRight(Hex($farbe),6) & " - GUI öffnen für weitere Funktionen", 10) EndIf EndIf $msg = GUIGetMsg() If $Farbwahl = True then Switch $msg Case $hButton1 ClipPut("0x"&StringRight(Hex($farbe),6)) Case $hButton2 GUICtrlSetBkColor($hLabel, 0xFFFFFF) $Farbwahl = False EndSwitch EndIf WEnd
Dauerhaft angemeldet bleiben?