Dengan fungsi MoveTo dan LineTo, kita dapat membuat garis di form. Baik sintak MoveTo dan LineTo sama-sama memiliki 2 parameter saja. Perbedaan keduanya adalah
MoveTo memindahkan "pena" di titik x,y. Sedangkan LineTo membuat garis sampai pada titik x,y. Sintak keduanya adalah sebagai berikut:
MoveTo(x,y);
Pindahkan titik permulaan di x,y.
LineTo(x,y);
Gambarlah garis dari tempat sekarang sampai ke x,y
Maka jika ada perintah seperti ini:
Canvas->MoveTo(10,20);
Canvas->LineTo(100,20);
artinya:
Pindahkan titik aktif ke 10,20 dan gambarlah garis dari titik 10,20 sampai titik 100,20.
Program dibawah ini akan membuat kotak dengan perintah MoveTo dan LineTo (sebagai perbandingan dengan Rectangle) sebanyak 10 kotak. Setiap garis akan diwarnai berbeda dan kotak berikutnya akan digambar di dalam kotak sebelumnya.
Tebal garis disetting di:perintah seperti ini:
Canvas->Pen->Width = 5;
sedangkan warna garis dibuat di perintah semacam ini:
Canvas->Pen->Color = clRed;
Program Selengkapnya:
0 comments:
Posting Komentar