2013-02-23 112 views

回答

7

有一个在Delphi中没有Canvas成分,但如果你正在寻找一个组件,它可以在应用程序中使用自定义绘制,那么你正在寻找的TPaintBox控制(此组件的名称相同也用于Delphi)。在拉撒路您可以在组件面板在这里找到:

enter image description here

在拉撒路IDE的新版本,你可以从组件选择提前找到名称组件。如果您按CTRL + ALT + P,您将看到以下窗口,您只需键入要查找的控件的名称并立即进行过滤。一旦您选择的组件(如果有多个匹配的名称),然后按ENTER,该组件在调色板中选择:

enter image description here

然后,您将编写事件处理方法为OnPaint事件您TPaintBox组件和做你的图纸上的组件的Canvas有:

procedure TForm1.PaintBox1Paint(Sender: TObject); 
begin 
    PaintBox1.Canvas.Brush.Color := clGreen; 
    PaintBox1.Canvas.FillRect(PaintBox1.ClientRect); 
end; 
0

画布是在窗体的应用程序已经定义大多数情况下。因此,只需输入“画布”,然后输入点即可查看功能。这适用于所有版本的Lazarus和Delphi。

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