RGB Finder

rabbit

Hi,

ich habe immer das Problem mit den RGB Codes. Habe deshalb ein kleines Skript geschrieben mit dem man mit Slidern Farben einstellen kann. Mit einem Button wird der aktuelle Farbcode in die Zwischenablage kopiert und kann dann in ein Skript direkt mit CTRL+V eingefügt werden.

Ciao rabbit

Dr.Galvany

sorry rabbit, aber ich konnte nicht wiederstehen es noch etwas zu verbessern
und da es jetzt eh erst 03:43 ist :schild4:

Spoiler anzeigen

C

; ----------------------------------------------------------------------------
;
; AutoIt Version: v3.1.1.124 (beta)
; Author:         rabbit and Dr.galvany
;
; Script Function:
;	RGB Farbwerte ermitteln
;
; ----------------------------------------------------------------------------




#include <GuiConstants.au3>


Dim $col[3]
$col[0] = "FF"
$col[1] = "00"
$col[2] = "00"




GUICreate("RGB & HEX Finder", 290, 190, -1, -1)


$Label = GUICtrlCreateLabel("", 20, 20, 140, 30)
GUICtrlSetBkColor(-1, 0xFF0000)
$code = GUICtrlCreateLabel("0xFF0000", 180, 25, 140, 30)
$rt = GUICtrlCreateLabel("R", 10, 60, 10, 20)
$r = GUICtrlCreateSlider(20, 60, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 255)
$ge = GUICtrlCreateLabel("G", 10, 90, 10, 20)
$g = GUICtrlCreateSlider(20, 90, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$bl = GUICtrlCreateLabel("B", 10, 120, 10, 20)
$b = GUICtrlCreateSlider(20, 120, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$copy = GUICtrlCreateButton("Copy", 165, 150, 110, 30)
GUICtrlCreateLabel("by rabbit and Dr.Galvany", 5, 175, 150)
GUICtrlSetFont(-1, 8)


GUICtrlCreateLabel("R = ", 179, 60, 50)
$l1 = GUICtrlCreateLabel(255, 200, 60, 50)
GUICtrlCreateLabel("G = ", 179, 90, 50)
$l2 = GUICtrlCreateLabel(0, 200, 90, 50)
GUICtrlCreateLabel("B = ", 179, 120, 50)
$l3 = GUICtrlCreateLabel(0, 200, 120, 50)


GUISetState()
While 1
	Sleep(25)
	GUICtrlSetData($l1, GUICtrlRead($r))
	GUICtrlSetData($l2, GUICtrlRead($g))
	GUICtrlSetData($l3, GUICtrlRead($b))

	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop

		Case $msg = $r
			$col[0] = Hex(GUICtrlRead($r), 2)
			Call("setcol")

		Case $msg = $g
			$col[1] = Hex(GUICtrlRead($g), 2)
			Call("setcol")

		Case $msg = $b
			$col[2] = Hex(GUICtrlRead($b), 2)
			Call("setcol")

		Case $msg = $copy
			ClipPut("0x" & $col[0] & $col[1] & $col[2])
		Case Else
			;;;
	EndSelect
WEnd
Exit


Func setcol()
	GUICtrlSetBkColor($Label, "0x" & $col[0] & $col[1] & $col[2])
	GUICtrlSetData($code, "0x" & $col[0] & $col[1] & $col[2])
EndFunc   ;==>setcol

Alles anzeigen

ytwinky

Hi,
mich hat aber das ständige Flackern der Schrift gestört..
..also habe ich es entfernt
Gruß
ytwinky

Spoiler anzeigen

C

; ----------------------------------------------------------------------------
;
; AutoIt Version: v3.1.1.124 (beta)
; Author:         rabbit, Dr.galvany and ytwinky
;
; Script Function:
;	RGB Farbwerte ermitteln
;
; ----------------------------------------------------------------------------




#include <GuiConstants.au3>


Dim $col[3]
$col[0] = "FF"
$col[1] = "00"
$col[2] = "00"




GUICreate("RGB & HEX Finder", 290, 190, -1, -1)


$Label = GUICtrlCreateLabel("", 20, 20, 140, 30)
GUICtrlSetBkColor(-1, 0xFF0000)
$code = GUICtrlCreateLabel("0xFF0000", 180, 25, 140, 30)
$rt = GUICtrlCreateLabel("R", 10, 60, 10, 20)
$r = GUICtrlCreateSlider(20, 60, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 255)
$ge = GUICtrlCreateLabel("G", 10, 90, 10, 20)
$g = GUICtrlCreateSlider(20, 90, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$bl = GUICtrlCreateLabel("B", 10, 120, 10, 20)
$b = GUICtrlCreateSlider(20, 120, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$copy = GUICtrlCreateButton("Copy", 165, 150, 80, 30)
GUICtrlSetFont(-1, 10, 800, 0)
GUICtrlCreateLabel("by rabbit and Dr.Galvany", 5, 165, 150)
GUICtrlSetFont(-1, 8)
GUICtrlSetTip(-1, "and ytwinky")


GUICtrlCreateLabel("R = ", 179, 60, 50)
$l1 = GUICtrlCreateLabel(255, 200, 60, 50)
GUICtrlCreateLabel("G = ", 179, 90, 50)
$l2 = GUICtrlCreateLabel(0, 200, 90, 50)
GUICtrlCreateLabel("B = ", 179, 120, 50)
$l3 = GUICtrlCreateLabel(0, 200, 120, 50)


GUISetState()
While 1
	Sleep(25)


	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop


		Case $r
			$col[0] = Hex(GUICtrlRead($r), 2)
			Call("setcol")
	GUICtrlSetData($l1, GUICtrlRead($r))


		Case $g
			$col[1] = Hex(GUICtrlRead($g), 2)
			Call("setcol")
	GUICtrlSetData($l2, GUICtrlRead($g))


		Case $b
			$col[2] = Hex(GUICtrlRead($b), 2)
			Call("setcol")
	GUICtrlSetData($l3, GUICtrlRead($b))


		Case $copy
			ClipPut($col[0] & $col[1] & $col[2])
		Case Else
			;-))
	EndSwitch
WEnd
Exit


Func setcol()
	GUICtrlSetBkColor($Label, "0x" & $col[0] & $col[1] & $col[2])
	GUICtrlSetData($code, "0x" & $col[0] & $col[1] & $col[2])
EndFunc   ;==>setcol

Alles anzeigen

Dr.Galvany

so änlich hatte ich es auch mal, aber hier hat mich etwas gestört, das die werde, erst nach loslasen des reglers erschienen sind.
darum hatte ich es anders gelöst.

hm, das flakern war bei mir eigentlich ab "sleep(5) schon weg.

das kann aber vieleicht an der CPU liegen?

ytwinky

Weiß nicht, PIII1k..
Ich wollte erst ne Änderungsabfrage einbauen, also daß er nur dann schreibt, wenn sich der Wert geändert hat.
Das wäre dann CPU-unabhängig, ich hätte mich aber tiefer in das Skript reinknieen müssen..
Gruß
ytwinky

rabbit

HI,

nix für ungut, aber ich habe die Dezimalwerte extra nicht eingefügt, weil die in der Regel keiner braucht, oder irre ich mich da?????

Die Hexwerte für RGB sieht man ja oben.

Ciao und Gruß aus dem schönen Polen

rabbit

rabbit

nochmal ich,

hat einer eine Idee, ob man in das Fenster eine Checkbox einbauen kann, mit der man ändern kann, ob das GUI Topmost oder normal sein soll? Oder muss man dazu das Gui löschen und neu erstellen?

Also wie ich die Checkbox reinkriege weiß ich ja ;-))

Gruß rabbit

Dr.Galvany

mann kann doch einfach das "WinSetOnTop("Untitled -", "", 1)" mit einbauen, oder?

Dr.Galvany

hallo, bin gerade beim erstellen eines anderen scriptes daruf gekommen, das dass flackern auch mit einen anderen befehl weg sein sollte
bei mir flackert es jetzt in keinster weise mehr
das zauber wort ist hier "ControlSetText"

schaue es dir bitte mal an, da es jetzt auch bei dir nicht mehr flackern dürfte.
habe aber trotzdem mal ein "sleep(1)" drinnen gelassen, um die cpu nicht unnötig zu verbraten

Spoiler anzeigen

C

; ----------------------------------------------------------------------------
;
; AutoIt Version: v3.1.1.124 (beta)
; Author:         rabbit and Dr.galvany
;
; Script Function:
;	RGB Farbwerte ermitteln
;
; ----------------------------------------------------------------------------




#include <GuiConstants.au3>


Dim $col[3]
$col[0] = "FF"
$col[1] = "00"
$col[2] = "00"




GUICreate("RGB & HEX Finder", 290, 190, -1, -1)


$Label = GUICtrlCreateLabel("", 20, 20, 140, 30)
GUICtrlSetBkColor(-1, 0xFF0000)
$code = GUICtrlCreateLabel("0xFF0000", 180, 25, 140, 30)
$rt = GUICtrlCreateLabel("R", 10, 60, 10, 20)
$r = GUICtrlCreateSlider(20, 60, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 255)
$ge = GUICtrlCreateLabel("G", 10, 90, 10, 20)
$g = GUICtrlCreateSlider(20, 90, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$bl = GUICtrlCreateLabel("B", 10, 120, 10, 20)
$b = GUICtrlCreateSlider(20, 120, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$copy = GUICtrlCreateButton("Copy", 165, 150, 110, 30)
GUICtrlCreateLabel("by rabbit and Dr.Galvany", 5, 175, 150)
GUICtrlSetFont(-1, 8)


GUICtrlCreateLabel("R = ", 179, 60, 50)
$l1 = GUICtrlCreateLabel(255, 200, 60, 50)
GUICtrlCreateLabel("G = ", 179, 90, 50)
$l2 = GUICtrlCreateLabel(0, 200, 90, 50)
GUICtrlCreateLabel("B = ", 179, 120, 50)
$l3 = GUICtrlCreateLabel(0, 200, 120, 50)


GUISetState()
While 1
	Sleep(1)
	ControlSetText("RGB & HEX Finder","",$l1, GUICtrlRead($r))
	;GUICtrlSetData($l1, GUICtrlRead($r))
	ControlSetText("RGB & HEX Finder","",$l2, GUICtrlRead($g))
	;GUICtrlSetData($l2, GUICtrlRead($g))
	ControlSetText("RGB & HEX Finder","",$l3, GUICtrlRead($b))
	;GUICtrlSetData($l3, GUICtrlRead($b))

	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop

		Case $msg = $r
			$col[0] = Hex(GUICtrlRead($r), 2)
			Call("setcol")

		Case $msg = $g
			$col[1] = Hex(GUICtrlRead($g), 2)
			Call("setcol")

		Case $msg = $b
			$col[2] = Hex(GUICtrlRead($b), 2)
			Call("setcol")

		Case $msg = $copy
			ClipPut("0x" & $col[0] & $col[1] & $col[2])
		Case Else
			;;;
	EndSelect
WEnd
Exit


Func setcol()
	GUICtrlSetBkColor($Label, "0x" & $col[0] & $col[1] & $col[2])
	GUICtrlSetData($code, "0x" & $col[0] & $col[1] & $col[2])
EndFunc   ;==>setcol

Alles anzeigen

ytwinky

Hi Dr. Galvany,
das Flackern ist fast weg
In meinen Augen scheint der einzig vernünftige Weg zu sein, nur dann zu Schreiben, wenn sich etwas geändert hat.
Das ist eben der Nachteil dieser Endlosschleifen..
Ich mich kann aber erst später darum kümmern..
..ytwinky.freebasic.de läuft wieder und ich muß schauen, ob da alles in Ordnung ist.
Bis später
ytwinky

ytwinky

Hi,
so, jetzt flackert nix mehr..
Ich habe pro Farbe eine Prüfvariable eingefügt und nur wenn die sich verändert, wird auch im GUI geschrieben.
Das dürfte Prozessor-unabhängig sein.
Gruß
ytwinky

Spoiler anzeigen

C

; ----------------------------------------------------------------------------
;
; AutoIt Version: v3.1.1.124 (beta)
; Author:         rabbit and Dr.galvany and ytwinky
;
; Script Function:
;	RGB Farbwerte ermitteln
;
; ----------------------------------------------------------------------------




#include <GuiConstants.au3>


Dim $col[3]
$col[0] = "FF"
$col[1] = "00"
$col[2] = "00"
Dim $rr=255, $gg=0, $bb=0


GUICreate("RGB & HEX Finder", 290, 190, -1, -1)


$Label = GUICtrlCreateLabel("", 20, 20, 140, 30)
GUICtrlSetBkColor(-1, 0xFF0000)
$code = GUICtrlCreateLabel("0xFF0000", 180, 25, 140, 30)
$rt = GUICtrlCreateLabel("R", 10, 60, 10, 20)
$r = GUICtrlCreateSlider(20, 60, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 255)
$ge = GUICtrlCreateLabel("G", 10, 90, 10, 20)
$g = GUICtrlCreateSlider(20, 90, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$bl = GUICtrlCreateLabel("B", 10, 120, 10, 20)
$b = GUICtrlCreateSlider(20, 120, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$copy = GUICtrlCreateButton("Copy", 165, 150, 110, 30)
GUICtrlCreateLabel("by rabbit, Dr.Galvany and ytwinky", 5, 165, 160)
GUICtrlSetFont(-1, 8)


GUICtrlCreateLabel("R = ", 179, 60, 50)
$l1 = GUICtrlCreateLabel(255, 200, 60, 50)
GUICtrlCreateLabel("G = ", 179, 90, 50)
$l2 = GUICtrlCreateLabel(0, 200, 90, 50)
GUICtrlCreateLabel("B = ", 179, 120, 50)
$l3 = GUICtrlCreateLabel(0, 200, 120, 50)
ControlSetText("RGB & HEX Finder","",$l1, GUICtrlRead($r))
ControlSetText("RGB & HEX Finder","",$l2, GUICtrlRead($g))
ControlSetText("RGB & HEX Finder","",$l3, GUICtrlRead($b))
GUISetState()
While 1
	Sleep(1)
	If $rr<>GUICtrlRead($r) Then ControlSetText("RGB & HEX Finder","",$l1, GUICtrlRead($r))
	If $gg<>GUICtrlRead($g) Then ControlSetText("RGB & HEX Finder","",$l2, GUICtrlRead($g))
	If $bb<>GUICtrlRead($b) Then ControlSetText("RGB & HEX Finder","",$l3, GUICtrlRead($b))


	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop


		Case $msg = $r
			$col[0] = Hex(GUICtrlRead($r), 2)
			Call("setcol")
			$rr=GUICtrlRead($r)


		Case $msg = $g
			$col[1] = Hex(GUICtrlRead($g), 2)
			Call("setcol")
			$gg=GUICtrlRead($g)


		Case $msg = $b
			$col[2] = Hex(GUICtrlRead($b), 2)
			Call("setcol")
			$bb=GUICtrlRead($b)


		Case $msg = $copy
			ClipPut("0x" & $col[0] & $col[1] & $col[2])
		Case Else
			;-))
	EndSelect
WEnd
Exit


Func setcol()
	GUICtrlSetBkColor($Label, "0x" & $col[0] & $col[1] & $col[2])
	GUICtrlSetData($code, "0x" & $col[0] & $col[1] & $col[2])
EndFunc   ;==>setcol

Alles anzeigen