Enorme, l'astuce du jour.

[nico]

Je viens de découvrir sur MSDN, que le statictext (ImageGadget) peut non seulement charger une image ou une icône mais aussi un curseur animé. (*.ani)

Et ça marche Nickel, une petite animation s'affiche sans effort.

C'est pas une bonne nouvelle!

[nico]

Je viens de faire des essais en mettant l'imageGadget dans un StatusBar, c'est vraiment exellent.

[Thyphoon]

MSDN aura au moins fait un heureux sur terre !!!

[julien]

ça marche pas si tu inclus le .ani dans l'exe

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #ButtonImage_0
  #Image_1
EndEnumeration

;- Image Plugins

;- Image Globals
Global Image0
Global Image1

;- Catch Images
Image0 = CatchImage(0, ?Image0)


;- Images
DataSection
Image0:
  IncludeBinary "1.ani"

EndDataSection

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 387, 422, 223, 139,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "test")
    If CreateGadgetList(WindowID())
      ImageGadget(#ButtonImage_0, 65, 20, 32,32, Image0,#PB_Image_Border)
      
      
    EndIf
  EndIf
EndProcedure
Open_Window_0()






Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    

    
    GadgetID = EventGadgetID()
    
    If GadgetID = #ButtonImage_0
      Debug "GadgetID: #ButtonImage_0"
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;

Lui c'est bon il charge l'ani en externe

Code : Tout sélectionner

  If OpenWindow(0,0,0,245,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ImageGadget") And CreateGadgetList(WindowID(0)) 
    If LoadImage(1, "1.ani")    ; change 2nd parameter to the path/filename of your image 
      ImageGadget(0, 10,10,100,83,UseImage(1))                      ; imagegadget standard 
      ImageGadget(1,130,10,100,83,UseImage(1),#PB_Image_Border)     ; imagegadget with border 
    EndIf 
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
  EndIf 

[nico]

Faudrait essayer en tant que ressource pour voir.

[gansta93]

Comment peut-on lire les resources de l'exécutable ?

[Oliv]

Comment peut-on lire les resources de l'exécutable ?

ResourcesHacker le fait je crois

[gansta93]

Oui je le sais, mais ce que je veux savoir, c si je mais une image en resources dans mon exécutable, comment à partire de ce même exécutable, je peux accèder aux resources de celui-ci?

[Oliv]

Je ne sais pas, regarde les exemples de programme d'install sur le forum, ils doivent forcément le faire. Sinon regarde sur CodeArchiv

[comtois]

je ne suis pas sûr de bien comprendre ce que tu veux faire , mais bon si je suis à côté de la plaque tu me le diras

CatchImage(0, ?Logo)
End

Logo: IncludeBinary "Logo.bmp"

c'est dans la doc .

[nico]

Gangsta, essaye ça et n'oublie pas d'inclure ta ressource.

Code : Tout sélectionner

#lr_loaddefaultsize=$40
; curseur est le nom de la ressource que tu as fourni
hcursor=LoadImage_(GetModuleHandle_(0),"curseur",#IMAGE_cursor,0,0,#lr_defaultcolor|#lr_loaddefaultsize)
Debug hcursor 

If OpenWindow(0,0,0,245,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Curseur Animé")
  If CreateGadgetList(WindowID(0)) 
    ImageGadget(0, 10,10,32,32,hcursor)
  EndIf 
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
EndIf 

[gansta93]

Cool, je testerais ça quand je me trouverais un curseur... je voulais savoir ça par curiosité... merci .
ça peut toujours aider, les resources.

Encore merci.

[Dr. Dri]

Gangsta, essaye ça et n'oublie pas d'inclure ta ressource.

j'ai du louper pas mal de trucs...
coment est-ce qu'on ajoute des ressources dans un programme (peut etre même une dll ??) avec PB ?

Dri

[gansta93]

ResourceHacker peut t'aider, sinnon paraît que JaPBe le fait.

[nico]

Dr Dri,

Autant utiliser JaPbe, pour inclure une ressource:
Projet-Options du projet-Ressources

Tu peux inclure des ressources aussi dans une DLL

J'espère que la prochaine version de Pure pourra inclure les ressources, c'est quand même super important, cette fonctionnalité.