Discussion :

[peter27x]

Bonjour,

j'ai un Tshape sur ma form, avec des attributs spécifiques (couleur, ...).

J'aimerais pouvoir, depuis mon code, créer autant d'autres Tshape identiques que je pourrais positionner/afficher où je veux.

Je pensais utiliser un TobjectList pour cela.

Problème, l'aide de Delphi ne m'"aide" pas trop justement (pas d'exemples... je crois que mon aide est buggée...), alors je ne suis pas sûr de pouvoir faire ça, car déjà je me demande si le fait d'ajouter un Tshape dans le tobjectLlist (voir code plus bas) va reellement faire afficher le Tshape (existe t'il reelement en tant qu'objet instancié affiché ou est il juste crée "en mémoire")...

Voici mon code et les pb/questions associés:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
listeImagesCligno : TObjectList;
...
...
// (-> dans une procedure du Mainform:)
listeImagesCligno.Add(TShape.create(self));
 
// cadreImageDepart est la fameuse shape deja presente dans la form, dont je veux reprendre tous les attributs:
listeImagesCligno.Items[0] := CadreImageDepart; // je met zero exprès, je sais qu'il faudra par la suite utiliser la propriété "count" de TobjectList
 
//-> Maintenant ici comment assigner un top et un left spécifique à mon nouveau Shape ???
listeImagesCligno.Items[0].width ne marche pas évidemment !

Merci à ceux qui pourront m'aider...

[peter27x]

je viens de trouver sur le forum pour le width:

Code :

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

TShape(listeImagesCligno.Items[0]).width := ...

par contre mon appli plante après... "adress violation bidul chouette..."

[peter27x]

j'ai trouvé logiquement pour l'assignation des attributs:

Code :

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

1
2
    TShape(listeImagesCligno.Items[0]).Brush := CadreImageDepart.Brush;
    TShape(listeImagesCligno.Items[0]).Shape := CadreImageDepart.Shape;

par contre, ça plante plus loin dans le code... la mémoire se bouffe la queue... z'avez une idée ?

Merci.

[anapurna]

salut


pour récupérer tous les propriété de l'objet utilise la methode assign

Code :

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

1
2
3
4
5
6
 
  if assigned(listeImagesCligno.Items[0]) Then
  begin
    if  listeImagesCligno.Items[0] is TShape) Then
      (listeImagesCligno.Items[0] as TShape).assign(CadreImageDepart);
  end;