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
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
