How i Do To Create More Images Gadget One Up of Each?

[Peter]

i guess that you want to program a game, right?

In that case i think it's a good idea to take a look at the Waponez-Example (i know, a lot of stuff to understand, but it explains how to use sprites (better than using ImageGadgets)).

Greetings ... Peter

[Fasasoftware]

Thanks Peter , but i don't want for now program a game, but a Forex App for the web. I'm sorry but there's many different from PureBasic And Spider Basic.
In any case i thank you a lot.

Lestroso

[Peter]

but in the manual there's not the value #True or #False, it there's only 1 or 0

yes, you're right. #True or #False are the wrong values. 1 and 0 will work. I'm sorry for giving you wrong informations.

Here is a snippet to hide Gadgets:

Code: Select all

EnableExplicit

Enumeration
  #Image1
  #Image2
  #ImageGadget1
  #ImageGadget2
  #cmdHideImageGadget1
  #cmdHideImageGadget2
EndEnumeration

Procedure Loaded(Type, Filename$, ObjectId)
  
  Select ObjectId
    Case #Image1
      SetGadgetState(#ImageGadget1, ImageID(#Image1))
    Case #Image2
      SetGadgetState(#ImageGadget2, ImageID(#Image2))
  EndSelect
  
EndProcedure

Procedure LoadingError(Type, Filename$, ObjectId)
  Debug Filename$ + ": loading error"
EndProcedure

Procedure ButtonEvent()
  
  Select EventGadget()
      
    Case #cmdHideImageGadget1
      DisableGadget(#cmdHideImageGadget1, #True)
      HideGadget(#ImageGadget1, 1)
      
    Case #cmdHideImageGadget2
      DisableGadget(#cmdHideImageGadget2, #True)
      HideGadget(#ImageGadget2, 1)
      
  EndSelect
  
EndProcedure

If OpenWindow(0, 320, 100, 640, 410, "Test", #PB_Window_TitleBar)
  
  ButtonGadget(#cmdHideImageGadget1, 10, 10, 200, 30, "Hide ImageGadget1")
  BindGadgetEvent(#cmdHideImageGadget1, @ButtonEvent())
  
  ImageGadget(#ImageGadget1, 10, 50, 0, 0, 0)
  
  ButtonGadget(#cmdHideImageGadget2, 10, 100, 200, 30, "Hide ImageGadget2")
  BindGadgetEvent(#cmdHideImageGadget2, @ButtonEvent())
  
  ImageGadget(#ImageGadget2, 10, 140, 0, 0, 0)
  
  BindEvent(#PB_Event_Loading, @Loaded())
  BindEvent(#PB_Event_LoadingError, @LoadingError())
  
  LoadImage(#Image1, "Data/Toolbar/Copy.png")
  LoadImage(#Image2, "Data/Toolbar/Save.png")
  
EndIf

Greetings ... Peter