Sabtu, 22 September 2012

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......

0 komentar:

Poskan Komentar