2013-02-23 67 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;

相關問題