Font Style & Alignment Pada Delphi #20

andrypein.net : Posting Kali ini akan belajar mengubah Font Style dan Alignment pada Label dengan menggunakan komponen checkbox dan radiobutton.

Aplikasi ini sangat sederhana bagi kita yang awam dan pemula (seperti saya).

Yang kita butuhkan dalam formnya hanya 1 label,3 buah checkbox dan 3 buah radiobutton, (semua komponen masih ada di komponen standard).

kira-kira rancang bentuk formnya seperti ini saja :

Jangan lupa pada label1 beri nilai false pada AutoSize nya (di object Inspector) dan ukuran labelnya 28.

kemudian saatnya memberikan script pada 3 buah checkbox & 3 radio buttonnya, klik ganda pada checkbox tebal dan scriptnya seperti ini :

ini untuk 3 checkbox

Procedure TForm1.Checkbox1Click(Sender: TObject);
begin
if checkbox1.Checked = true then
 form1.label1.font.style:=form1.label1.font.style+[fsbold]
else
 form1.label1.font.style:=form1.label1.font.style-[fsbold];
end;

Procedure TForm1.Checkbox2Click(Sender: TObject);
begin
if checkbox2.Checked = true then
 form1.label1.font.style:=form1.label1.font.style+[fsitalic]
else
 form1.label1.font.style:=form1.label1.font.style-[fsitalic];
end;

Procedure TForm1.Checkbox3Click(Sender: TObject);
begin
if checkbox3.Checked = true then
 form1.label1.font.style:=form1.label1.font.style+[fsUnderline]
else
 form1.label1.font.style:=form1.label1.font.style-[fsUnderline]; 
end;

dan ini untuk 3 radiobuttonnya

Procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 label1.alignment:=taLeftJustify;
end;

Procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 label1.alignment:=taCenter;
end;

Procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 label1.alignment:=taRightJustify;
end;

Setelah semua listing kode ditulis tinggal di compile dan di run saja, dan akan works 100% kecuali kalau ada error kesalahan typing.

So that’s how the end from this font style post.

(*AFK)