Affichage vertical dans un TLabel

Version imprimable

Bonjour,

je voudrai afficher verticalement mon texte dans un TLabel.
J'ai utilisé cet exemple : http://chgi.developpez.com/tips1/#tips7
Pour afficher du texte dans ma fênetre pas de souci ;)

J'ai adapté ce code à un TLabel, mais impossible de comprendre ce qui ne va pas :(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 TCanvas *canvasLbl; LOGFONT lgfont; AnsiString text = "C++ Builder"; canvasLbl = MonLabel->Canvas; //canvas du Label canvasLbl->Font->Size = 20; canvasLbl->Font->Name = "Arial"; GetObject(canvasLbl->Font->Handle, sizeof(LOGFONT), &lgfont); lgfont.lfEscapement = 900; //Angle *10 lgfont.lfOrientation = 900; //Angle *10 lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS; canvasLbl->Font->Handle = CreateFontIndirect(&lgfont); SetGraphicsMode(canvasLbl->Handle, GM_ADVANCED); canvasLbl->Brush->Style = bsClear; //transparent canvasLbl->TextOut(50,210, text);
Pour être sûr que l'erreur ne venait pas des coordonnées (x, y), j'ai fait un label de la taille de la fenêtre :aie:. Mais rien ne s'affiche. Si vous pouviez m'éclairer.

Petite précision : la propriété AutoSize du TLabel est à false.

21/09/2007, 23h29
ero-sennin

Salut,

Ton code fonctionne! Je l'ai mis dans le OnPaint de la Form. Par contre, une question que je pose à mon tour!
Pourquoi on ne peut pas mettre le code dans le OnCreate de la form et appelé la méthode Repaint() ou Refresh ou encore Invalidate() (d'ailleurs, je n'ai pas vraiment su la différence entre ces 3 méthodes)

Sinon Blondelle avait fait l'affichage vertical du TLabel :

C'est sur ce post

Voilà, en espérant que ça t'aide ;)
22/09/2007, 21h04
Auteur

Citation:

Envoyé par ero-sennin

Salut,

Ton code fonctionne! Je l'ai mis dans le OnPaint de la Form.

c'est ce que j'ai fait et ça ne marche pas :( Lundi j'essaierai de le placer dans le OnPaint du TLabel (j'ai complètement oublié d'essayer ce cas de figure :oops:).

Citation:

Envoyé par ero-sennin

Par contre, une question que je pose à mon tour!
Pourquoi on ne peut pas mettre le code dans le OnCreate de la form et appelé la méthode Repaint() ou Refresh ou encore Invalidate() (d'ailleurs, je n'ai pas vraiment su la différence entre ces 3 méthodes)

Je n'en ai pas la moindre idée, ces événements doivent sans doute de dérouler dans un ordre très précis. La doc C++Builder doit sans doute mentionner ces différences.

Citation:

Envoyé par ero-sennin

Sinon Blondelle avait fait l'affichage vertical du TLabel :
C'est sur ce post
Voilà, en espérant que ça t'aide ;)

Insérer de \n entre chaque lettre, ce n'est pas de que je cherche ;)
23/09/2007, 12h57
ero-sennin

:salut:

Alors, là, je n'y comprends plus rien! J'avais réussi à faire en sorte que le texte s'affiche correctement dans le Label et ce matin, je fais pour retester, ça ne fonctionne pas! Plus moyen d'écrire quoi que ce soit dans le canvas du Label :evilred:

Je poursuis encore sur cette histoire ... étrange
Désolé pour la "fausse joie".
En faite, si tu fais le test chez toi en mettant le Label en visible=false et en laissant ton code dans le OnPaint, tu remarqueras que c'est sur le Canvas de ta Form qu'on va travailler ...

Cordialement
23/09/2007, 16h26
Auteur

Citation:

Envoyé par ero-sennin

:salut:

Alors, là, je n'y comprends plus rien! J'avais réussi à faire en sorte que le texte s'affiche correctement dans le Label et ce matin, je fais pour retester, ça ne fonctionne pas! Plus moyen d'écrire quoi que ce soit dans le canvas du Label :evilred:

tu as dû travailler dans le canvas de la forme sans le savoir.

Demain, lundi, je ferai le test en mettant le code de OnPaint du TLabel.
J'ai déjà appliqué ce code dans les cellules d'un TStringGrid sans aucun problème en utilisant le canvas du TStringGrid et en plaçant le code sur l'événement OnDrawCells.

Je suis sûr qu'il ne manque pas grand chose, pour ce code fontionne :roll:

Merci pour tes éclaircissements ;)

Bonjour
En ajoutant la proprièté "Align" a "alClient" ca marche avec le TLabel,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   Label1->Align = alClient;
   Application->ProcessMessage();
   Label1->Canvas->Font->Size = 20;
   Label1->Canvas->Font->Name = "Arial";
   LOGFONT lgfont;
   GetObject(Label1->Canvas->Font->Handle, sizeof(LOGFONT), &lgfont);
   lgfont.lfEscapement = 450;   //Angle *10
   lgfont.lfOrientation = 450;  //Angle *10
   lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
   Label1->Canvas->Font->Handle = CreateFontIndirect(&lgfont);
   SetGraphicsMode(Label1->Canvas->Handle, GM_ADVANCED);
   Label1->Canvas->Brush->Style = bsClear;   //transparent
   AnsiString text = "C++ Builder";
   Label1->Canvas->TextOut(50,210, text);

A+

23/09/2007, 19h03
Auteur
à quoi sert le :
Code:

1 2 Application->ProcessMessage();
:question:
23/09/2007, 19h54
blondelle

Salut Auteur:
La fonction a une petite erreur il faut ecrire ceci

Citation:

Application->ProcessMessages();

Citation:

Envoyé par winow

Bonjour
En ajoutant la proprièté "Align" a "alClient" ca marche avec le TLabel,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   Label1->Align = alClient;
   Application->ProcessMessage();
   Label1->Canvas->Font->Size = 20;
   Label1->Canvas->Font->Name = "Arial";
   LOGFONT lgfont;
   GetObject(Label1->Canvas->Font->Handle, sizeof(LOGFONT), &lgfont);
   lgfont.lfEscapement = 450;   //Angle *10
   lgfont.lfOrientation = 450;  //Angle *10
   lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
   Label1->Canvas->Font->Handle = CreateFontIndirect(&lgfont);
   SetGraphicsMode(Label1->Canvas->Handle, GM_ADVANCED);
   Label1->Canvas->Brush->Style = bsClear;   //transparent
   AnsiString text = "C++ Builder";
   Label1->Canvas->TextOut(50,210, text);

A+

Heu, tu es sur de celà ?
J'ai mis ton code dans le OnPaint de la Form et j'ai rien :aie:

23/09/2007, 21h05
winow

Salut
En fait, j'ai mis ce code dans un TButton,
A+

Je vient de tester dans le onpaint de form1,
Ca marche en rajoutant "Label1->Transparent = true;"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   Label1->Align = alClient;
   Label1->Transparent = true;
   Application->ProcessMessages();//sert que pour ne pas cliquer 2 fois sur un 
                             //TButton pour afficher le message dans le TLabel
   Label1->Canvas->Font->Size = 20;
   Label1->Canvas->Font->Name = "Arial";
   LOGFONT lgfont;
   GetObject(Label1->Canvas->Font->Handle, sizeof(LOGFONT), &lgfont);
   lgfont.lfEscapement = 450;   //Angle *10
   lgfont.lfOrientation = 450;  //Angle *10
   lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
   Label1->Canvas->Font->Handle = CreateFontIndirect(&lgfont);
   SetGraphicsMode(Label1->Canvas->Handle, GM_ADVANCED);
   Label1->Canvas->Brush->Style = bsClear;   //transparent
   AnsiString text = "C++ Builder";
   Label1->Canvas->TextOut(50,210, text);

A+

c'est bon ça marche :yaisse2:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 void __fastcall TfForm::FormPaint(TObject *Sender) { TCanvas *canvasLbl; LOGFONT lgfont; AnsiString text = "C++ Builder"; canvasLbl = Label1->Canvas; canvasLbl->Font->Size = 20; canvasLbl->Font->Name = "Arial"; GetObject(canvasLbl->Font->Handle, sizeof(LOGFONT), &lgfont); lgfont.lfEscapement = 900; //Angle *10 lgfont.lfOrientation = 900; //Angle *10 lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS; canvasLbl->Font->Handle = CreateFontIndirect(&lgfont); SetGraphicsMode(canvasLbl->Handle, GM_ADVANCED); canvasLbl->Brush->Style = bsClear; //transparent canvasLbl->TextOut(50,200, text); }
Propriétés du Label :

Align = alNone (cette valeur n'infuence pas l'affichage)
Anchors = akLeft, akTop (idem, les valeurs prises n'ont pas d'influence)
AutoSize = false :!::!: (sinon c'est rapé :mrgreen:)
Height = 455 ; Width = 161 : Comme AutoSize est à false, il faut définir une hauteur et une largeur au label. En fait, il faut prévoir la zone d'affichage.
Transparent = true

Une remarque : si vous faites AutoSize =true puis AutoSize = false, les valeurs de width et height auront changé et dans ce cas vous risquez de ne plus voir le texte (et ainsi ne pas comprendre pourquoi au début ça marchait et plus ensuite :aie:).
Donc vérifiez bien les valeurs de Heigth et Width de telle sorte que les coordonées (x,y) du texte soient dans la zone d'affichage.

Merci pour votre aide :king: