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

Monday, March 21, 2016

Membuat Form Lingkaran Terpotong Dari Atas Delphi 7



Hello Katabah!
Semakin rajin berkreativitas, maka bentuk form Delphi pun akan semakin bervariasi. Sekarang, saya belajar membuat form lingkaran yang sedikit terpotong dari arah atas.


1. Buka Delphi
2. Klik area kosong pada form
3. Klik Color pada Object Inspector – Properties
4. Pilih warna biru (clBlue)
5. Sekarang form sudah berubah warna menjadi biru
6. Klik dua kali area kosong pada form
7. Ketik script ini:
var
  belah:HRGN;
begin
  belah:=CreateEllipticRgn(100,-300,300,300);
  SetWindowRgn(handle,belah,true);
  DeleteObject(belah)

Ingaaat…!
Jangan terlewat tanda minus sebelum angka 300 (harus -300, bukan 300).

8. Jalankan program dengan menekan F9 di keyboard
9. Hasilnya seperti ini:


Proyek kita sudah beres…..


Untuk menutup program, klik Run – Program Reset

Jika penasaran dengan penambahan tanda minus (-300), coba saja hapus tanda minus (menjadi 300), kemudian jalankan lagi dengan F9. Hasilnya hanya garis horizontal (datar dari kiri ke kanan), bukan?

**
Selamat berlatih dan berkreasi coding dengan berbagai kreativitas agar proses belajar tetap menyenangkan!

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