Membuat Garis dengan MoveTo dan LineTo

Kita tidak hanya bisa membuat kotak dan elips saja, tetapi juga menggambar garis saja. Garis ini nantinya dapat kita kreasikan menjadi bermacam-macam gambar.

Ada dua perintah yang selalu ada ketika membuat garis, yaitu; MoveTo dan LineTo. Keduanya sama-sama property milik Canvas di class TCanvas.

MoveTo
Sintak:
MoveTo(JarakDariKiri, JarakDariAtas)

Kegunaan:
Memindah lokasi penggambaran.

Contoh:
Canvas.MoveTo(10, 90);

LineTo
Sintak
(JarakDariKiri, JarakDariAtas);

Kegunaan:
Menggambar garis mulai saat titik yang aktif, sampai titik pada parameternya.

Contoh:
Canvas.LineTo(100, 50);

Perlu diingat, bahwa titik 0,0 berada di kiri atas form. Sehingga perintah Canvas.LineTo(100, 50) bermaksud menggambar mulai titik aktif saat ini sampai ke 100 ke kiri, dan 50 dari atas.

Contoh program dibawah ini akan menggambar 10 kotak yang berukuran beda, mulai dari yang paling besar sampai yang paling kecil. Program penggambaran diletakkan di Event OnPaint milik Form dan Tambahkan kode Invalidate di Resize milik form. Seperti kita ketahui, form akan menggambar form di property OnPaint saat perintah Invalidate dieksekusi.

Tebal garis ditentukan di property Canvas.Pen.Width, sedangkan warna garis diatur di Canvas.Pen.Color. Sedangkan ClientHeight dan ClientWidth, berturut-turut digunakan untuk menentukan tinggi dan lebar form.

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //-- bentuk ukuran form
  ClientHeight := 325;
  ClientWidth := 400;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    JarakDariKiri, PanjangGaris, TinggiGaris,
    JarakGarisDariAtas, TebalGaris, SelisihAntarPersegi, i : integer;
begin
    //-- Inisial
    JarakDariKiri := 50;
    PanjangGaris := 300;
    TinggiGaris := 300;
    JarakGarisDariAtas := 10;
    TebalGaris := 5;
    Canvas.Pen.Width := TebalGaris;
    SelisihAntarPersegi := 10;

for i := 1 to 10 do begin

//-- Permulaan garis dari titik tertentu
    Canvas.MoveTo(JarakDariKiri, JarakGarisDariAtas);

//-- Mulai menggambar persegi
    Canvas.Pen.Color := clRed;
    Canvas.LineTo(JarakDariKiri + PanjangGaris, JarakGarisDariAtas);

Canvas.Pen.Color := clYellow;
    Canvas.LineTo(JarakDariKiri + PanjangGaris, TinggiGaris );

Canvas.Pen.Color := clBlack;
    Canvas.LineTo(JarakDariKiri, TinggiGaris );

Canvas.Pen.Color := clFuchsia;
    Canvas.LineTo(JarakDariKiri, JarakGarisDariAtas);

//-- Persiapan gambar berikutnya
    inc(JarakDariKiri, SelisihAntarPersegi);
    dec(PanjangGaris, SelisihAntarPersegi * 2);
    inc(JarakGarisDariAtas, SelisihAntarPersegi);
    dec(TinggiGaris, SelisihAntarPersegi);
    end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Membuat Garis dengan MoveTo dan LineTo

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar