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

Sunday, March 20, 2016

Membuat Form Lonjong Terpotong Delphi 7



Hello Katabah!
Di tutorial lain, saya membuat lingkaran lonjong (penuh) dengan Delphi 7. Pada tutorial ini, saya membuat lingkaran lonjong terpotong. Belajar desain-desain cantik seperti ini membuat saya tidak terlalu jenuh setelah belajar coding yang serius-serius.


1. Buka Delphi 7
2. Klik area kosong pada form
3. Pilih warna hijau limau (clLime) pada Object Inspector – Properties – Color – clLime
4. Sekarang form sudah berubah warna menjadi hijau limau.

Selanjutnya, kita ubah lebar form dengan mengikuti langkah berikut ini:
5. Klik area kosong form yang sudah diwarnai
6. Klik Width pada Object Inspector – Properties
7. Ketik angka: 400
8. Sekarang lebar form jadi mengecil

Kini saatnya kita beraksi membuat form lonjong yang ujung kanannya sedikit terpotong. Ini langkah-langkahnya:
9. Klik dua kali area kosong pada form
10. Ketik script ini:
var
  lonjong:HRGN;
begin
  lonjong:=CreateEllipticRgn(50,50,500,300);
  SetWindowRgn(handle,lonjong,true);
  DeleteObject(lonjong)


11. Jalankan program dengan menekan tombol F9 di keyboard
12. Hasilnya seperti ini:


Catatan:
a. Ketika program aplikasi sudah diinstal nanti, maka yang muncul hanya bentuk ellipse (lingkaran lonjong) terpotong saja.

b. Agar lebih memahami perubahan bentuknya, kita cukup mengganti-ganti angka pada script ini: CreateEllipticRgn(50,50,500,300);


Untuk keluar/exit dan kembali ke form design:
Klik Run – Program Reset

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