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