PureBasic Forums - English

Code: Select all

   GetCursorPos_(@pt.POINT)
   SetRequesterPosition(pt\X,pt\Y)
   c = ColorRequester()

Code: Select all

#WINDOW_Requester=255

; /////////////////////
; Set position
; /////////////////////

Procedure SetRequesterPosition(x,y)
   ;create the invisible window which defines the position of requester
   If WindowID(#WINDOW_Requester)=0       
      OpenWindow(#WINDOW_Requester,x,y,0,0,#PB_Window_BorderLess|#PB_Window_Invisible,"Temp Hidden Window",WindowID())
   EndIf 

   If WindowID(#WINDOW_Requester)        
      UseWindow(#WINDOW_Requester)
      MoveWindow(x,y)   
   EndIf 
EndProcedure