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