android - 为什么我的 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在获得输出之前包含。