Merubah Font Style Check Box Di Delphi

Assalamualaikum Temen Temen Semua, Salam Semangat Di Minggu Malam inid(^o^”) masih dengan tips tips pembelajaran Delphi di Catatan Eko Personal Blog.

Nah pada malam hari ini saya mau berbagi tips materiperubahan 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 codetanpa 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	procedure Tform_materi28.edit_teksChange(Sender: TObject);

2

begin

3

4	label_preview.Caption:=edit_teks.Text;

5

6

end;

 kita gunakan procedure change agar pada saat teks diketikan maka label preview akan langsung berubah apa yang diketikkan.

01	procedure Tform_materi28.check_boldClick(Sender: TObject);

02

begin

03

04	if check_bold.Checked=true then

05

begin

06	label_preview.Font.Style:=label_preview.Font.Style+[fsbold];

07

end

08

else

09

begin

10	label_preview.Font.Style:=label_preview.Font.Style-[fsbold];

11

end;

12

13

end;

 Jika check bold di check list maka label preview akan merubah font style menjadi Bold.

01	procedure Tform_materi28.check_italicClick(Sender: TObject);

02

begin

03

04	if check_italic.Checked=true then

05

begin

06	label_preview.Font.Style:=label_preview.Font.Style+[fsitalic];

07

end

08

else

09

begin

10	label_preview.Font.Style:=label_preview.Font.Style-[fsitalic];

11

end;

12

13

end;

 Jika check italic di check list maka label preview akan merubah font style menjadi italic.

01	procedure Tform_materi28.check_underlineClick(Sender: TObject);

02

begin

03

04	if check_underline.Checked=true then

05

begin

06	label_preview.Font.Style:=label_preview.Font.Style+[fsunderline];

07

end

08

else

09

begin

10	label_preview.Font.Style:=label_preview.Font.Style-[fsunderline];

11

end;

12

13

end;

 Jika check underline di check list maka label preview akan merubah font style menjadi underline.

01	procedure Tform_materi28.button_bersihClick(Sender: TObject);

02

begin

03

04	edit_teks.Text:='';

05	check_bold.Checked:=false;

06	check_italic.Checked:=false;

07	check_underline.Checked:=false;

08

09	edit_teks.SetFocus;

10

11

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	procedure Tform_materi28.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program?','Konfirmasi',MB_YesNo)=ID_Yes)then

5

begin

6

close;

7

end;

8

9

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

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Merubah Font Style dengan Check Box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Unduh – Materi 28 Merubah Font Style Check Box