Cursor Position

stbede77 · Post by **stbede77** » Fri Mar 02, 2007 11:16 am

I have been using the Follow Cursor and Relative options but I was wondering if there is a way to add this option into my own macro? So when I start my macro up I automatically have the positions show up next to the cursor?

Post by **Marcus Tettmar** » Fri Mar 02, 2007 11:37 am

This might give you some ideas ... run the script ... you'll see it mirrors closely what the cursor monitor does:

Code: Select all

GetCursorPos>x,y

Dialog>Dialog1
   Caption=CursorMon
   Width=124
   Height=55
   Top=%y%
   Left=%x%
   Max=0
   Min=0
   Close=0
   Resize=0
   Label=msLabel1,0,0,true
EndDialog>Dialog1

Show>Dialog1

LibFunc>user32,FindWindowA,dhwnd,TForm,CursorMon
Let>WS_CHILD=1073741824
Let>style=WS_CHILD
LibFunc>user32,SetWindowLongA,sres,dhwnd,-16,style
CloseDialog>Dialog1
Show>Dialog1

Label>mainloop
  GetCursorPos>x,y
  GetPixelColor>x,y,col
  Let>Dialog1.msLabel0=%x%,%y%,%col%
  ResetDialogAction>Dialog1
  MoveWindow>CursorMon,x,y
  Wait>0.02
  Goto>mainloop

stbede77 · Post by **stbede77** » Fri Mar 02, 2007 11:53 am

Hmm... thanks for the info I think I can edit it for what I need...