Page 1 sur 1
Include une image dans un exe
Publié : dim. 11/févr./2018 21:32
par Trebor55
Bonjour,
Dans Purebasic est-il possible d'include une image dans un exe au lieu de le charger au demarrage de cet exe
Re: Include une image dans un exe
Publié : dim. 11/févr./2018 21:43
par falsam
Oui avec la fonctionnalité IncludeBinary en datasection associé à CatchImage()
Code : Tout sélectionner
;Plan de l'application
Declare Start()
Declare Exit()
Start()
Procedure Start()
Protected Image = CatchImage(#PB_Any, ?image)
OpenWindow(0, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ImageGadget(1, 10, 10, 100, 30, ImageID(Image))
;Triggers
BindEvent(#PB_Event_CloseWindow, @Exit())
Repeat : WaitWindowEvent() : ForEver
EndProcedure
Procedure Exit()
End
EndProcedure
DataSection
image:
IncludeBinary #PB_Compiler_Home + "Examples\Sources\Data\PureBasic.bmp"
EndDataSection