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

发布时间：2020-12-15 09:36:54 所属栏目：大数据来源：网络整理

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

我有一个非常简单的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,[],1.0  );
end;

解决方法

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!