Blog | Beli Rumah | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Audit Sistem Informasi
Sistem Informasi (S1)
Manajemen Informatika
Komputer dan Pendidikan
Pengobatan Ruqyah
Daftar Isi | Skripsi SI | B. Arab | Sertifikat Komputer Internasional | PrivacyPolicy | Inggris Arab

Thursday, March 17, 2016

Membuat Canvas Kotak dan Lonjong Delphi 7



Hello Katabah!
Dengan form Delphi, kita dapat membuat kotak persegi dan lingkaran berbentuk lonjong hanya dengan langkah singkat saja.


1. Buka Delphi 7
2. Klik area kosong pada form
3. Klik Events pada Object Inspectors
4. Klik dua kali pada OnPaint
5. Ketik script ini:
canvas.Rectangle(
    0,0, ClientWidth div 2, ClientHeight div 2);

6. Jalankan program dengan menekan tombol F9
7. Hasilnya: ada kotak berbentuk persegi pada form
8. Kembali ke posisi form design
9. Di bawah script langkah nomor 5, tambahkan script ini:
Canvas.Ellipse(
    ClientWidth div 2, 0, ClientWidth, ClientHeight div 2);

10. Jalankan lagi program dengan tombol F9
11. Sekarang akan muncul kotak persegi dan lingkaran lonjong pada form seperti gambar ini:

"Investasi Emas dan Reksadana, Untung Mana?."
Youtube: Katabah Com: Menuju 1 jt Konten :)