Höhe eines Textes in einem Memo ermitteln

[sko1]

Hallo,

in einer Android-App werden Texte in Memos angezeigt.

Benutzer bemängeln nun, dass man nicht erkennen kann ob mehr Text vorhanden ist und gelesen werden müsste als momentan je nach Größe des Memos sichtbar ist.
Die Scrollbars kommen ja erst, wenn man das Memo antippt

Nun wollte ich die Gesamthöhe des enthaltenen Textes ermitteln, mit der Memo-Höhe vergleichen und ggf. ein Symbol anzeigen.

Nur wie komme ich unter Android mit FMX an die Höhe des Textes?

Oder gibt es einen viel besseren Ansatz, dem Anwender zu signalisieren dass da mehr ist als angezeigt wird?

Ciao
Stefan

[TiGü]

Ist die Zeilenanzahl deines Memos fix oder verändert die sich je nach Gerät/Bildschirmgröße?

[himitsu]

Nja, eine Lösung währe wohl rauszufinden wie man das Memo dazubringt die scrollbar nicht auszublenden.

Du könntest auch versuchen mal das native (platform) TMemo zu nutzen, ob es sich "besser" verhält.



Die Anzahl der Zeilen übe Memo.Lines.Count mit der Höhe einer Textzeile ginge auch, so lange im Memo kein Umbruch der langen Zeilen vorkommt (WordWrap), womit es dann mehr Zeilen wären.

Zitat von TiGü:

Ist die Zeilenanzahl deines Memos fix oder verändert die sich je nach Gerät/Bildschirmgröße?

Die Zeilenanzahl mit oder ohne WordWrap, die Größe des Memos, die Textgröße (manche passen ja alles an die Displaygröße an) und der Font, welcher auf diesem Gerät vewendet wird.
Viele Einflüsse, auf das Verhältnis von Text zu Memo.

[sko1]

Hallo,

ich habe mal mit folgendem Code:

Delphi-Quellcode:

  
procedure TFormMain.MemoAuftragChange(Sender: TObject);
var
  r: TRectF;
begin

// Font nochmal übergeben sonst funktioniert Measuretext nicht!
  TMemo(Sender).Canvas.Font.Assign(TMemo(Sender).Font);
  r := RectF(0, 0, TMemo(Sender).ViewportSize.Width, 20000);
  TMemo(Sender).Canvas.MeasureText(r, TMemo(Sender).text, true, [],
    TTextAlign.Leading, TTextAlign.Leading);
  LabelScrollHinweis.Visible := r.Bottom > TMemo(Sender).ViewportSize.Height;

versucht, ein Label mit " v v v v v " im Memo anzeigen zu lassen.
Das funktioniert mit 2 Einschränkungen:

1) das Label hat als Parent das Memo und ist Align = alCenter und wird dort auch wie gewünscht angezeigt.
Scrollt man nun im Text bewegt sich das Label mit!
2) Das label wird zwar per Code visible = true aber wird erst sichtbar wenn man das Memo in der Größe ändert (die FormMain vergrößert)

Bekommt man das auch noch irgendwie hin?

Ciao
Stefan

[Rollo62]

Ich habe zumindest mal bei anderen Control mit dem TextHeight von Canvas mal Erfolg gehabt.

Delphi-Quellcode:

  // In OnUpdateObjects vom ListView
 
  LCtrl.Canvas.Font.Assign( LFont );
  LTh := LCtrl.Canvas.TextHeight( 'HH' ) * LCtrl.Canvas.Scale;  // so in er Art

Setze es aber momentan nicht ein, der Test war vor Rx10.0.x
Vielleicht hilft dir das ja weiter.

Rollo