问Delphi 10西雅图FMX画布画线问题
EN

Stack Overflow用户

提问于 2021-04-23 02:25:53

回答 2查看 78关注 0票数 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Canvas.BeginScene;
  Panel1.Canvas.Stroke.Color := TAlphaColorRec.Red;
  Panel1.Canvas.DrawLine(PointF(0, 0), PointF(Panel1.Width, Panel1.Height), 1);
  Panel1.Canvas.EndScene;
end;

procedure TForm1.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  Panel1.Canvas.BeginScene;
  Panel1.Canvas.Stroke.Color := TAlphaColorRec.Blue;
  Panel1.Canvas.DrawLine(PointF(0, 0), PointF(Panel1.Width, Panel1.Height), 1);
  Panel1.Canvas.EndScene;
end;

在我的代码中有什么问题，两种画线方式是不一样的。代码的结果

红线和蓝线不一样。

delphi

回答 2

Stack Overflow用户

发布于 2021-04-23 02:48:10

为什么要在面板上从其OnPaint事件之外进行绘图？别干那事!在活动的paint操作之外，控件的Canvas还没有准备好进行绘制，因此在这种情况下，您最终会在窗体上而不是面板上进行绘制，正如您的屏幕截图清楚地显示的那样。

如果您需要从其OnPaint事件外部在面板上绘制，则根据需要将相关详细信息保存到边上的某个位置，触发面板以重新绘制自身，并根据需要在OnPaint事件内部应用这些详细信息。到那时，面板的Canvas将被正确设置，以便在面板上绘图。

票数 5

Stack Overflow用户

发布于 2021-04-23 02:45:59

我的猜测是，您需要将代码更改为Button1Click，以反映面板的左上角作为起始点，而不是0，0。

Panel1.Canvas.DrawLine(PointF(Panel1.Left, Panel1.Top), PointF(Panel1.Width, Panel1.Height), 1);

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/67218881

复制

相似问题

问Delphi 10西雅图FMX画布画线问题
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi 10西雅图FMX画布画线问题EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi 10西雅图FMX画布画线问题
EN