Menggambar Titik Dan Garis Dengan Delphi

Untuk Menggambar titik dan garis dengan Delphi sebenarnya tidak susah. Apalagi jika anda sudah memahami konsep pemrograman Delphi. Step 1 yang harus kita pahami dari delphi adalah penggunaan Event Handling. Jadi dalam delphi Perintah-Perintah akan diletakkan didalam Event itu Sendiri (Coba Perhatikan Objek Inspektor yang ada di Sobat). Step 2 adalah Coding; Tanpa Coding Aplikasi yang anda buat tidak akan bisa apa-apa. karena semua perintah adalah coding dan Coding isinya adalah perintah.

Pada Postingan ini, Sebenarnya hanya iseng-iseng doang. tujuannya bukan bisa menggambar garis saja tapi lebih ke memahami konsep pemrograman delphi yang sudah saya jelaskan di awal paragraf.

Tahap Pertama. Tambahkan sebuah komponen Image dan Button dalam form anda

Tahap Kedua. Didalam Button (Klik Dua kali) Tambahkan Code ini :

Kesimpulannya adalah; sebuah titik dan garis tidak akan dibuat langsung oleh program anda. tapi melalui perantara Button yang di klik karena Perintah untuk menggambar garis pada komponen image di letakkan pada Event OnClick milik Button.

var
i : integer;
begin
// code dibawah ini akan menggambar titik
for i := 100 to 100 do
Image1.Canvas.Pixels[i,i]:=clred;

// code dibawah ini akan menggambar titik sebanyak lima puluh sehingga terlihat seperti garis merah (perulangan for do)
for i := 1 to 50 do
Image1.Canvas.Pixels[i,100]:=clred;

Hasilnya Seperti Ini