Discussion :

[BuzzLeclaire]

Bonjour,

Voici ma problématique.
Comment savoir si un caption redissiner avec DrawText comporte 1 ou plusieur ligne
voici mon code

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
18
19
 
....
     Font.Name := self.Font.Name;
      Font.Size := self.Font.Size;
      Brush.Style := bsClear;
      if Self.Caption1 = '' then DrawText(Canevas.Handle, PChar(Self.Caption) , -1, Rect, DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE)
      else
      Begin
        DrawText(Canevas.Handle, PChar(Self.Caption1) , -1, Rect, DT_CENTER or DT_NOPREFIX or DT_WORDBREAK);
        Rect.Top := Rect.Top + Self.Font.Size + 7;

        Pen.Color := clBlack;
        MoveTo(Rect.Left+2,Rect.Top);
        LineTo(Rect.Right-2,Rect.top);

        Rect.Top := Rect.Top + 2;
        DrawText(Canevas.Handle, PChar(Self.Caption2) , -1, Rect, DT_NOPREFIX or DT_WORDBREAK);
      end;
.....

La partie en pourpre concerne le haut du canevas du Handle
La partie en Orange c'est une simple ligne de séparation
La partire en Olive est la suite de l'information

Si par exemple Caption1 va genere 2 lignes, la ligne de séparation s'écrit par dessus, en fait elle ecrase ma 2ème ligne.
Si mon Caption1 à une seule ligne tout va bien.

Comment mettre à jour mon Rect.Top ??

Merci à vous

[Franck SORIANO]

La fonction DrawText retourne la hauteur du texte qui a été écrit :
http://msdn.microsoft.com/en-us/libr...09(VS.85).aspx

Donc en fait, il te suffit d'un truc du genre :

Code :

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

1
2
3
4
5
6
7
 
var
  textHeight : integer;
begin
  ...
  textHeight := DrawText(....);
  rect.Top := rect.Top + textHeight; // Au lieu de Rect.Top := Rect.Top + Self.Font.Size + 7;

[BuzzLeclaire]

MErci de ton aide : voilà le code que j'ai ecris

Code :

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

1
2
        TailleDuTexte := DrawText(Canevas.Handle, PChar(Self.Caption1) , -1, Rect, DT_CENTER or DT_NOPREFIX or DT_WORDBREAK);
        Rect.Top := Rect.Top + TailleDuTexte + 5;

Cela fonctionne trés bien, tu as résolu ma problèmatique et je t'en remercie.

PS : TextHeight on peut pas l'utiliser apparement c'est un paramètre déjà existant sur TCanvas.

Merci encore.