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

Question

我有一个非常简单的 FireMonkey 应用程序，它只有一个表单，在 OnPaint 事件中有以下代码。当我使用 Windows 目标运行它时，我看到一条红线和一个红色方 block 。当我在我的 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

我发现 Android 下的 Canvas.Stroke.Kind 被初始化为 bkNone(第 0 个序数)所以没有输出。

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