TLabel et Image

Bonjour à tous, je suis de retour toujours avec un pb de Tlabel
(merci encore à Pascal au passge pour la solution à mon précédent pb)
Voilà :
je voudrais insérer une image (icone) dans un tlabel
j'ai essayé pas mal de chose : La propriété OnDrawItem serait bien mais elle n'existe pas pour un Tlabel !
J ai tenté sans succés de la rajouter à la classe Tlabel
(property OnDrawItem etc..)
Si qq a la solution (qui doit être basic j en doute pas ) merci d avance !
:D

salut,

La solution la plus simple est de mettre un TImage associé a ton Label.
Si tu viens vraiment a insérer une image, tu as accès au CANVAS de ton label.
Tu peux donc le redessiner, insérer une image...

Code:

---

1 2 3 4 5

procedure TForm1.dessineLabel(Sender: TObject); begin label1.Canvas.Draw(0,0,TonBitmap); end;

---

ok merci de ta réponse, je vais 'creuser' dans ce sens et je reponds dés que ce sera ok

merci encore

ok, voila j ai testé cette solution
cela fonctionne si j'envoies la fonction par un button
par contre si la procedure est appelée par une autre rien !
je cherche pourquoi, mais pour le moment, pas de solution
il y aurait pas un moyen avec une Timage déjà 'posée' sur la form ?

Il faut que tu définisses le onPaint de ton TLabel, car je crois que tes TLabel sont créés dynamiquement vu ton précédent fil de discussion.

Par ailleurs, pour distinguer ces TLabel créés dynamiquement d'éventuels autres TLabel posés en design-time sur ta fiche, je te propose d'utiliser la propriété Tag du composant.

Par défaut Tag vaut zéro, par contre pour un TLabel créé dynamiquement on définira la valeur 1.
Toujours dans ta procédure de création dynamique de Tlabel, tu redéfiniras l'événement onPaint de la façon suivante:

Code:

---

1 2 3 4 5 6 7 8 9

with TLabel.Create(Self) do begin Parent := Self; AutoSize := False; ... Tag := 1; OnPaint := onLabelPaint; end;

---

Comme dans le précédent post, tu créés dans ta TForm la procédure suivante:

Code:

---

1 2 3 4 5 6 7

TForm1 = class(TForm) ... public ... procedure onLabelPaint(Sender: TObject); end;

---

Cette procédure peut être codée de deux façon différentes:

Ta version de delphi est inférieure à la version D2005

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.onLabelPaint(Sender: TObject); var I: integer; begin for I := 0 to pred(ComponentCount) do if Components[i].Tag = 1 then if Components[i] is TLabel then (Components[i] as TLabel).Canvas.Draw(0,0,Image1.Picture.Bitmap); //modifier ici pour lier avec tes images end;

---

Ta version est au moins égale à D2005

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.onLabelPaint(Sender: TObject); var C: TComponent; begin for C in Self do if C.Tag = 1 then if C is TLabel then (C as TLabel).Canvas.Draw(0,0,Image1.Picture.Bitmap); //modifier ici pour lier avec tes images end;

---

Et normalement cela devrait fonctionner.

Ne prend pas des images trop lourdes car à chaque fois que tu redimentionneras ta fiche par exemple les images de tes TLabels seront redessinés.

@pascal
Ok Merci du coup de main à nouveau, Pascal
je suis au boulot, là mias dés ce soir je vérifie la fonction
effectivement cela doit être bon car déjà en travaillant sur l evénement onpaint de la form c était presque bon
merci encore, je referais un msg pour le résuktat ainsi quà :

@petitcoucou31
pour la solution de départ, qui est trés bonne bien sûr !

@pascal
voila je viens de tester la solution :
ca marche..mais petit hic :
il me faut cliquer sur un des tlabels pour que le bitmap s ' affiche ! sinon rien.
bizarre, on dirait que la fonction appelée ne se termine pas ( essai avec appel de la fonction sur le OnActivate et sur OnPaint de la Form )

@pascal et petitcoucou31

ça y est j'ai trouvé, c'etait tot bête :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

with ListeBoutons[Nombre] do begin Parent:=sb; Autosize:=false; Tag:=1; onPaint:=OnLabelPaint; Left:=10; Height:=18; Top:=Nombre*20; Width := 100; caption:=' '+Memo1.Lines.Strings[Nombre-1]; cursor:=crHandPoint; hint:=Caption; Transparent:=true; // <- trés important !!! onClick:= onLableClick; end;

---

la propriété transparent doit être mise à true pour que l image
se dessine !! fallait le savoir

encore merci à tous

Désolé de revenir sur mon pb :
tout est ok mais voilà le panel sur lequel sont les tlabels dynamiques est en fait une scrollbox.Et qd je fais défiler le scrollbox vers le bas l image dans les labels n'est pas affichée car il faut cliquer de nouveau dessus pour la faire redessiner. En fait l'image dans le label ne s 'affiche que dans la partie visible au départ de la scrollbox ( suis-je clair ?).
Merci d'avance

Ok je reviens pour clore le fil de discussion :
j ai résolu mon pb en utilisant un composant (TtitleLabel)

http://www.torry.net/vcl/panels/enha...titlepanel.zip

et en l'adaptant à mes besoins !
merci encore à Pascal et petitcoucou31 pour leur aide