Discussion :

[frenchsting]

bonjour,

j'ai un panel (grp_images) avec 15 Timage dessus qui sont des jpeg. Je voudrais pouvoir les intégrer dans un tableau avec d'autres infos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
tab_images : array[0..20] of Record
          haut,
          gauche : word;
          ImageJPG : Tjpegimage;
         etc...;
end;

je voudrais pouvoir charger les images dans le tableau sans le faire une par une du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i:=1 to grp_images.controlcount - 1 do begin
         tab_images[i].ImageJPG := Tjpegimage.Create;
         tab_images[i].ImageJPG.Assign(grp_images.controls[i].picture.graphic);
     ....
end;

ce n'est pas possible : il n'aime pas les propriétés des images dans le grp_images.controls[i].

Si quelqu'un a une idée... Merci d'avance

[Pedro]

Salut
Essaie avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if grp_images.controls[i] is TJpegImage then
tab_images[i].ImageJPG.Assign(TJpegImage(grp_images.controls[i]).picture.graphic);

[frenchsting]

Malheureusement ça ne fonctionne pas (sous delphi 7)

C pas grave. je v les charger "à la main"...

merci pour ton aide

[Pedro]

Malheureusement ça ne fonctionne pas (sous delphi 7)

Ca ne fonctionne pas? C'est à dire? Message d'erreur? Il ne fait rien? Ton unité centrale se transforme d'un coup en machine à coudre?
Essaie d'être plus précis stp

[frenchsting]

Ton unité centrale se transforme d'un coup en machine à coudre?

Non en fer à repasser volant... Et ça vole très mal un fer à repasser

Il refuse de compiler : identificateur non déclaré .picture. Il n'aime pas les cast de type on dirait.

je pense que cela vient du fait que le timage est un héritier du tgraphiccontrol lui même héritier de tcomponent...

J'avoue que je ne suis pas à laisse avec l'héritage entre composants. Je ne sais pas si on peut vraiment faire ça de façon simple.

merci pour ton aide