Nah pada malam hari ini saya mau berbagi tips materi perubahan font style menggunakan check box. Dimana temen temen bisa merubah tampilan teks dari label atau component lainnya dengan penggunaan style bold, italic, underline menggunakan listing code tanpa harus merubah menggunakan pengaturan properties. Langsung aja disimak ya.
Pembuatan kali ini sangat sederhana aja nich, temen temen cukup mengklik check bold untuk tampilan style font yang ingin dirubah berdasarkan style check boxnya. Penggunaan component box terbaru kali ini menggunakan Check box bisa temen temen dapatkan pada pallete standart dimana memiliki persamaan symbol dengan radio button namun berbeda fungsi. Jika radio botton hanya akan menghasilkan nilai on atau off yakni hanya bisa memilih 1 radio button dalam satu form, maka untuk check box kita bisa memilih sesuai dengan banyaknya jumlah chek box yang ada, dimana kita akan melihat code baru untuk merubah font style dari listing, langsung aja kita praktekkan ya.
- Pertama tama buatlan design form sebagai berikut :
- Aturlah Properties namenya seperti dibawah ini.
Nah untuk alur programnya sebagai berikut :
- Jika program berjalan kita bisa mengisi tampilan teks preview dalam edit box. Dimana jika edit box dirubah maka label preview akan berubah mengikuti edit teks.
- Jika check bold di klik / di checklist maka akan merubah label preview menjadi tampilan bold.
- Jika check italic di klik / di checklist maka akan merubah label preview menjadi tampilan italic.
- Jika check underline di klik / di checklist maka akan merubah label preview menjadi tampilan garis bawah.
- Jika program keluar diklik maka akan muncul konfirmasi peringatan keluar dari program.
Berikut ini adalah listing codenya :
1
2
3
4
5
6
| procedure Tform_materi28.edit_teksChange(Sender: TObject);begin label_preview.Caption:=edit_teks.Text;end; |
kita gunakan procedure change agar pada saat teks diketikan maka label preview akan langsung berubah apa yang diketikkan.
1
2
3
4
5
6
7
8
9
10
11
12
13
| procedure Tform_materi28.check_boldClick(Sender: TObject);begin if check_bold.Checked=true then begin label_preview.Font.Style:=label_preview.Font.Style+[fsbold]; end else begin label_preview.Font.Style:=label_preview.Font.Style-[fsbold]; end;end; |
Jika check bold di check list maka label preview akan merubah font style menjadi Bold.
1
2
3
4
5
6
7
8
9
10
11
12
13
| procedure Tform_materi28.check_italicClick(Sender: TObject);begin if check_italic.Checked=true then begin label_preview.Font.Style:=label_preview.Font.Style+[fsitalic]; end else begin label_preview.Font.Style:=label_preview.Font.Style-[fsitalic]; end;end; |
Jika check italic di check list maka label preview akan merubah font style menjadi italic.
1
2
3
4
5
6
7
8
9
10
11
12
13
| procedure Tform_materi28.check_underlineClick(Sender: TObject);begin if check_underline.Checked=true then begin label_preview.Font.Style:=label_preview.Font.Style+[fsunderline]; end else begin label_preview.Font.Style:=label_preview.Font.Style-[fsunderline]; end;end; |
Jika check underline di check list maka label preview akan merubah font style menjadi underline.
1
2
3
4
5
6
7
8
9
10
11
| procedure Tform_materi28.button_bersihClick(Sender: TObject);begin edit_teks.Text:=''; check_bold.Checked:=false; check_italic.Checked:=false; check_underline.Checked:=false; edit_teks.SetFocus;end; |
jika button bersih di klik maka edit teks dibersihkan dan check box pada semua di kosongkan dan set focus pada edit teks untuk pemasukan teks berikutnya.
1
2
3
4
5
6
7
8
9
| procedure Tform_materi28.button_keluarClick(Sender: TObject);begin if(application.MessageBox('Yakin akan keluar dari program?','Konfirmasi',MB_YesNo)=ID_Yes)then begin close; end;end; |
Jika button keluar diklik maka akan muncul konfirmasi box untuk menanyakan apakah yakin akan keluar dari program.
_______________________________________________________________________________
Nah dibawah ini adalah hasil tampilan programnya :
hasil check bold
hasil check bold, italic, dan underline
hasil program button bersih
hasil konfirmasi keluar
0 Response to "TUTORIAL CARA MERUBAH FONT STYLE CHECK BOX DELPHI"
Posting Komentar
[[ Silahkan berkomentar yang sesuai dengan topik, Mohon Maaf komentar dengan nama komentator dan isi komentar yang berbau PORNOGRAFI, OBAT, HACK, JUDI dan komentar yang mengandung LINK AKTIF, Tidak akan ditampilkan. Terima Kasih! ]]