Delphi – Merubah Font Style Check Box

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

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 :

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.

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.

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.

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.

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.

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

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

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

_______________________________________________________________________________

–          Delphi – Fungsi Delete

–          Delphi – Menghitung Jumlah Karakter

–          Delphi – Menampilkan dan Menghapus Gambar Image

_______________________________________________________________________________