Mempelajari Listbox yang Owner-Draw Lazarus telah kita bahas pada artikel sebelumnya, sekarang mari kita buat Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox. CheckBox memberi dua pilihan (bahkan tiga pilihan) kepada pemakai, properti yang berkaitan dengan pilihan pada CheckBox yaitu:
ListBox menampilkan daftar dan Anda dapat memilih item-itemnya:
Selanjutnya, mari kita buat aplikasi dengan desain seperti gambar di atas untuk mendemonstrasikan keempat komponen di atas (Memo, ComboBox, ListBox dan CheckBox). Buatlah aplikasi bari dan simpan beri nama appmemo.lpi dan unitnya beri nama uappmemo.pas, ganti property berikut ini :
Form1
Name: FAppMemo
Caption: Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox
Memo1
Klik ganda tanda ... pada property Lines dan anda akan masuk ke String List Editor. Disana sudah tercantum Memo1 sesuai dengan nama memo. Hapus teks tersebut. Klik OK untuk mengakhiri String List Editor.
ComboBox1
Kita akan mengisikan 4 pilihan pada ComboBox. Klik ganda kolom isian dari property Items (klik ganda tanda ...). Anda akan masuk ke String List Editor dan isikan teks berikut ini:
Property ItemIndex isi angka 0
ListBox1
Isikan pada property Items
Property ItemIndex isi angka 0
GroupBox1
Caption: Font
Kedalam GroupBox1 tambahkan 3 buah CheckBox:
CheckBox1
Caption: Teks Warna Merah
CheckBox2
Caption: Teks Miring
CheckBox3
Caption: Teks Cetak Tebal
Tambahkan 3 buah Button:
Button1
Caption: Isi Memo
Name: BMemo
Button2
Caption: Ubah Font
Name: BFont
Button3
Caption: Keluar
Name: BKeluar
Penulisan Kode Program Aplikasi Demo Penggunaan Memo
BMemo
Event OnClick
BFont
Event OnClick
BKeluar
Event OnClick
Penjelasan Kode Program Aplikasi Demo Penggunaan Memo
Tombol Isi Memo dipakai untuk mengisi teks ke dalam Memo. Pertama-tama, teks pada Memo dibersihkan. Baris pertama Memo berisi teks dari ComboBox. Teks dari ComboBox dapat berupa teks yang anda ketikkan atau teks yang dipilih dari pilihan yang tersedia. Baris kedua menyatakan pilihan ke berapa dari ListBox yang dipilih. Selanjutnya warna dasar memo diubah sesuai dengan pilihan anda pada ListBox.
Tombol Ubah Font dipakai untuk mengubah font tulisan di memo. Pilihan font menggunakan CheckBox, sehingga anda dapat memilih lebih dari satu pilihan (bandingkan dengan RadioButton yang hanya boleh memilih salah satu). Jika anda memilih CheckBox1, teks berwarna merah, jika tidak, warna default. CheckBox2 dipakai untuk mencetak miring dan CheckBox3 untuk cetak tebal.
Tombol Keluar untuk mengakhiri aplikasi. Berikut listing lengkapnya:
Sebagai catatan tambahan, property Font.Style bertipe set yang dapat kosong atau berisi beberapa nilai yang diperbolehkan. Perhatikan cara penulisannya. Operator + pada set menyatakan operasi gabungan. Demikian artikel Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox (Belajar Lazarus #14) selamat mencoba :) .
- Ubah property Checked menjadi True agar CheckBox dipilih secara default.
- Ubah AllowGrayed menjadi True agar CheckBox mempunyai 3 pilihan, yaitu checked, unchecked dan grayed.
- Property State menyatakan apakah CheckBox dalam keadaan checked (cbChecked), unchecked (cbUnchecked), atau grayed (cbGrayed).
ListBox menampilkan daftar dan Anda dapat memilih item-itemnya:
- Property Items dibakai untuk mengisi pilihan-pilihan yang mungkin.
- ItemIndex menyatakan item yang dipilih.
- MultiSelect menyatakan apakah dapat memilih lebih dari satu pilihan pada saat yang bersamaan.
- Sorted menyatakan apakah daftar terurut secara alfabetis.
Selanjutnya, mari kita buat aplikasi dengan desain seperti gambar di atas untuk mendemonstrasikan keempat komponen di atas (Memo, ComboBox, ListBox dan CheckBox). Buatlah aplikasi bari dan simpan beri nama appmemo.lpi dan unitnya beri nama uappmemo.pas, ganti property berikut ini :
Form1
Name: FAppMemo
Caption: Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox
Memo1
Klik ganda tanda ... pada property Lines dan anda akan masuk ke String List Editor. Disana sudah tercantum Memo1 sesuai dengan nama memo. Hapus teks tersebut. Klik OK untuk mengakhiri String List Editor.
ComboBox1
Kita akan mengisikan 4 pilihan pada ComboBox. Klik ganda kolom isian dari property Items (klik ganda tanda ...). Anda akan masuk ke String List Editor dan isikan teks berikut ini:
Lazarus Free Pascal
Demo Komponen Memo
Demo ListBox 3 item
ComboBox dan CheckBox
Property ItemIndex isi angka 0
ListBox1
Isikan pada property Items
1. Kotak Memo Warna Putih
2. Kotak Memo Warna Kuning
3. Kotak Memo Warna Hijau
Property ItemIndex isi angka 0
GroupBox1
Caption: Font
Kedalam GroupBox1 tambahkan 3 buah CheckBox:
CheckBox1
Caption: Teks Warna Merah
CheckBox2
Caption: Teks Miring
CheckBox3
Caption: Teks Cetak Tebal
Tambahkan 3 buah Button:
Button1
Caption: Isi Memo
Name: BMemo
Button2
Caption: Ubah Font
Name: BFont
Button3
Caption: Keluar
Name: BKeluar
Penulisan Kode Program Aplikasi Demo Penggunaan Memo
BMemo
Event OnClick
procedure TFAppMemo.BMemoClick(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(ComboBox1.Text);
Memo1.Lines.Add('ListBox yang dipilih nomor: '+IntToStr(ListBox1.ItemIndex+1));
Case ListBox1.ItemIndex of
0 : Memo1.Color:=clWhite;
1 : Memo1.Color:=clYellow;
2 : Memo1.Color:=clGreen;
end;
end;
BFont
Event OnClick
procedure TFAppMemo.BFontClick(Sender: TObject);
begin
if CheckBox1.State=cbChecked
then Memo1.Font.Color:=clRed
else Memo1.Font.Color:=clWindowText;
Memo1.Font.Style:=[];
if CheckBox2.State=cbChecked
then Memo1.Font.Style:=[fsItalic];
if CheckBox3.State=cbChecked
then Memo1.Font.Style:=Memo1.Font.Style+[fsBold];
end;
BKeluar
Event OnClick
procedure TFAppMemo.BKeluarClick(Sender: TObject);
begin
Close;
end;
Penjelasan Kode Program Aplikasi Demo Penggunaan Memo
Tombol Isi Memo dipakai untuk mengisi teks ke dalam Memo. Pertama-tama, teks pada Memo dibersihkan. Baris pertama Memo berisi teks dari ComboBox. Teks dari ComboBox dapat berupa teks yang anda ketikkan atau teks yang dipilih dari pilihan yang tersedia. Baris kedua menyatakan pilihan ke berapa dari ListBox yang dipilih. Selanjutnya warna dasar memo diubah sesuai dengan pilihan anda pada ListBox.
Tombol Ubah Font dipakai untuk mengubah font tulisan di memo. Pilihan font menggunakan CheckBox, sehingga anda dapat memilih lebih dari satu pilihan (bandingkan dengan RadioButton yang hanya boleh memilih salah satu). Jika anda memilih CheckBox1, teks berwarna merah, jika tidak, warna default. CheckBox2 dipakai untuk mencetak miring dan CheckBox3 untuk cetak tebal.
Tombol Keluar untuk mengakhiri aplikasi. Berikut listing lengkapnya:
unit uappmemo;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TFAppMemo }
TFAppMemo = class(TForm)
BMemo: TButton;
BFont: TButton;
BKeluar: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ComboBox1: TComboBox;
GroupBox1: TGroupBox;
ListBox1: TListBox;
Memo1: TMemo;
procedure BFontClick(Sender: TObject);
procedure BKeluarClick(Sender: TObject);
procedure BMemoClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
FAppMemo: TFAppMemo;
implementation
{$R *.lfm}
{ TFAppMemo }
procedure TFAppMemo.BMemoClick(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(ComboBox1.Text);
Memo1.Lines.Add('ListBox yang dipilih nomor: '+IntToStr(ListBox1.ItemIndex+1));
Case ListBox1.ItemIndex of
0 : Memo1.Color:=clWhite;
1 : Memo1.Color:=clYellow;
2 : Memo1.Color:=clGreen;
end;
end;
procedure TFAppMemo.BFontClick(Sender: TObject);
begin
if CheckBox1.State=cbChecked
then Memo1.Font.Color:=clRed
else Memo1.Font.Color:=clWindowText;
Memo1.Font.Style:=[];
if CheckBox2.State=cbChecked
then Memo1.Font.Style:=[fsItalic];
if CheckBox3.State=cbChecked
then Memo1.Font.Style:=Memo1.Font.Style+[fsBold];
end;
procedure TFAppMemo.BKeluarClick(Sender: TObject);
begin
Close;
end;
end.
Sebagai catatan tambahan, property Font.Style bertipe set yang dapat kosong atau berisi beberapa nilai yang diperbolehkan. Perhatikan cara penulisannya. Operator + pada set menyatakan operasi gabungan. Demikian artikel Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox (Belajar Lazarus #14) selamat mencoba :) .
Comments
Post a Comment