Membuat Garis Koordinat Pada Canvas

kali ini penulis ingin membagi sedikit cara membuat garis koordinat pada canvas menggunakan borland delphi 7.
Obyek Canvas tetap digunakan untuk menempatkan gambar yang akan dibuat.Selain menempatkan gambar, objek canvas juga memiliki properti untuk merubah warna, ukuran garis, jenis font dll.

Berikut contoh program dalam membuat garis koordinat pada canvas :

 

Langkah-langkah membuat program,

1. Tambahkan 1 komponen panel pada form
2. Tambahkan 1 komponen image pada form
3. Tambahkan 1 komponen button pada form
4. Klik 2 x pada button gambar dan tuliskan listing dibawah ini.

procedure TForm1.Button1Click(Sender: TObject);

begin

    with image1 do

    begin

        //=========== membuat garis horizontal

        canvas.MoveTo(0,round(height/2));

        canvas.LineTo(width,round(height/2));

        //=========== membuat garis vertikal

        canvas.MoveTo(round(width/2),0);

        canvas.LineTo(round(width/2),height);

    end;

end;

sekian dan sampai jumpa di artikel selanjutnya......