Menggambar Bagian Lingkaran dengan Pie

Saya menuliskan artikel tentang menggambar dengan Chord (tembereng). Secara sintak hampir sama. Lantas apa beda antara Chord dan Pie. Bedanya ini: Titik ujung chord langsung dihubungkan dengan garis, sedangkan pada Pie, kita bisa menentukan titik di tengah-tengah garis tadi, sehingga ada dua macam garis yang menghubungkan antara kedua ujung busur.

Sintak Pie:
Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4);

x1, y1, x2, y2 adalah kotak imajiner disekitar Pie. Gambar Pie seakan-akan digambar didalam kotak tersebut, dengan xi, y1 adalah koordinat kiri atas dan x2, y2 adalah koordinat kanan bawah.

x3, y3, x4,y4, adalah koordinat titik awal penggambaran busur dan titik akhir busur. Busur akan digambar berlawanan dengan jarum jam.

Class TCanvas terdapat pada unit Graphics, sehingga harus menambahkan unit Graphics di bagian deklarasi Unit.

Program dibawah ini akan menggambar Pie dengan garis merah dengan ketebalan 5:
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;

Dan daerah Pie diwarnai dengan warna kuning solid:
Canvas.Brush.Color := clyellow;
Canvas.Brush.Style := bsSolid;

Program Selengkapnya:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin invalidate; end; procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Pen.Color := clRed; Canvas.Pen.Width := 5; Canvas.Brush.Color := clyellow; Canvas.Brush.Style := bsSolid; Canvas.Pie(0,50, 400,300, 250,50, 25,100); end; end.

Menggambar Bagian Lingkaran dengan Pie 2019-05-27T10:27:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer