Delphi的绘图功能[6] - Polygon、Polyline

Delphi的绘图功能[6] - Polygon、Polyline2011-12-15 cnblogs 万一

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  Button2: TButton;
  procedure FormCreate（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate（Sender: TObject）;
begin
 Canvas.Pen.Width := 2;
 Canvas.Pen.Color := clRed;
 Canvas.Brush.Color := clYellow;
end;

{绘制多边形; 它的参数是一个点数组, 这里定义了一个常数数组}

procedure TForm1.Button1Click（Sender: TObject）;
const
 pts: array[0..3] of TPoint = （
  （x:10; y:40）,
  （x:46; y:120）,
  （x:82; y:40）,
  （x:46; y:10）
 ）;
begin
 Canvas.Polygon（pts）;
end;