Texthöhen-Berechnung fehlerhaft in FMX auf Android

[AuronTLG]

Das MeasureText scheint ja genau das Problem zu sein.
Sowohl die TMS-Komponente als auch meine vorige manuelle Lösung verwenden ja genau diese Methode.

Das MeasureText macht nämlich auch nichts anderes als ein TTextlayout zu erzeugen, dieses mit den entsprechenden Einstellungen zu füttern und das TRectF, was dabei rauskommt, in die Variable zu schreiben.

Das habe ich bereits manuell probiert, behebt das Problem aber leider auch nicht.

Und wie gesagt, das Problem tritt nur auf Android auf, nicht auf IOS, weswegen ich vermute, dass das sehr tief versteckt ist.

Der Trick, mit dem ich der Lösung am nächsten gekommen bin, ist wie gesagt die Methode mit dem Label. D.h. Label-Width auf Node-Width setzen, Einstellungen angleichen, Text reinsetzen und die dadurch entstandene Label.Höhe zurück an die Node übergeben.
Das begrenzt das Problem bei mir auf einen winzigen Bereich, schließt es aber leider nicht vollkommen aus.

Ich kann das Problem sogar komplett beheben, indem ich auf einem bestimmten Smartphone die Width manuell reinreguliere (Label.Width := Node.Width - 4; z.B.), aber auf einem anderen Smartphone stimmt diese Feinregulierung dann nicht mehr, was für mich ein weiteres Indiz ist, dass da ganz grundsätzlich was falsch läuft bei der Kalkulation.
Wie gesagt, es ist nur ein verhältnismäßig kleiner Bereich, in dem es schief geht, aber leider ist das bereits zu viel.

[EWeiss]

Dann versuche es über Umwege mit GDIPlus.

bsp..

Delphi-Quellcode:

function GetTextBound(UseText: WideString; UseFont: WideString; UseSize: single; var bW: integer;
   var bH: integer; FontCollection: Pointer; UseStrFormat: integer): GPSTATUS; stdcall;
var
   Graphics: LONG_PTR;
   Fam: GpFontFamily;
   TempFont: GpFont;
   DC: HDC;
   strFormat: GPSTRINGFORMAT;
   boundingBox, layoutRect: TGPRectF;
begin
   Result := GenericError;
   strFormat := nil;
   Fam := nil;
   TempFont := nil;
   Graphics := 0;

   // Create matching font
   try
     GdipCheck(GdipCreateFontFamilyFromName(PWideChar(UseFont), FontCollection, Fam));
     if Assigned(Fam) then
     begin
       GdipCheck(GdipCreateFont(Fam, UseSize, 0, 2, TempFont));
       if Assigned(TempFont) then
       begin
         DC := GetDC(GetDesktopWindow);

         GdipCheck(GdipCreateStringFormat(0, 0, strFormat));
         GdipCheck(GdipCreateFromHDC(DC, Graphics));

         FillChar(boundingBox, SizeOf(boundingBox), 0);
         FillChar(layoutRect, SizeOf(layoutRect), 0);

         GdipCheck(GdipMeasureString(Graphics, PWideChar(UseText), Length(UseText), TempFont,
           @layoutRect, strFormat, @boundingBox, nil, nil));

         if Assigned(strFormat) then
           GdipCheck(GdipDeleteStringFormat(strFormat));

         bW := round(boundingBox.Width + 0.5);
         bH := round(boundingBox.Height + 0.5);

         if UseStrFormat <> 0 then
           Swap(bW, bH);

         if (bW <> 0) or (bH <> 0) then
           Result := OK;

         ReleaseDc(GetDesktopWindow, DC);
       end;
     end;
   finally
     if Graphics <> 0 then
       GdipCheck(GdipDeleteGraphics(Graphics));
     if Assigned(TempFont) then
       GdipCheck(GdipDeleteFont(TempFont));
     if Assigned(Fam) then
       GdipCheck(GdipDeleteFontFamily(Fam));
   end;
end;

Wie du das dann mit dem realen GDIPlus Wrapper umsetzt mag mal dahin gestellt sein.
Aber so in etwas sollte es gehen.

gruss

[Sherlock]

Gibt es GDI+ auf Android?

Sherlock

[EWeiss]

Zitat von Sherlock:

Gibt es GDI+ auf Android?

Sherlock

grrr...
Denke nicht. LOL

sollte vorher besser lesen. Schon das zweite mal Heute. Heheheee

gruss

[knaeuel]

ich habe gerade die Toast-Message von Android für iOS/Windows nachprogrammiert und benutze dabei MeasureText. Ich habs nicht vollständig ergründet, aber es schien mir mit MeasureText nur das Problem zu geben, dass es die Textabmessungen immer einzeilig berechnet hat. Also habe ich bei mehrzeiligen Texten die Höhenberechnung auf basis der ein-Zeilen-Höhe selbst durchgeführt. das hat funktioniert.

[Rollo62]

Ich würde mir die OrginalSources.pas suchen wo MeasureText wirklich verwendet wird.
Wenn sich das Problem einfach überschreiben oder ableiten in eine neue Klasse lässt, dann mach das so.

Falls es komplizierter ist, dann
- fixe die OrginalSources.pas
- kopiere die Orginal-Source unter einem Fixes Verzeichnis
- und diese dann statt der OrginalUnit in die Projekt einbinden
- jetzt wird deine Fixes\OrginalSources.pas verwendet, statt der orginalen von Emba.
- dann editiere in deiner Fixes\Source.pas die Stelle wo das benutzt wird
- benutze MeasureText(Texts[0]) für die erste Zeile und multipliziere mit Length(Text) (so in der Art)
- oder bereche, und addiere MeasureText( Texts[I] ) für jede Zeile, und bilde die Summe
- arbeite dann mit der Summe über alle Zeilen weiter
- ! leider funktioniert das so nicht immer so problemlos, aber oft

Zum Glück hast du ja die Sourcen dabei (hoffe ich), um solche Probleme selber zu lösen

Rollo

[TurboMagic]

Bitte auch dieses Berechnungsproblem, falls möglich inklusive einem simplen Demo Programm, in Quality Portal erfassen! Dann besteht zumindest eine Chance auf einen fix. Die erhaltene Report Nummer dann ruhig hier psoten, evtl. möchten das andere auch verfolgen und dafür stimmen.

=> quality.embarcadero.com, falls noch nicht bekannt benutzen.