Farbe herausfinden / einstellen - Tool

  • Hier ein kleines, simples Tool, welches euch ermöglicht, den Farbcode einer beliebigen Farbe herauszufinden.
    PS: Der Code setzt sich folgendermaßen zusammen:
    0x[Anteil von Roter Farbe (0-F)][Anteil von Roter Farbe (0-F)][Anteil von Grüner Farbe (0-F)][Anteil von Grüner Farbe (0-F)][Anteil von Blauer Farbe (0-F)][Anteil von Blauer Farbe (0-F)]

    Viel Spass damit, vielleicht könnt ihr es gebrauchen. ;) :rock:

  • Das sollte nochmal überarbeiten. Das extreme flackern usw.

    Des weiteren hat das hier nix in Tutorials zu suchen.


    Edit BugFix: VERSCHOBEN

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Einmal editiert, zuletzt von BugFix (9. März 2014 um 19:25)

  • also das Flackern ist wirklich sehr störend...
    zum einem werden, soweit ich es weiß, Checkboxen mit BitAND abgefragt und zum anderen würde ich die Hintergrund-Farbe nicht permanent aktualisieren sondern erst wenn sie verändert wurde. Das dürfte dann warscheinlich auch das permanente Flackern beseitigen...

  • Ich war mal so frei und hab das Flackern und die Sache mit den Checkboxen "bereinigt"

    Wer noch Anmerkungen dazu hat, bitte her damit :D

    Spoiler anzeigen
    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("ColorGet", 151, 198, 192, 124)
    $Red = GUICtrlCreateSlider(0, 0, 150, 30)
    GUICtrlSetLimit(-1, 10, 0)
    $Blue = GUICtrlCreateSlider(0, 45, 150, 30)
    GUICtrlSetLimit(-1, 10, 0)
    $Yel = GUICtrlCreateSlider(0, 90, 150, 30)
    GUICtrlSetLimit(-1, 10, 0)
    $C = GUICtrlCreateGraphic(0, 120, 150, 52)
    $R = GUICtrlCreateInput("Input1", 0, 176, 150, 21)
    $Ref = GUICtrlCreateCheckbox("RFIB",0,120)
    $Ref2 = GUICtrlCreateCheckbox("RFSL",100,120)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Hotkeyset("{F1}","Help")
    While 1
    If GUICtrlread($Red) = 10 then
    $RE = "F"
    Else
    $RE = GUICtrlread($Red)
    Endif
    If GUICtrlread($Blue) = 10 then
    $BL = "F"
    Else
    $BL = GUICtrlread($Blue)
    Endif
    If GUICtrlread($Yel) = 10 then
    $YE = "F"
    Else
    $YE = GUICtrlread($Yel)
    Endif
    GUICtrlSetState($Ref,$GUI_ONTOP)
    GUICtrlSetState($Ref2,$GUI_ONTOP)
    IF BitAnd(GUICtrlRead($Ref),$GUI_CHECKED) = $GUI_CHECKED Then
    Local $R_before
    If $R_before <> GUICtrlRead($R) Then
    GUICtrlsetbkcolor($C,GUICtrlread($R))
    $R_before = GUICtrlread($R)
    EndIf

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

    Endif
    If BitAnd(GUICtrlRead($Ref2),$GUI_CHECKED) = $GUI_CHECKED Then
    GUICtrlsetdata($R,"0x"&$RE&$RE&$BL&$BL&$YE&$YE)
    Endif

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

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

    Func Help ()
    MsgBox (0, "Help / ColorGet","Slider 1: Red color"&@CRLF&"Slider 2: Green color"&@CRLF&"Slider 3: Blue color"&@CRLF&"RFIB: Autorefresh from InputBox"&@CRLF&"RFSL: Autorefresh from Sliders")
    Endfunc

    [/autoit]