color requester Position

[dobro]

Little trick to be able to display the colorRequester at any place
Of the screen

Code: Select all

; on va poser le gadget colorRequester a ces coordonées


Declare color_requester(posx,posy)

Posx= 800
Posy=400
debug  color_requester(posx,posy) ; appel de notre nouveau requester


Procedure color_requester(Posx,Posy)
		; By Dobro
		protected Win=1
		Protected Container=1
		OpenWindow(Win, posx, posy, 1, 1, "ImageGadget",#PB_Window_BorderLess     )		
		; ******* l'astuce pour placer le gadget palette ***********
				ContainerGadget(container,1, 1, 1, 1, #PB_Container_Raised) ;>2
						Couleur = ColorRequester() ;>3
				CloseGadgetList()  ;>2
		; **********************************************
		closewindow(win)
		ProcedureReturn Couleur
EndProcedure