MEMBUAT GAMBAR DENGAN TPaintbox Di delphi 7 Enterprese

Di Postingan kali ini saya akan menjelaskan cara membuat gambar dengan Delphi dengan VCL-Form Aplication.
berikut adalah Gambar Review object yang akan kita buat:

Untuk Membuat Gambar Seperti Di atas Cukup mudah dengan mengikuti langkah langkah seperti berikut.

1. Buka delphi yang anda, dan langsung saja klik New - Other - VLC Form Aplication
2. Buatlah Ukuran layang tampilan dengan 500 X 500
3. Buat Sebuah PAINTBOX seperti di bawah ini dengan Resolusi 400 X 400:



 

4.  Setelah Itu Buat Sebuah Button:

Susunlah Sesuai Selera anda

bagian Inti yaitu apabila sudah anda susun sesuai keinginan maka Klik Dua Kali Di form Button
dan masuk Ke dalam Input Coding maka Co - Pas Coding Di Bawah Ini :

CODING:
with paintbox1.canvas do
begin
rectangle (15,15,390,390);

  ellipse (40,40,360,360);  //LINGKARAN BESAR
  ellipse (80,80,320,320);  //LINGKARAN KECIL
  moveto  (40,40);        //GARIS SILANG UTAMA
  lineto  (360,360);      //GARIS SILANG UTAMA
  moveto  (360,40);       //GARIS SILANG UTAMA
  lineto  (40,360);       //GARIS SILANG UTAMA

  moveto  (40,40);         //BINTANG BESAR MIRING
  lineto  (200,140);
  lineto  (360,40);
  lineto  (260,200);
  lineto  (360,360);
  lineto  (200,260);
  lineto  (40,360);
  lineto  (140,200);
  lineto  (40,40);

  moveto  (200,40);       // BINTANG KECIL HORIZONTAL
  lineto  (240,160);
  lineto  (360,200);
  lineto  (240,240);
  lineto  (200,360);
  lineto  (160,240);
  lineto  (40,200);
  lineto  (160,160);
  lineto  (200,40);

  ellipse (140,140,260,260);  //LINGKARAN Tengah

  textout (25,25,'N');
  textout (375,25,'E');
  textout (375,375,'S') ;
  textout (25,375,'W');

end;
end;

end.



Masih Bingung,.,.,.,??
Ok
Pastekan Kode Di atas TEPAT DI BAWAH CODE :

Semoga tutorial Ini menambah ilmu yang kita dapat sob.
Untuk Menjalankan tekan F9
SELAMAT MENCOBA

FREE DOWNLOAD FULL FILE JADINYA