为什么我的Delphi TCanvas.DrawLine在Android上运行时不会出现

Question

我有一个非常简单的FireMonkey应用程序,其中包含单个表单和OnPaint事件中的以下代码.当我使用Windows目标运行它时,我看到一条红线和一个红色方块.当我在Android Nexus 7上运行时,只显示正方形.我必须做些傻事,但它可能是什么？

谢谢你的帮助.

procedure TForm2.FormPaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    Canvas.Stroke.Color := claRed;
    Canvas.Fill.Color := claRed;

    Canvas.Stroke.Thickness := 3;

    Canvas.DrawLine( PointF( 0, 0 ), PointF( 200, 200 ), 1.0 );

    Canvas.FillRect( RectF( 300, 300, 500, 500 ), 0.0, 0.0, [], 1.0  );
end;

Answer 1

我发现Canvas.Stroke.Kind在Android下初始化为bkNone(0'序数)所以没有输出.

Canvas.Stroke.Kind := TBrushKind.bkSolid在获得输出之前需要包含.