Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

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:


"Bitcoin and Forex are high risk business. We must join them smartly."
loading...