Membuat Segala Bentuk dengan Polyline dan Polygon

Saya menulis tentang bagaimana membuat bentuk-bentuk beraturan dengan fungsi-fungsi Rectangle, RoundRect, atau bentuk-bentuk lingkaran dan bagiannya di Arc, Chord, Pie. Tetapi lebih daripada itu, kita juga dapat membuat sembarang bentuk dengan bantuan Polyline dan Polygon di Unit Graphics, class TCanvas.

Pertama-tama tugas kita adalah membuat kumpulan titik yang akan dibuat di TPoint. Kemudian masukkan variabel bertipe TPoint ini sebagai parameter Polilyne seperti ini:

Sintak:
Canvas.Polyline(Titik);
Guna: membuat bentuk terbuka. Titik awal tidak terhubung secara otomatis dengan titik akhir.

atau dengan

Polygon(Titik);
Guna: membuat bentuk tertutup. Titik akhir akan tersambung secara otomatis ke titik awal.

Cara mendeklarasikan Titik adalah sebagai berikut:
var
    Titik : array[IndexAwal..IndexeAkhir] of TPoint.

TPoint diisi dengan koordinat titik-titik yang akan dituju oleh penggambaran. Sebagai contoh:

var
   Titik : array[0..3] of TPoint;
begin
   Titik[0] := Point(25,10);
   Titik[1] := Point(300,10);
   Titik[2] := Point(300,100);
   Titik[3] := Point(25,100);
end;

Kemudian penggambaran dilakukan dengan memasukkan variabel Titik tadi ke dalam method Polyline dan Polygon sebagai berikut:
Canvas.Polyline(Titik); 

dan

Canvas.Polygone(Titik);

Program dibawah ini akan membuat persegipanjang berwarna merah dengan tebal garis 5. Perlu dingat bahwa titik 0,0 adalah kiri atas form. Angka pertama koordinat adalah jarak dari kiri ke kanan. Angka kedua koordinat adalah jarak dari atas ke bawah.

Sebagai contoh, koordinat 25, 10 artinya, membuat titik 25 ke kiri dan 10 kebawah.

Program akan menggambar garis dari koordinat 25,10 ke 300,10. Kemudian berlanjut dari 300,10 ke 300,100. Dan dilanjutkan ke koordinat 300,100 ke 25, 100.

Pada perintah Polyline, tidak ada garis dari titik 25,100 ke 25, 10, tetapi pada perintah Polygon, titik 25, 100 akan terhubung otomatis dengan 25, 10.

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); var Titik : array[0..3] of TPoint; GeserBawah : integer; begin Titik[0] := Point(25,10); Titik[1] := Point(300,10); Titik[2] := Point(300,100); Titik[3] := Point(25,100); Canvas.Pen.Color := clRed; Canvas.Pen.Width := 5; Canvas.Polyline(Titik); GeserBawah := 100; Titik[0] := Point(25,10 + GeserBawah); Titik[1] := Point(300,10 + GeserBawah); Titik[2] := Point(300,100 + GeserBawah); Titik[3] := Point(25,100 + GeserBawah); Canvas.Pen.Color := clBlue; Canvas.Pen.Width := 5; Canvas.Polygon(Titik); end; end.

Membuat Segala Bentuk dengan Polyline dan Polygon 2019-05-27T12:54:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer