Discussion :

[savoir]

Bonjour,

J'essaie d'écrire un texte de façon vertical, pour ce j'utilise un Label, mais je n'arrive pas à le mettre de façon horizontal

Pouvez-vous me dire ce qu'il faut faire pour avoir le texte écrit verticalement et non horizontalement ?

Merci beaucoup

[sat83]

1ère solution
Une astuce (si ton label ne contient un seul mot) :
- tu sépare chaque lettre par un espace,
- tu met AutoSize à false
- tu redimentionne ton Label pour qu'il fasse une lettre de large
- Tu met WordWrap à true

2ème solution
Sinon tu clique droit sur ta Form -> Voir comme texte

Tu cherche ton label et tu ajoute #10#13 (saut de ligne) entre chaque caractère :

Code :

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

1
2
3
4
5
6
7
  object Label1: TLabel
    Left = 280
    Top = 312
    Width = 6
    Height = 65
    Caption = 'L'#10#13'A'#10#13'B'#10#13'E'#10#13'L'
  end;

[savoir]

merci je vais essayer

[savoir]

la second technique fonctionne très bien merci

mais es-ce que je peux aussi écrire de façon vertical mais que les lettres soient également tourné comme si j'écrivais sur le côté droit de ma feuille de façon horizontal càd comme si j'écrivais de bas vers le haut et que j'avais besoin de tourné ma feuille pour pouvoir lire ce qui est écrit ?

[Yurck]

Il y a de nombreux sources de disponibles

Je crois qu'il existe cette option dans la géniale bibliothèque gratuite JEDI

[sat83]

A ma connaissance ce n'est pas possible avec les composants standard de Delphi...

Mais je peux me tromper, et dans ce cas là je veux bien savoir aussi comment faire!

[savoir]

merci, je vais tenter de trouver qlqchose pour ce cas...

[Gilbert Geyer]

Bonjour,

Si tu veux, avec les trucs standards de Delphi, écrire du texte retourné sur la verticale, il suffit de le dessiner sur le canvas du TLabel. Tu peux trouver ici un bout de code à cet effet (voir mon message du 22/10/2008, 16h59) :
http://www.developpez.net/forums/d61...-ombre-canvas/

Permet de dessiner dans un canvas du texte pouvant au choix être incliné ou non, et ombré, ou en relief, ou à plat et bordé ou non d'un liseret de contour,
en couleurs unies ou par transfert de motifs texturés provenant de BitMap(s) pouvant être étirés. Donc permet aussi de dessiner un texte simple et vertical sans utiliser toutes les options. Testé sous Windows 98 et Delphi-5 donc marche avec des configurations plus récentes.

Dans le code exemples d'utilisation, suffit de remplacer "image1.canvas" par label1.canvas" pour commencer.

A+

[savoir]

c'est gentil mais je n'arrive pas à accéder à ton lien, apparement il est privé

[savoir]

ok merci

[Gilbert Geyer]

Salut,

je n'arrive pas à accéder à ton lien, apparement il est privé

... Bizarre.

Essayes donc d'y accéder :
- soit via la Fonction "Chercher" avec le mot clef "InsererTexteDans" ou avec "texte ombré",
- soit en recherchant dans la liste des discussions celle du 13/09/2008, 21h40 intitulée [QR] Comment dessiner un texte ombré sur un Canvas ?

Mais en prévision du cas où tu n'y arriverais pas, voiçi un extrait du code, la procédure qui permet au-moins de dessiner du texte verticalement sur le canvas du Tlabel sans ombre dégradée ni enluminures autres que celles fournies par la Font associée au TLabel qui doit être scalable c.à.d TrueType :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure CanvasAffiTexteIncline(C : TCanvas; X,Y: integer; DD : word; S: String);
var       FonteRec : TLogFont;
          VieuFonteHandle,         // Poignée ancienne fonte
          NouvFonteHandle : HFONT; // Poignée fonte temporaire
begin     GetObject(C.Font.handle,SizeOf(FonteRec),Addr(FonteRec));
          FonteRec.lfEscapement:=DD; // modif angle
          NouvFonteHandle:=CreateFontIndirect(FonteRec); // nelle poignée/ancienne
          VieuFonteHandle:=SelectObject(C.Handle,NouvFonteHandle); //Sauve ancienne
          C.TextOut(X,Y,S); // Affiche texte
          NouvFonteHandle:=SelectObject(C.Handle,VieuFonteHandle); // Restitue fonte
          DeleteObject(NouvFonteHandle); // Del du temporaire
end; // CanvasAffiTexteIncline(

... et code d'uitilisation (où, pour le fun j'ai ajouté une ombre plate) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormActivate(Sender: TObject);
//        Pour dessin d'un texte à la verticlale :
var       X,Y : integer; Texte : string; Inclinaison : word;
begin     Texte:='Ecriture verticale';
          with Label2 do // Préparation du Label (Fonte, par exemple Arial, à déclarer dans l'Inspecteur d'Objets
          begin caption:='';
                Inclinaison:=900; //<-- en Dixièmes de Degrés
                width:=2+canvas.TextHeight(Texte);
                height:=2+canvas.TextWidth(Texte);
                X:=2; Y:=height;
                upDate;
          end;
          Label2.Canvas.Font.color:=clSilver; //<-- On ajoute une petite ombre portée plate
          CanvasAffiTexteIncline(label2.canvas, X,Y, Inclinaison, Texte);
          Label2.Canvas.Font.color:=clRed;    //<-- Une couche de peinture pour le Texte
          CanvasAffiTexteIncline(label2.canvas, X-2,Y-2, Inclinaison, Texte);
end;

A+

[edam]

c'est gentil mais je n'arrive pas à accéder à ton lien, apparement il est privé

moi aussi, j'ai pas pu accéder, pour le code sa marche pas chez moi , je veux l'utilise pour écrire sur le canvas d'un TStringGrid
merci

[ShaiLeTroll]

Alors Edam, tu ressuscite une vieille discussion ... pour le TStringGrid, tu dois le faire durant les OnDrawCell ...

EDIT: Mais chez moi non plus ça ne passe pas, Win XP et D7

Sinon, le sujet étant dans la section "Contribuez", c'est normal, c'est une zone limitée d'accès ....