Die Komplementärfarbe von blau ist orange. Doch manchmal muss es etwas genauer sein!
Nach der Eingabe des vorhandenen Farbcodes berechnet „Complementary“ die Komplementärfarbe.
Complementary v1.1
unterstützt jetzt auch die Formate #1b65c8 und 0x1b65c8.
Complementary v1.2
Eine plausible Fehlerabfrage wurde eingefügt.
Ein tolles Icon ist hinzugekommen.
Danke für die bisherigen 40 Downloads
Spoiler anzeigen
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=co.ico
#AutoIt3Wrapper_outfile=Complementary.exe
#AutoIt3Wrapper_Res_Description=Complementary
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=Autor|Ritzelrocker04
#AutoIt3Wrapper_Res_Field=Compiled by|Ritzelrocker04
#AutoIt3Wrapper_Res_Field=Original Name|Complementary
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#region - Options
Opt('GUIOnEventMode', 1)
#endregion - Options
Global $colorInp, $colorOutp
[/autoit] [autoit][/autoit] [autoit]#region - Gui
$GUI = GUICreate("Complementary v1.2", 250, 250)
GUISetOnEvent($GUI_EVENT_CLOSE, '_quit')
WinSetOnTop($GUI, "", 1)
GUICtrlCreateGroup("Farbcode eingeben :", 20, 15, 210, 55)
$inputColor = GUICtrlCreateInput("", 35, 40, 100, 23, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
GUICtrlSetLimit(-1,
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$bnOK = GUICtrlCreateButton("OK", 145, 42, 75, 22)
GUICtrlSetOnEvent(-1, "_ok")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Ausgabe :", 20, 90, 210, 80)
$inputColorExample = GUICtrlCreateGraphic(135, 113, 80, 20)
GUICtrlSetBkColor(-1, 0xF4F4F4)
GUICtrlSetColor(-1, 0xD6D5D9)
$lbInput = GUICtrlCreateLabel("eingegebene Farbe", 35, 115, 95, 20)
GUICtrlCreateGraphic(133, 111, 84, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xD6D5D9)
$outputColorExample = GUICtrlCreateGraphic(135, 142, 80, 20)
GUICtrlSetBkColor(-1, 0xF4F4F4)
GUICtrlSetColor(-1, 0xD6D5D9)
$lbOutput = GUICtrlCreateLabel("Komplementärfarbe", 35, 144, 95, 20)
GUICtrlCreateGraphic(133, 140, 84, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xD6D5D9)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
$bnZwabl = GUICtrlCreateButton("In die Zwischenablage kopieren", 20, 180, 210, 22)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_copy2zwabl")
$bnUpdate = GUICtrlCreateButton("Update", 20, 215, 70, 22)
GUICtrlSetOnEvent(-1, "_update")
$bnDEL = GUICtrlCreateButton("Del", 95, 215, 60, 22)
GUICtrlSetOnEvent(-1, "_del")
$bnClose = GUICtrlCreateButton("Beenden", 160, 215, 70, 22)
GUICtrlSetOnEvent(-1, "_quit")
GUISetState(@SW_SHOW)
#endregion - Gui
#region - While
While 1
Sleep(100)
WEnd
#endregion - While
#region - Functions
Func _quit()
Exit
EndFunc ;==>_quit
Func _ok()
Local $inputRead = GUICtrlRead($inputColor)
$colorInp = "0x" & StringRight($inputRead, 6)
$colorOutp = "0x" & StringRight(Hex(0xffffff - $colorInp), 6)
If StringLeft($inputRead, 2) = "0x" Then
GUICtrlSetData($inputColor, $colorInp)
GUICtrlSetData($lbOutput, $colorOutp)
_output()
ElseIf StringLeft($inputRead, 1) = "#" Then
GUICtrlSetData($inputColor, StringReplace($colorInp, "0x", "#"))
GUICtrlSetData($lbOutput, StringReplace($colorOutp, "0x", "#"))
_output()
Else
MsgBox(262144 + 48, "Error", "Bitte die Eingaben prüfen!" & @TAB)
EndIf
EndFunc ;==>_ok
Func _output()
GUICtrlSetBkColor($inputColorExample, $colorInp)
GUICtrlSetBkColor($outputColorExample, $colorOutp)
GUICtrlSetState($bnZwabl, $GUI_ENABLE)
EndFunc ;==>_output
Func _copy2zwabl()
ClipPut($colorOutp)
EndFunc ;==>_copy2zwabl
Func _del()
GUICtrlSetData($inputColor, "")
GUICtrlSetBkColor($inputColorExample, 0xffffff)
GUICtrlSetData($lbOutput, "Komplementärfarbe")
GUICtrlSetBkColor($outputColorExample, 0xffffff)
GUICtrlSetState($bnZwabl, $GUI_DISABLE)
EndFunc ;==>_del
Func _update()
ShellExecute("http://ritzelrocker04.bplaced.net/thema1.htm")
EndFunc ;==>_update
#endregion - Functions
[/autoit]
Viel Spaß!