cs_internaute
Messages postés8Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention 8 août 2005
-
2 août 2003 à 19:04
cs_internaute
Messages postés8Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention 8 août 2005
-
2 août 2003 à 20:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_internaute
Messages postés8Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention 8 août 2005 2 août 2003 à 20:27
Cela sers à ca un forum. ;-)
Je débute aussi, mais y'a pas bc de commentaire sur mes sources...
tu peux aller les voirs si tu veux. C'est celles qui ont été placées juste avant toi sur la première page du site
Glorkonline
Messages postés41Date d'inscriptionsamedi 24 mai 2003StatutMembreDernière intervention 1 janvier 2005 2 août 2003 à 20:20
La, tu viens de m'apprendre quelque chose, je ne savais pas que la propriété AutoSize d'un TLabel empêchait sa redimension automatique ... Bien que le nom l'indique.
cs_internaute
Messages postés8Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention 8 août 2005 2 août 2003 à 19:04
Salut.
C'est une bonne idée... surtout de centrer le texte.
Je n'aurai pas fais mieux...
Moi aussi je débute. Il faut un début à tout
Moi j'aurais peut-être fais un peu différament...
comme suis:
procedure PutConseil(messagetxt : string);
begin
form1.label1.caption:=messagetxt;
end;
et pour l'autre
procedure InitializeConseil(messagetxt : string);
begin
With form1 do begin
Label1.Color := clWhite;
Label1.Font.Color := clBlue;
Shape1.Top := 0;
Shape1.Left := 0;
Shape1.Width := Form1.Width - 8;
Shape1.Pen.Color := clBlue;
Label1.Top := 24;
label1.Left:=1;
label1.Width:=shape1.Width-2;
label1.AutoSize:=false;
label1.Alignment:=tacenter;
end;
PutConseil(messagetxt);
end;
je reprend le meme principe sauf que je dis que le label ne se met plus a la bonne dimension tout seul et que le texte est centré.
Mais je pense que cela peut-encore être amélioré...
2 août 2003 à 20:27
Je débute aussi, mais y'a pas bc de commentaire sur mes sources...
tu peux aller les voirs si tu veux. C'est celles qui ont été placées juste avant toi sur la première page du site
2 août 2003 à 20:20
2 août 2003 à 19:04
C'est une bonne idée... surtout de centrer le texte.
Je n'aurai pas fais mieux...
Moi aussi je débute. Il faut un début à tout
Moi j'aurais peut-être fais un peu différament...
comme suis:
procedure PutConseil(messagetxt : string);
begin
form1.label1.caption:=messagetxt;
end;
et pour l'autre
procedure InitializeConseil(messagetxt : string);
begin
With form1 do begin
Label1.Color := clWhite;
Label1.Font.Color := clBlue;
Shape1.Top := 0;
Shape1.Left := 0;
Shape1.Width := Form1.Width - 8;
Shape1.Pen.Color := clBlue;
Label1.Top := 24;
label1.Left:=1;
label1.Width:=shape1.Width-2;
label1.AutoSize:=false;
label1.Alignment:=tacenter;
end;
PutConseil(messagetxt);
end;
je reprend le meme principe sauf que je dis que le label ne se met plus a la bonne dimension tout seul et que le texte est centré.
Mais je pense que cela peut-encore être amélioré...