Re: scrollarea.. et image de fond
Publié : jeu. 12/nov./2009 23:07
				
				API windows, fait une recherche sur msdn (dans google tu tapes le nom de la fonction + msdn et zou)
			Code : Tout sélectionner
CreateImage(0,500,500) 
LoadImage(1,"C:\PureBasic\skin.bmp")     ; chemin de l'image
StartDrawing(ImageOutput(0)) 
DrawImage(ImageID(1),0,0,500,500) 
StopDrawing() 
If OpenWindow(0, 0, 0, 500, 400, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ImageGadget(2,0,0,500,500,ImageID(0)) 
  DisableGadget(2,1)
  ScrollAreaGadget(3, 10, 10, 300,300, 375, 600, 30)
  ImageGadget(8,  -12, -12, 300, 300, ImageID(0))                      ; image gadget standard
  DisableGadget(8,1)
 	ButtonGadget  (4, 10, 10, 230, 30,"Bouton 4")
	ButtonGadget  (5, 50, 50, 230, 30,"Bouton 5")
	ButtonGadget  (6, 90, 90, 230, 30,"Bouton 6")
	StringGadget(7,50,130, 230, 20,"Ceci est le contenu d'une zone de défilement !",#PB_Text_Right)
	CloseGadgetList() 
 Repeat 
	Select WaitWindowEvent() 
				Case  #PB_Event_CloseWindow 
					End 
				Case  #PB_Event_Gadget 
			Select EventGadget()
				Case 4
  		 	 MessageRequester("Info","Le bouton 4 a été appuyé !",#PB_MessageRequester_Ok)
				Case 5
  		 	 MessageRequester("Info","Le bouton 5 a été appuyé !",#PB_MessageRequester_Ok)
				Case 6
  		 	 MessageRequester("Info","Le bouton 6 a été appuyé !",#PB_MessageRequester_Ok)
			EndSelect
		EndSelect 
	ForEver 
EndIf