Farbcode Finder

    Heyho , :P
    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     ;)

    Einmal editiert, zuletzt von Cryfall (24. April 2009 um 15:36)

    Für den Anfang ganz nett :thumbup: , 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
    Author: Cryfall

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Template AutoIt script.

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)
    Opt("SendKeyDelay", 1) ;5 milliseconds
    Opt("SendKeyDownDelay", 1) ;1 millisecond

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{f1}","freeze")
    HotKeySet("{f2}","einfg")
    TrayTip("Hotkeys", "F1 = Freezen und Entfreezen und F2 = Den aktuellen Farbcode einfügen", 5)

    [/autoit] [autoit][/autoit] [autoit]

    Global $on = True

    [/autoit] [autoit][/autoit] [autoit]

    $mouse = MouseGetPos()
    Global $color = PixelGetColor($mouse[0], $mouse[1]), $color_Old
    $hexcolor = Hex($color, 6)

    [/autoit] [autoit][/autoit] [autoit]

    $mainwindow = GUICreate("Farbcode", 70, 25, @DesktopWidth -75, 0, Default, 0x88)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

    [/autoit] [autoit][/autoit] [autoit]

    Global $Farbe = GUICtrlCreateLabel("#" & $hexcolor, 12, 7)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    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

    [/autoit]