Filltext with Wordwrap produces gargabe at the bottom

  

We’ve got a small calendar app that has been running fine so far with VCL and I’m now tasked with porting it over to FMX so that we can use it on Android.

The description of an appointment is wordwrapped (and actually is the only text that gets wordwrapped.)

For some reason the FillText function will put out garbage below the last fully visible line.

Has anyone seen this before?

I of course also tested it with just a simple panel on the form and the following code. (Keep in mind that the panel has to be small enough so the text overflows at the bottom.)

Works fine on win32, but produces the same garbage on Android.

procedure TForm1.Panel1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
aText:String;
begin
aText := ‘This is a Taitäl’ + #13#10 +
‘Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! ‘ + ‘Dies ist die Beschreibung!! Dies ist die Beschreibung!!Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!! Dies ist die Beschreibung!!Dies ist die Beschreibung!!’;
Canvas.Fill.Color := TAlphaColors.Black;
Canvas.FillText(Panel2.LocalRect, aText, True, 1, [], TTextAlign.Leading, TTextAlign.Leading);
end;

Comments are closed.