Comment obtenir le nombre de lignes affichées dans TMemo?

Question

J'ai besoin d'obtenir le nombre de lignes affichées dans TMemo (ceci inclut les lignes qui ont été encapsulées parce que WordWrap a la valeur true). J'ai besoin de cela pour ajuster automatiquement la hauteur du Tememo à son contenu.

lines.count bien sûr ne se soucient pas des lignes emballées donc je ne peux pas l'utiliser. étrangement TextPosToPos aussi ne se soucient pas de lignes enveloppées je ne peux pas l'utiliser trop ...

I m sous FireMonkey et delphi Berlin

Answer 1

Je ne sais pas pourquoi l'utilisation de ContentBounds n'est "pas vraiment idéale". Voilà comment je le fais:

uses 
    FMX.TextLayout, FMX.Graphics; 

function MeasureTextHeight(const AFont: TFont; const AText: string): Single; 
var 
    LLayout: TTextLayout; 
begin 
    LLayout := TTextLayoutManager.DefaultTextLayout.Create; 
    try 
    LLayout.BeginUpdate; 
    try 
     LLayout.WordWrap := False; 
     LLayout.Font.Assign(AFont); 
     LLayout.Text := AText; 
    finally 
     LLayout.EndUpdate; 
    end; 
    Result := LLayout.TextHeight; 
    finally 
    LLayout.Free; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    LTextHeight: Single; 
    LLines: Integer; 
begin 
    LTextHeight := MeasureTextHeight(Memo1.TextSettings.Font, Memo1.Text); 
    LLines := Round(Memo1.ContentBounds.Height/LTextHeight); 
end; 

Answer 2

Modifier après avoir appris ContentsBounds. Ma réponse originale (et obsolète) est toujours visible dans les révisions.

Pourquoi avez-vous besoin du nombre de lignes affichées pour ajuster la hauteur du TMemo? Cette redimensionne la TMemo à son contenu:

Memo1.Height := Memo1.ContentBounds.Height + 5; // Small const to allow for rendering margins 

Il prend également mot-wrap en considération.

Answer 3

C'est la façon approximative j'utiliser pour calculer le nombre de lignes d'un TMemo (style) sous FireMonkey:

type 
    _TStyledMemoProtectedAccess = class(TStyledMemo); 

procedure TALStyledMemo.OnApplyStyleLookupImpl(sender: Tobject); 
Var I, j, k, l: integer; 
begin 

    // TALStyledMemo 
    // TStyledMemo 
    //  TLayout 
    //   TActiveStyleObject 
    //   TLayout 
    //   TScrollBar 
    //   TScrollBar 
    //   TLayout 
    //    TSmallScrollBar 
    //    TSmallScrollBar 
    // TScrollContent 
    for I := 0 to controls.Count - 1 do begin 
    if (controls[i] is TStyledMemo) then begin // << TStyledMemo 
     fStyledMemo := TStyledMemo(controls[i]); 
    end; 
    end; 

end; 

function TALStyledMemo.getLineHeight: Single; 
begin 
    if fStyledMemo <> nil then result := _TStyledMemoProtectedAccess(fStyledMemo).GetLineHeight 
    else result := 0; 
end; 

function TALStyledMemo.getLineCount: integer; 
var aLineHeight: Single; 
begin 
    aLineHeight := getLineHeight; 
    if compareValue(aLineHeight, 0, Tepsilon.Position) > 0 then result := round(ContentBounds.Height/aLineHeight) 
    else result := 0; 
end;