Delphi的繪圖功能[2] - 入門

繪圖需要有紙、畫筆、畫刷; Delphi 有 Canvas、Pen、Brush.

Canvas 就是畫布, 譬如窗體的 Canvas 屬性, 就是窗體的畫布;

Pen 是畫筆, 可以設置筆色、筆寬等等;

Brush 是畫刷, 可以設置顏色等等.

//舉例:{繪制直線}

procedure TForm1.Button1Click(Sender: TObject);
begin
　Canvas.Pen.Color := clRed; {設置畫筆顏色}
　Canvas.Pen.Width := 2;　　 {設置畫筆寬度}
　Canvas.MoveTo(10,10);　　　{直線起點}
　Canvas.LineTo(100,100);　　{直線終點}
{這裡的 Canvas 是簡寫, 也可以寫做: Self.Canvas 或 Form1.Canvas }
end;

{矩形填充}

procedure TForm1.Button2Click(Sender: TObject);
begin
　Canvas.Brush.Color := clYellow; {設置畫刷顏色, 也就是填充色}
　Canvas.FillRect(ClientRect);　　{填充窗體客戶區}
end;

//效果圖: