PureBasic Forums - English

Posted: **Fri Aug 24, 2012 11:25 pm**

i gived a tray to regions the problem is when clicking, but it can give you a start of a solution perhaps :

ExamineDesktops()

Global cp.point

Width.i = DesktopWidth(0)
Height.i = DesktopHeight(0)

hrgn1.i = CreateRectRgn_(0, height-1, 2*width, height)  
hrgn2.i = CreateRectRgn_(width-1, 0 , width,(2* height)+1)
hrgn3.i = CreateRectRgn_(width-2, height-2 , width+2,height+2)

CombineRgn_(hrgn1,hrgn1, hrgn2,#RGN_OR)
CombineRgn_(hrgn1,hrgn1, hrgn3,#RGN_DIFF)


SetCursorPos_(width/2,height/2)
  
OpenWindow(0,-width,-height,2*Width, 2*Height,"",#PB_Window_BorderLess)
SetWindowColor(0,#Red)

SetWindowRgn_(WindowID(0),hrgn1,#True)
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOSIZE)


Repeat
  GetCursorPos_(cp)
  ResizeWindow(0,(-width)+cp\x, (-height)+cp\y,#PB_Ignore, #PB_Ignore)
  
Until GetAsyncKeyState_(#VK_ESCAPE) & 1

Posted: **Fri Aug 24, 2012 11:47 pm**

...Another interesting approach but I get the same graphics lag as with Rashad's two-window solution: Cursor graphics lag

I'm going to work on the cursor being an actual cursor since it interacts with my app (any app) easily. Once the cursor is initialized, it's fast, so perhaps a little progress animation will keep the User amused for 4 seconds or maybe I can work-out how to reduce the start-up time.

PureBasic Forums - English

[Solved] Graphic Aberations seen on Win 7. Do you see them?

Re: Graphic Aberations seen on Win 7. Do you see them?

Re: Graphic Aberations seen on Win 7. Do you see them?