从 OnDrawCell 事件外部绘制 TStringGrid 单元格,可能吗?

发布于 2024-10-08 13:52:44 字数 96 浏览 4 评论 0原文

有没有什么方法可以在不使用 OnDrawCell 事件的情况下在 Delphi 的 TStringGrid 上绘制特定单元格,例如,如果我单击按钮,则将根据其内容绘制指定单元格。

Is there any way to paint specific cells on Delphi's TStringGrid without using the OnDrawCell event, for instance if I click a button the specified cells will be painted depending on their content.

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(3

我爱人 2024-10-15 13:52:44

为了保持绘画的持久性,你应该这样做:

  • 在按钮的OnClick事件处理程序中,
  • 在同一事件处理程序中设置一些区分这些单元格的数据,在OnDrawCell事件处理程序中使单元格的绘画区域无效,
  • 然后进行正常的绘画 未区分的单元格
  • 对于同一事件处理程序中

,以不同的方式绘制您区分的单元格--jeroen

To keep the painting persistent, the way you should do this is as follows:

  • in the button OnClick event handler, set some data that distinguishes these cells
  • in the same event handler, invalidate the painting area of cells
  • in OnDrawCell event handler do a normal painting for the cells not distinguished
  • in the same event handler, paint your distinguished cells differently

--jeroen

许你一世情深 2024-10-15 13:52:44

不,那是不可能的。下次 Windows 决定重绘控件(您无法真正控制的东西)时,您绘制的所有内容都将被控件的 Paint 方法和所有与绘制相关的事件覆盖。

正如 Jeroen 指出的那样,您必须使用事件方法来进行自定义绘画。

No, that is not possible. The next time Windows decides to redraw the control (something you can't really control), everything you have drawn will be overpainted by the Control's Paint method and all painting-related events.

You have to use the event approach to do custom painting like that as Jeroen points out.

爱要勇敢去追 2024-10-15 13:52:44
procedure TForm1.Button1Click(Sender: TObject);
var aRect: TRect;
begin
  aRect := StringGrid1.CellRect(2,2);

  StringGrid1.Canvas.Brush.Color := clBlue; 
  StringGrid1.Canvas.FillRect(aRect);
  StringGrid1.Canvas.Font.Color := clBlack;
  StringGrid1.Canvas.TextOut(aRect.Left + 2 , aRect.Top + 2, StringGrid1.Cells[2, 2]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var aRect: TRect;
begin
  aRect := StringGrid1.CellRect(2,2);

  StringGrid1.Canvas.Brush.Color := clBlue; 
  StringGrid1.Canvas.FillRect(aRect);
  StringGrid1.Canvas.Font.Color := clBlack;
  StringGrid1.Canvas.TextOut(aRect.Left + 2 , aRect.Top + 2, StringGrid1.Cells[2, 2]);
end;
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文