Fehler Firemonkey im OnPaint?

[sko1]

Hallo,

ich zeichne auf einem Panel im OnPaint:

Delphi-Quellcode:

procedure TForm1.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
var
  b, h: single;
begin
  b := ARect.Width;
  h := ARect.Height;
  with Canvas do
  begin
    BeginScene();
    fill.Color := talphacolors.Black;
    stroke.Color := talphacolors.Black;
    StrokeThickness := 5;
    FillText(Rectf(0, 30, 200, 50), 'Hallo Du Da', false, 1, [],
      TTextAlign.Leading, TTextAlign.Leading);
    DrawLine(Pointf(0, 20), Pointf(b, 20), 1);
    DrawLine(Pointf(0, 0), Pointf(b, h), 1);
    EndScene;
  end;
end;

Unter Windows ist der Text und die zwei dicken Striche sichtbar, auf dem Android-Handy nur der Text!
Was ist denn da schon wieder "kaputt" ?

Hat jemand eine zündende Idee?

Ciao
Stefan

[sko1]

StackOverFlow hat mir die Lösung verraten, wieder mal typisch Embarcadreo:

In Android ist defaultmäßig

Stroke.Kind := TBrushKind.None;

und klar, wenn man das dann im Code nicht explizit setzt, wird auch nichts gezeichnet...
Warum aber die Defaulteinstellung für Windows und Android unterschiedlich ist, kann nur Embarcadero erklären

Ciao
Stefan