Psychokinesis Posted October 19, 2006 Share Posted October 19, 2006 (edited) I posted what it can do right here.I put my name in it for fun. Oh, also, its my first successful GUI. EDIT:I rearranged where it displays the color in decimal, mouse position, all that stuff thats on it, so theres less space thats being used.Tool_v1.zip Edited October 20, 2006 by Psychokinesis Link to comment Share on other sites More sharing options...
NELyon Posted October 19, 2006 Share Posted October 19, 2006 It's fine, but next time, include your source. Sometimes people will hesitate to open EXE's from new members. Link to comment Share on other sites More sharing options...
Psychokinesis Posted October 19, 2006 Author Share Posted October 19, 2006 (edited) Here it is. #include <GuiConstants.au3> GuiCreate("Tool", 102, 73) WinSetOnTop("Tool", "", 1) GuiCtrlCreateLabel("", 0, 36, 102, 21) GuiCtrlCreateLabel("", 0, 0, 102, 11) GuiCtrlCreateLabel("", 0, 11, 102, 11) GuiCtrlCreateLabel("", 0, 22, 102, 11) GUICtrlCreatePic("psy.bmp", 0, 56, 102, 17) GuiSetState() While GuiGetMsg() <> $GUI_EVENT_CLOSE $mouse = MouseGetPos() $color = PixelGetColor( $mouse[0], $mouse [1]) GuiCtrlSetBkColor(3, $color) GUICtrlSetData(4, "Dec - " & $color) GUICtrlSetData(5, "Hex - " & Hex($color, 6)) GUICtrlSetData(6, "(" & $mouse[0] & ", " & $mouse[1] & ")") If _IsPressed("7B") Then ClipPut("dec - " & $color & " Hex - " & Hex($color, 6) & " X: "& $mouse[0] & " Y:" & $mouse[1]) WEnd WEnd (This is the source code for the most recent version.) Edited October 20, 2006 by Psychokinesis Link to comment Share on other sites More sharing options...
jvanegmond Posted October 19, 2006 Share Posted October 19, 2006 I was bothered with the flickering. Now it only updates when the mouse has moved: #include <GuiConstants.au3> #include <Misc.au3> Global $LastMouse[2], $mouse[2] GuiCreate("Tool", 155, 73) GuiCtrlCreateLabel("", 0, 16, 96, 40) GuiCtrlCreateLabel("", 0, 0, 165, 16) GuiCtrlCreateLabel("", 96, 16, 64, 16) GUICtrlCreatePic("psy.bmp", 0, 56, 102, 17) GuiSetState() While GuiGetMsg() <> $GUI_EVENT_CLOSE $LastMouse = $mouse $mouse = MouseGetPos() If ($mouse[0] <> $LastMouse[0]) OR ($mouse[1] <> $LastMouse[1]) Then $color = PixelGetColor( $mouse[0], $mouse [1]) GuiCtrlSetBkColor(3, $color) GUICtrlSetData(4, "Dec - " & $color & " " & "Hex - " & Hex($color, 6)) GUICtrlSetData(5, "(" & $mouse[0] & ", " & $mouse[1] & ")") EndIf If _IsPressed("7B") Then ClipPut($color & " " & Hex($color, 6) & " "& $mouse[0] & " " & $mouse[1]) EndIf WEnd github.com/jvanegmond Link to comment Share on other sites More sharing options...
Psychokinesis Posted October 20, 2006 Author Share Posted October 20, 2006 Uh, your updated script would make the program to use an undeclared variable. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now