主页 / 问题 / 1292963
Accepted
Kromster
Asked:2022-06-08 14:09:28 +0000 UTC2022-06-08 14:09:28 +0000 UTC

用于在侧面绘制框架的标准 VCL 控件是什么？

  • 772

我需要一个标准的 VCL 控件，它允许您选择沿 4 个边缘的帧的存在、颜色和厚度。TShape 允许您设置一个框架，但它对所有 4 面都是“通用的”，但我需要单独配置的。Delphi 的标准交付需要该控件（即，不安装任何左包），最好是TShape 类型（更改操作系统/应用程序样式时无需样式。也就是说，越简单越好）。

标准VCL中是否有这样的控制？（剧透：他们说不）

这样的控制如何创造出最低的血量？（即不制作必须安装在所有开发机器上的新组件）。

TPanel 提供了类似的功能 - 您可以以有限的方式选择斜角类型、厚度和侧面，但您不能设置颜色或仅设置边缘（没有“照明”效果）。

TBevel - 您可以以有限的方式选择斜角的边，但不能指定颜色或厚度。

PS 我知道创建自己的控件，但在急于编写我的自行车之前，我想检查一下“常规”方法的可用性。
PPS 是可取的控制，而不是在画布上绘制的一种方式。

delphi

1 个回答

  1. Best Answer

    Delphi 有一个标准的TPaintBox组件，它有一个标准的 OnPaint 方法，您可以在其中绘制任何您想要的东西，如下所示：

    procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  PBox: TPaintBox absolute Sender;
begin
  with PBox.Canvas do
  begin
    MoveTo(0, 0);
    Pen.Color := clRed;
    LineTo(PBox.ClientWidth - 1, 0);
    Pen.Color := clTeal;
    LineTo(PBox.ClientWidth - 1, PBox.ClientHeight - 1);
    Pen.Color := clGreen;
    LineTo(0, PBox.ClientHeight - 1);
    Pen.Color := clNavy;
    LineTo(0, 0);
  end;
end;
    • 1

相关问题