ColorReader Bug

XxXFaNtA

Es ist Nacht und ich seh den Fehler net..

Was ich versucht hab ist zwischen Zeile 37 und 41

Er sollte das Label nicht mehr bewegen wenn die Maus zu weit rechts ist (@DektopWidth - 95) oder halt zu weit unten (@Desktopheight - 80)
...Aber das will net klappen *grrr**

Hier mal der QuellCode

Code

#include <GUIConstants.au3>


HotKeySet("{ESC}", "Quit")
HotKeySet("{F5}", "F5")
HotKeySet("{F6}", "F6")


MsgBox(0,"Copyright:","This Program Was Made by FaNtA" & @LF & @LF & "Esc to exit" & @LF &"F5 To Get RGB Code" & @LF &"F6 To Get Hexcode")


Global $GUI_Pixel[400]
Global $GUI = GUICreate("Preview",80,80,0,0,$WS_POPUP+$WS_BORDER,$WS_EX_TOPMOST)
Global $LastPos[2] = [0,0]


$label = GUICtrlCreateLabel("",0,0,80,80)
$label2 = GUICtrlCreateLabel("",25,35,40,15)
GUISetState(@SW_SHOW)


;; Why am i making this? because i just want it to be there if the mouse has moved


	#region <Making the Label (1st time)>
    $MousePos = MouseGetPos()
	GUICtrlSetBkColor($label,PixelGetColor($MousePos[0],$MousePos[1]))
		If Dec(PixelGetColor($mousePos[0],$MousePos[1])) < Dec(0x7F7F7F) Then
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0xffFFFF)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		Else
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0x000000)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		EndIf
	#endregion


While 1
    $MousePos = MouseGetPos()


    If ($LastPos[0] <> $MousePos[0] Or $LastPos[1] <> $MousePos[1]) Then
		If $MousePos[0] < (@DesktopWidth - 95) OR $MousePos[1] < (@DesktopHeight - 80) Then
			WinMove("Preview","",$MousePos[0]+15,$MousePos[1])
			$LastPos[0] = $MousePos[0]
			$LastPos[1] = $MousePos[1]
		EndIf
	#region <Making the Label>
    $MousePos = MouseGetPos()
	GUICtrlSetBkColor($label,PixelGetColor($MousePos[0],$MousePos[1]))
		If Dec(PixelGetColor($mousePos[0],$MousePos[1])) < Dec(0x7F7F7F) Then
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0xffFFFF)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		Else
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0x000000)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		EndIf
	#endregion


EndIf

    Sleep(10)
WEnd


Func Quit()
    Exit
EndFunc


Func F5()
    $MousePos = MouseGetPos()
	ClipPut("("& Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),3,2)) &","& _
	Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),5,2)) &","& _
	Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),7,2)) &")")
	ToolTip("RGB-Code successfully saved into the Clipboard")
EndFunc


Func F6()
    $MousePos = MouseGetPos()
	ClipPut(StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	ToolTip("Hexcode successfully saved into the Clipboard")
EndFunc

Alles anzeigen

**bernd670**

Der Fehler ist das Or in Zeile 37, da muss ein And hin:

Code

If $MousePos[0] < (@DesktopWidth - 95) And $MousePos[1] < (@DesktopHeight - 80) Then
			WinMove("Preview","",$MousePos[0]+15,$MousePos[1])
			$LastPos[0] = $MousePos[0]
			$LastPos[1] = $MousePos[1]
		EndIf

XxXFaNtA

ne das ist dann auch buggig...ich habe es nun mit einer mehrfachen If-Abfrage gemacht, was aber auch nicht zu funktionieren scheint...

Code

If $MousePos[0] < @DesktopWidth-95 OR $MousePos[1] < @DesktopHeight-80 Then
			WinMove("Preview","",$MousePos[0]+15,$MousePos[1])
		ElseIf $MousePos[0] > @DesktopWidth-80 Then
			WinMove("Preview","",@DesktopWidth-95,$MousePos[1])
		Elseif $MousePos[1] < @DesktopHeight-80 Then
			WinMove("Preview","",$MousePos[0]+15,@DesktopHeight-80)
		EndIf

Edit:
So jetzt geht es besser...muss nur noch die Ecke da unten Rechts fixen, dann sollte die neue Version fertig sein

Code

If $MousePos[0] < @DesktopWidth-95 AND $MousePos[1] < @DesktopHeight-80 Then
			WinMove("Preview","",$MousePos[0]+15,$MousePos[1])
		ElseIf $MousePos[0] > @DesktopWidth-95 Then
			WinMove("Preview","",@DesktopWidth-80,$MousePos[1]+15)
		Elseif $MousePos[1] > @DesktopHeight-80 Then
			WinMove("Preview","",$MousePos[0]+15,@DesktopHeight-80)
		ElseIf $MousePos[0] > @DesktopWidth-95 AND $MousePos[1] > @DesktopHeight-80 Then
			WinMove("Preview","",$MousePos[0]-15,$MousePos[1]-10)
		EndIf

**bernd670**

Probier mal das!

Spoiler anzeigen

Code

#include <GUIConstants.au3>


HotKeySet("{ESC}", "Quit")
HotKeySet("{F5}", "F5")
HotKeySet("{F6}", "F6")


MsgBox(0,"Copyright:","This Program Was Made by FaNtA" & @LF & @LF & "Esc to exit" & @LF &"F5 To Get RGB Code" & @LF &"F6 To Get Hexcode")


Global $GUI_Pixel[400]
Global $GUI = GUICreate("Preview",80,80,0,0,$WS_POPUP+$WS_BORDER,$WS_EX_TOPMOST)
Global $LastPos[2] = [0,0], $Pos[2] = [0,0]


$label = GUICtrlCreateLabel("",0,0,80,80)
$label2 = GUICtrlCreateLabel("",25,35,40,15)
GUISetState(@SW_SHOW)


;; Why am i making this? because i just want it to be there if the mouse has moved


#region <Making the Label (1st time)>
$MousePos = MouseGetPos()
GUICtrlSetBkColor($label,PixelGetColor($MousePos[0],$MousePos[1]))
If Dec(PixelGetColor($mousePos[0],$MousePos[1])) < Dec(0x7F7F7F) Then
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0xffFFFF)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
Else
	GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	GUICtrlSetColor(-1,0x000000)
	GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
EndIf
#endregion


While 1
	$MousePos = MouseGetPos()

	If ($LastPos[0] <> $MousePos[0] Or $LastPos[1] <> $MousePos[1]) Then
		$Pos[0] = $MousePos[0]
		$Pos[1] = $MousePos[1]
		If $Pos[0] > @DesktopWidth-95 Then $Pos[0] = $MousePos[0]-110
        If $Pos[1] > @DesktopHeight-95 Then $Pos[1] = $MousePos[1]-110
		WinMove("Preview","",$Pos[0]+15,$Pos[1]+15)
		$LastPos[0] = $MousePos[0]
		$LastPos[1] = $MousePos[1]
		#region <Making the Label>
		$MousePos = MouseGetPos()
		GUICtrlSetBkColor($label,PixelGetColor($MousePos[0],$MousePos[1]))
		If Dec(PixelGetColor($mousePos[0],$MousePos[1])) < Dec(0x7F7F7F) Then
			GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
			GUICtrlSetColor(-1,0xffFFFF)
			GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		Else
			GUICtrlSetData($label2,StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
			GUICtrlSetColor(-1,0x000000)
			GuiCtrlSetBkColor($label2,$GUI_BKCOLOR_TRANSPARENT)
		EndIf
		#endregion

	EndIf

	Sleep(10)
WEnd


Func Quit()
	Exit
EndFunc   ;==>Quit


Func F5()
	$MousePos = MouseGetPos()
	ClipPut("("& Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),3,2)) &","&  _
			Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),5,2)) &","&  _
			Dec(StringMid(Hex(PixelGetColor($MousePos[0],$MousePos[1])),7,2)) &")")
	ToolTip("RGB-Code successfully saved into the Clipboard")
EndFunc   ;==>F5


Func F6()
	$MousePos = MouseGetPos()
	ClipPut(StringTrimLeft(Hex(PixelGetColor($MousePos[0],$MousePos[1])),2))
	ToolTip("Hexcode successfully saved into the Clipboard")
EndFunc   ;==>F6

Alles anzeigen

Jetzt gehts auch in der Ecke unten rechts!

XxXFaNtA

Viel einfacher als ich das gemacht hab Klasse nur das Problem bei deinem ist die untere rechte ecke

Man kann was dahinter ist leider nicht aufnehmen :\
Darum hab ich bei meiner Version das Label wenn die Maus unten rechts ist verschoben

Habs im Skripte-Forum einfach mal hochgeladen
Hab das mit der Ecke auch bissl gefixed

XxXFaNtA

Die Version vorher fand ich schöner von dir.

Jetzt "hüpft" das Teil nur so herum.

Aber trotzdem feine Arbeite

Ich behalt jetzt erstmal meine Version.
Wenn du noch paar Ideen hast, kannst die ja in den andern Thread mal schreiben

Und du solltest mal schlafen gehen

Achja btw...haste icq oder andere kontaktmöglichkeiten?