Heyho ,
hier ein kleines Tool, was nützlich ist um Farbcodes rauszufinden und einzufügen.
Erklärung erscheint mittels Traytipp.
Gruß
Cryfall
/Update: THX an funkey
Farbcode Finder
-
-
Für den Anfang ganz nett , aber du hast da noch ein paar Fehler drinn. Du erstellst alle 100 ms ein neues Label --> das ist nicht gut --> wenn das Programm länger läuft, dann kann es abstürzen. Außerdem flackert die Farbanzeige bei dir
Ausgebesserte Version
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
[/autoit] [autoit][/autoit] [autoit]
Author: CryfallScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
Opt("SendKeyDelay", 1) ;5 milliseconds
Opt("SendKeyDownDelay", 1) ;1 millisecondHotKeySet("{f1}","freeze")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{f2}","einfg")
TrayTip("Hotkeys", "F1 = Freezen und Entfreezen und F2 = Den aktuellen Farbcode einfügen", 5)Global $on = True
[/autoit] [autoit][/autoit] [autoit]$mouse = MouseGetPos()
[/autoit] [autoit][/autoit] [autoit]
Global $color = PixelGetColor($mouse[0], $mouse[1]), $color_Old
$hexcolor = Hex($color, 6)$mainwindow = GUICreate("Farbcode", 70, 25, @DesktopWidth -75, 0, Default, 0x88)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")Global $Farbe = GUICtrlCreateLabel("#" & $hexcolor, 12, 7)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
Sleep(100)
If $on = True Then
$mouse = MouseGetPos()
$color = PixelGetColor($mouse[0], $mouse[1])
If $color <> $color_Old Then
$hexcolor = Hex($color, 6)
GUICtrlSetData($Farbe, "#" & $hexcolor)
EndIf
$color_Old = $color
EndIf
WEnd
Func CLOSEClicked()
GUIDelete()
TrayTip("by Cryfall", "cryfall.funpic.de", 5)
;~ Sleep(5000)
Exit
EndFunc
Func freeze()
If $on = True Then
$on = False
ElseIf $on = False Then
$on = True
EndIf
EndFunc
Func einfg()
Send($hexcolor)
EndFunc -
Vielen Dank
<> bedeutet ungleich oder? Hab in der Hilfedatei und bei Google das nicht gefunden, da die das < und > annehmen
MfG
Cryfall