Discussion :

[ChPr]

Bonjour à toutes et à tous,

J'essaie d'écrire dans un TextRect avec un retour à la ligne, mais cela ne fonctionne pas bien que dans l'unité Graphics (Lazarus 2.0.6 voir à partir de la ligne 111) il soit noté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   Wordbreak : boolean;     // TextRect Only: If line of text is too long
                             //    too fit between left and right boundaries
                             //    try to break into multiple lines between
                             //    words
                             //    See also EndEllipsis.
 
    EndEllipsis: Boolean;    // TextRect Only: If line of text is too long
                             //    to fit between left and right boundaries
                             //    truncates the text and adds "..."
                             //    If Wordbreak is set as well, Workbreak will
                             //    dominate.

Mon code est le suivant :

Code :

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

1
2
3
4
5
//        Zones[j].Canvas.TextStyle.Wordbreak:= True; // n'est pas accessible en écriture, mais ...
        B:= Zones[j].Canvas.TextStyle.Wordbreak; // ... est à True si on le teste
        Zones[j].Canvas.Font.Color:= clBlack;
        Zones[j].Canvas.Font.Size:= 16;
        Zones[j].Canvas.TextRect(Rect(0+100*k, 88, 100+100*k, 128), 0+100*k, 88, Detecteurs[i].Nom, Canvas.TextStyle);

C'est moi qui fait mal les choses ou bien ce paramétrage ne fonctionne-t-il pas ?

Cordialement.

Pierre.

[Andnotor]

WordBreak n'a aucun effet si SingleLine est vrai.

[ChPr]

WordBreak n'a aucun effet si SingleLine est vrai.

Certes, mais comme les composantes de TextStyle ne sont accessibles qu'en lecture, comment fait-on ?

Cordialement.

Pierre.

[jurassic pork]

hello,
utilise un TTextStyle. Exemple

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
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  TextStyle: TTextStyle;
begin
    with PaintBox1 do begin
      TextStyle := Canvas.TextStyle;
      TextStyle.SingleLine := False;
      TextStyle.Wordbreak := True;
      TextStyle.Opaque := False;
      Canvas.TextStyle := TextStyle;
      Canvas.Font.Color:= clBlack;
      Canvas.Font.Size:= 16;
      Canvas.TextRect(PaintBox1.ClientRect, 45, 45, 'salut' + LineEnding + 'les Mickeys ');
  end;
end;    
//

Ami calmant, J.P

[ChPr]

Merci beaucoup "jurassik pork " pour cette ruse de sioux . Je l'ai appliquée à mon cas et ça fonctionne très bien.

Mais l'interligne obtenu est très grand.

J'ai trouver le moyen d'utiliser "BGRABitmap" pour faire la même chose et l'interligne obtenu par ce moyen est plus réduit et me plait mieux. Je garde donc cette dernière solution.

Pour autant, je garde cette idée d'utiliser le type par lui-même lorsque ses composantes ne sont pas disponibles directement dans un autre objet. Je n'ai pas d'exemple comme ça sous la main, mais j’imagine que ce doit être valable pour d'autres types que "TTextStyle".

Cordialement.

Pierre.

[Andnotor]

C'est valable pour toutes les propriétés de type record.

Une propriété a toujours un getter et un setter, ils sont implicites si on ne les définit pas soi-même.

Un getter est une fonction et sur un record elle en retourne une copie. Modifier un champ de ce résultat reviendrait donc à modifier le champ de la copie, la classe l'implémentant n'en saurait rien. Pour éviter cela, le compilateur préfère s'arrêter là et retourner l'erreur "La partie gauche n'est pas affectable".

Ce problème ne survient pas sur une propriété de type classe puisque l'instance d'une classe n'est qu'un pointeur. Champ original ou copie, le pointeur est toujours valide.

[Jipété]

Bonjour,

Mais l'interligne obtenu est très grand.

C'est ça que tu appelles trop grand ? Entre la ligne "salut" et l'autre ?



Cette image est un simple copier/coller du code de JP, sans aucune retouche.

Et comme la hauteur du saut de ligne dépend uniquement de la police utilisée,

J'ai trouvé le moyen d'utiliser "BGRABitmap" pour faire la même chose et l'interligne obtenu par ce moyen est plus réduit et me plait mieux

ta remarque dessus, franchement ça m'étonne.

Fais donc voir une copie d'écran, qu'on juge sur pièce,

Par exemple, là, je me suis contenté de rajouter une autre paintbox et une ligne dans le code de JP, Canvas.Font.Name := ''; avec Minion Pro à gauche et DejaVu Sans à droite :

Je vous laisse mesurer, , mais voilà une piste, un poil de traficotage du rendu plus zoom à 400 % -->

La zone colorée représente l'interligne entre le "s" et le "l" de gauche, enfin, à peu près car il faudrait prendre en compte la hauteur sous les caractères avec jambe descendante (g, j, p, q, y) et celle au-dessus pour les caractères ascendants (b, d, f, h, k, l, t). Mais pour cet exemple ce n'est pas utile.

[ChPr]

Salut Jipété,

Tu as raison, l'interligne n'est pas si grand que ça ... mais il est fonction de la police utilisée. Dans mon cas j'utilisais la police pas défaut et ça me donnait un grand interligne.

Par contre, le texte obtenu est justifié à gauche, je n'ai pas réussi à le centrer. Si j'utilise " TextStyle.Alignment:= taCenter;" alors il n'y a plus de wordwrap.

Bon, de toutes façons, je suis parti maintenant avec TBGRABitmap qui me permet un texte centré et avec wordwrap. Cela me convient bien.

Cordialement.

Pierre.

[Jipété]

Si j'utilise " TextStyle.Alignment:= taCenter;" alors il n'y a plus de wordwrap.

Linux 1 -- Windows 0 ! (pour une fois...)