PureBasic

Code : Tout sélectionner

        	 couleur = Point(x1,y1)

Code : Tout sélectionner

         If x1 >= 0 and y1 => 0
        	 couleur = Point(x1,y1)
         EndIf

Code : Tout sélectionner

Procedure Palette_gadget(num,x,y,cadre);Palette_gadget(numero du gadget,x,y,largeur,hauteur)
	; By Dobro
	; Affiche le Gadget Palette
	Larg=256 :haut=256
	
	if cadre=1
		FrameGadget(#PB_Any, x-5, y-15, Larg+15, Haut+20, "Palette By Dobro")
		
		
	Endif
	CanvasGadget(num, x,y,larg,haut)
	If StartDrawing(CanvasOutput(num)) 
		;{ ancien system by Dobro
		DrawingMode(#PB_2DDrawing_Gradient)      
		BackColor( rgb(0,0,0)) ; de Noir a
		;for xc=0 to 255 
		xc=100
			GradientColor(0.2, rgb(xc,0,0)) ; rouge , de rouge a :
			GradientColor(0.3, rgb(xc,0,xc)) ;violet , de Violet a :
			GradientColor(0.4, rgb(0,0,xc)) ; bleu , de bleu a :
			GradientColor(0.5, rgb(0,xc,xc)) ; cyan ,de Cyan a :
			GradientColor(0.6, rgb(0,xc,0));vert ,de Vert a :
			GradientColor(0.7, rgb(xc,xc,0));jaune , de Jaune a:
			GradientColor(0.8,rgb(xc,xc,xc));blanc
			LinearGradient(0, 0, 0, Haut)    
			box(xc, 0, xc,haut)   
		;next xc
		;}
		StopDrawing()
		
	EndIf
Endprocedure

Code : Tout sélectionner

Procedure.l event_palette_gadget(num) ; event_palette_gadget(numero du gadget)
   ;By Dobro modif d'Ar-S
   ; retourne la couleur choisie
   Select EventType()
   		Case #PB_EventType_MouseEnter, #PB_EventType_MouseMove
		     Capture = 1
	    	x1 = GetGadgetAttribute(num, #PB_Canvas_MouseX)
     	 	y1 = GetGadgetAttribute(num, #PB_Canvas_MouseY)
		      If StartDrawing(CanvasOutput(num))
		         If (x1 >= 0 And x1 <=255)  And (y1 >=0 And y1 <=275)
		            couleur = Point(x1,y1)
		            Box (257,0,20,128,couleur)
		            
		         EndIf
		         StopDrawing()
		         ProcedureReturn couleur
	         EndIf
		     
		Case  #PB_EventType_LeftClick
			Capture = 0
			x1 = GetGadgetAttribute(num, #PB_Canvas_MouseX)
     	 	y1 = GetGadgetAttribute(num, #PB_Canvas_MouseY)
		      If StartDrawing(CanvasOutput(num))
		         If (x1 >= 0 And x1 <=255)  And (y1 >=0 And y1 <=275)
		            couleur = Point(x1,y1)
		            Box (257,129,20,128,couleur)
		            
		         EndIf
		         StopDrawing()
		         ProcedureReturn couleur
	         EndIf
	         
	     Default
		     Capture = 0
		         
	EndSelect  
   

   ProcedureReturn -1
EndProcedure