色々な図形を描画する

色々な図形を描く

TCanvasの描画系のメソッドをまとめてみました

①	楕円を描画	`procedure Ellipse(X1, Y1, X2, Y2: Integer);`
②	角の丸い長方形を描画	`procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);`
③	多角形を描画	`procedure Polygon(Points: array of TPoint);`
④	弧を描画	`procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);`
⑤	長方形を描画	`procedure Rectangle(X1, Y1, X2, Y2: Integer);`
⑦	扇形を描画	`procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Longint);`
⑧	線の始点を決定	`procedure MoveTo(X, Y: Integer);`
⑨	線を引く	`procedure LineTo(X, Y: Integer);`

■下記はTCanvasの描画系のメソッドの使用例です。

■色々な図形を描画する

//①楕円形を描画



Form1.Canvas.Ellipse(0, 0, ClientWidth div 2, ClientHeight div 2);

//②角の丸い四角形を描画　

Form1.Canvas.RoundRect(0, 0, ClientWidth div 2, ClientHeight div 2, 50,
50);

//③直角三角形を描画

Form1.Canvas.Polygon([Point(0, 0), Point(0, ClientHeight),Point(ClientWidth,
ClientHeight)]);

//④半円を描画

Form1.Canvas.Chord(0,0,300,300,0,0,150,150);

//⑤四角形を描画

Canvas.Rectangle(0, 0, ClientWidth div 2, ClientHeight div 2);

//⑥扇形を描画

Form1.Canvas.Pie(0,0,300,300,300,0,0,0);

//⑦線の始点を設定

Form1.Canvas.MoveTo(100,100);

//⑧線を引く

Form1.Canvas.LineTo(200,100);

Delphi　Tipsのページへ

ホーム