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
- viewtopic.php?t=6680
- viewtopic.php?t=6278