2

我想在 Lazarus 中创建一个绘图应用程序,但我没有看到合适的控件,我可以在 Deplhi 中将其用作画布。它叫什么名字 ?

4

2 回答 2

7

Delphi中没有Canvas组件,但如果您正在寻找可以在应用程序中用于自定义绘图的组件,那么您正在寻找TPaintBox控件(在 Delphi 中也使用该组件的相同名称)。在 Lazarus 中,您可以在组件面板中找到它:

在此处输入图像描述

在较新版本的 Lazarus IDE 中,您可以从组件选择器中前进以按名称查找组件。如果您按CTRL+ ALT+ P,您将看到以下窗口,您只需在其中键入您要查找的控件的名称,它就会立即被过滤掉。一旦您选择了组件(如果有多个与名称匹配的组件)并按ENTER,则该组件在调色板中被选中:

在此处输入图像描述

然后,您将为组件的OnPaint事件编写事件处理程序方法,TPaintBox并在那里对组件进行绘图Canvas

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Brush.Color := clGreen;
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
end;
于 2013-02-25T00:24:09.583 回答
0

大多数情况下,Canvas 已在 Forms-Applications 中定义。因此,只需输入“画布”后跟一个点即可查看功能。这适用于所有版本的 Lazarus 和 Delphi。

procedure TForm1.FormShow(Sender: TObject);
begin
  canvas.TextOut(10,10,'Hello World');
end;

于 2013-03-05T08:47:43.987 回答