Program Font Style Delphi
procedure TForm2.check_boldClick(Sender: TObject);
begin
if check_bold.Checked then
Font.Style :=
Font.Style+[fsBold]
else
Font.Style :=
Font.Style-[fsBold];
end;
Sebuah prosedur yang akan berjalan jika checkBox
bernama Check_bold diklik maka program akan berjalan.if check_bold.Checked then merupakan
bagian kondisi fungsi IF yang menyatakan bahwa kondisi true/benar
apabila komponen Check_bold dalam
kondisi di-ceklist Font.Style := Font.Style+[fsBold] merupakan bagian pernyatan2 yang menyatakan bahwa Font
Style akan tercetak tebal (fsBold). Font.Style := Font.Style-[fsBold]; Statement
yang akan menghapus perintah cetak tebal .
procedure TForm2.check_italicClick(Sender: TObject);
begin
if check_italic.Checked then
Font.Style :=
Font.Style+[fsItalic]
else
Font.Style :=
Font.Style-[fsItalic];
end;
Hal yang serupa dengansintak
sebelumnya yang membedakan hanya pada then yaitu Font Style teks akan
terformat cetak miring (fsItalic)
Setelah program dijalankan ketikan satu kata atau
kalimat kemudian coba klik pada Check_Italic . if check_italic.Checked then merupakan bagian kondisi
fungsi IF yang menyatakan bahwa kondisi true/benar apabila komponen
Check_italic dalam kondisi di-ceklist Font.Style
:= Font.Style+[fsItalic] merupakan bagian pernyatan2 yang
menyatakan bahwa Font Style akan tercetak miring (fsItalic). Font.Style
:= Font.Style-[fsItalic]; Statement yang akan menghapus perintah cetak miring .
procedure TForm2.check_underlineClick(Sender: TObject);
begin
if check_underline.Checked then
Font.Style :=
Font.Style+[fsUnderline]
else
Font.Style :=
Font.Style-[fsUnderline];
end;
Prosedur yang hampir serupa dengan sintak sebelumnya yang
membedakan hanya pada then yaitu Font Style teks akan terformat
cetak garis bawah (fsUnderline. Setelah program dijalankan ketikan satu kata atau kalimat
kemudian coba klik pada Check_Italic . if check_Underline.Checked then merupakan bagian kondisi
fungsi IF yang menyatakan bahwa kondisi true/benar apabila komponen
Check_Underline dalam kondisi di-ceklist Font.Style
:= Font.Style+[fsUnderline] merupakan bagian
pernyatan-pernyataan yang menyatakan bahwa Font Style akan tercetak miring (fsUnderline). Font.Style := Font.Style-[fsUnderline];
Statement yang akan menghapus perintah cetak garis bawah.
procedure TForm2.check_strikeClick(Sender: TObject);
begin
if check_strike.Checked then
Font.Style :=
Font.Style+[fsStrikeOut]
else
Font.Style :=
Font.Style-[fsStrikeOut];
end;
Prosedur yang hampir serupa dengan sintak sebelumnya yang
membedakan hanya pada then yaitu Font Style teks akan terformat
cetak garis coretan tengah kata(fsStrikeOut
.Setelah
program dijalankan ketikan satu kata atau kalimat kemudian coba klik pada
Check_StrikeOut . if check_StrikeOut.Checked then merupakan bagian kondisi
fungsi IF yang menyatakan bahwa kondisi true/benar apabila komponen
Check_Underline dalam kondisi di-ceklist Font.Style
:= Font.Style+[fsStrikeOut] merupakan bagian
pernyatan-pernyataan yang menyatakan bahwa Font Style akan tercetak garis
coretan tengah kata (fsStrikeOut). Font.Style := Font.Style-[fsStrikeOut]; Statement yang akan
menghapus perintah cetak garis
coretan tengah kata.
procedure TForm2.inputChange(Sender: TObject);
begin
Caption := input.Text
end;
Statement untuk menampung inputan dari
useryang akan dimasukkan kedalam program yang telah dibuat.end; untuk
mengakhiri perintah inputan.
procedure TForm2.backClick(Sender: TObject);
begin
Form1.Show;
Form3.Hide;
end;
end.
Perintah ini merupakan statement
pilihan, bila kondisi yang terjadi untuk pemilihan Menu Back maka yang akan
terjadi ialah, kita akan kembali pada form1 yaitu menu utama Form1.Show; dan form3 akan tertutup Form3.Hide;. Dan perintah
selesai dengan dua end yaitu untuk menghentikan statement dan untuk menhentikan
semua statement program didalamnya.
procedure TForm3.font_arialClick(Sender:
TObject);
begin
Font.Name := 'Arial'
end;
Sebuah
Prosedur yang akan berjalan jika Radio
button yang bernama arial diklik
maka perintah untuk mencetak Font/Model tulisan arial akan berjalan sesuai
statement cetak.Font.Name := 'Arial'.dan
statement end; yang menandakan
perintah didalam radiobtutton bernama arial telah selesai dijalankan.
procedure
TForm3.font_timesClick(Sender: TObject);
begin
Font.Name := 'Times New
Romans'
end;
Statement yang akan berjalan ketika
Radio button yang diberi nama Times New Romans diklik maka perintah
untuk mencetak Font/Model tulisan Times
New romans akan berjalan sesuai statement cetak.Font.Name := 'Times New Romans'.lalu statement end; akan menandakan perintah didalam radiobtutton bernama Times New Romans telah selesai
dijalankan.
procedure
TForm3.font_corsivaClick(Sender: TObject);
begin
Font.Name := 'Monotype
Corsiva'
end;
Sebuah
Prosedur yang akan berjalan jika Radio
button yang bernama 'Monotype
Corsiva' diklik maka perintah untuk mencetak Font/Model tulisan Monotype Corsiva akan berjalan sesuai
statement cetak.Font.Name := 'Monotype Corsiva'.dan statement end; yang menandakan perintah didalam
radiobtutton bernama Monotype Corsiva telah selesai
dijalankan.
procedure
TForm3.font_webdingsClick(Sender: TObject);
begin
Font.Name := 'Webdings'
end;
Statement yang akan berjalan
ketika Radio button yang bernama 'Webdings’ dipilih oleh user maka perintah untuk mencetak Model tulisan Webdings
akan berjalan sesuai statement cetak.Font.Name := 'Webdings'.dan
statement end; yang menandakan
perintah didalam radiobtutton bernama Webdings telah selesai dijalankan.
procedure
TForm3.font_comicClick(Sender: TObject);
begin
Font.Name := 'Comic Sans
MS'
end;
Statement
yang akan berjalan ketika Radio
button yang diberi nama ‘Comic Sans
MS' diklik maka perintah untuk mencetak Font/Model tulisan Comic Sans MS akan berjalan sesuai
statement cetak.Font.Name := 'Comic Sans
MS'.lalu statement end; akan menandakan perintah didalam radiobtutton bernama Comic Sans MS telah selesai dijalankan.
#output program
Tidak ada komentar:
Posting Komentar