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