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