ImageGadget

djmcg · Message par **djmcg** » mar. 28/sept./2004 4:27

Bonjour,

A votre avis, pourquoi la troième ligne de ImageGadget efface le premier carré ?
Merci

Procedure Carre(CheminImage.s)
  CreateGadgetList(WindowID(0))
  LoadImage(#gadget_img_CarreOrange, CheminImage + "Carre_Orange.bmp")
  LoadImage(#gadget_img_CarreBleu, CheminImage + "Carre_Bleu.bmp")
  ImageGadget(#gadget_img_CarreOrange, 20, 20, 0, 0, UseImage(#gadget_img_CarreOrange))
  ImageGadget(#gadget_img_CarreBleu, 160, 20, 0, 0, UseImage(#gadget_img_CarreBleu))
  ImageGadget(#gadget_img_CarreOrange, 300, 20, 0, 0, UseImage(#gadget_img_CarreOrange))    


EndProcedure

Anonyme2 · Message par **Anonyme2** » mar. 28/sept./2004 4:33

Change l'identifieur #gadget_img_CarreOrange de la 3eme image qui est le même que celui de la 1ere image.

Jacobus · Message par **Jacobus** » mar. 28/sept./2004 10:12

Chaque gadget doit avoir une valeur de constante distincte

Dans ton énumération tu dois avoir par exemple :

Code : Tout sélectionner

#gadget_img_CarreOrange_1 = 0
#gadget_img_CarreOrange_2 = 1
#gadget_img_CarreBleu         = 2

et ainsi tu obtiens :

Code : Tout sélectionner

Procedure Carre(CheminImage.s) 
  CreateGadgetList(WindowID(0)) 
  LoadImage(#gadget_img_CarreOrange_1, CheminImage + "Carre_Orange.bmp") 
LoadImage(#gadget_img_CarreOrange_2, CheminImage + "Carre_Orange.bmp") 
  LoadImage(#gadget_img_CarreBleu, CheminImage + "Carre_Bleu.bmp") 
  ImageGadget(#gadget_img_CarreOrange_1, 20, 20, 0, 0, UseImage(0)) 
  ImageGadget(#gadget_img_CarreBleu, 160, 20, 0, 0, UseImage(1)) 
  ImageGadget(#gadget_img_CarreOrange_2, 300, 20, 0, 0, UseImage(2))    


EndProcedure

Normalement ça devrait fonctionner
@+ jacobus

djmcg · Message par **djmcg** » mar. 28/sept./2004 18:33

j'aurais du le voir, avec le tutos.
Merci,