Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal
Menampilkan Nama, Bentuk
dan Jumlah Font Text yg
terinstal
Di dalam windows terdapat text Font
yang terinstal, Font tersebut akan bertambah jika dimasukkan aplikasi
Office, atau kita tambahkan sendiri jenis font tersebut.
Untuk menampilkan nama Font text yang terintal di
windows tersebut dengan aplikasi Delphi bisa kita gunakan TListBox dan
TButton untuk membangkitkan code-nya, secara sederhana dicontohkan
sebagai berikut :
procedure TForm1.Button1Click(Sender:
TObject); Begin //menampilkan nama-nama
font yang
terinstal ListBox1.Items:=Screen.Fonts; End;
Jika
kode diatas dibangkitkan yang terjadi adalah list nama-nama font telah
tampil di dalam listbox.
Selanjutnya Untuk mengubah
bentuk Font sesuai dengan bentuk karakter Font sesuai dengan namanya
dapat menggunakan Event Procedure TListbox pada saat OnDrawItem. Tentu
saja sebelumnya kamu ubah property Tlistbox.Style-nya menjadi
LbOwnDrawFixed secara manual ataupun dengan bantuan event lainnya.Code
Event Procedure TListbox pada saat OnDrawItem nya adalah
sbb:
procedure TForm1.ListBox1DrawItem(Control:
TWinControl; Index: Integer; Rect: TRect; State:
TOwnerDrawState); begin //listing dibawah berguna untuk mengubah
bentuk font sesuai
bentuknya Listbox1.Canvas.Font.Name:=Listbox1.Items[Index]; Listbox1.Canvas.FillRect(Rect); Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]); end;
Nampilin
Font Udaa...
Ngubah Bentuk Sesuai Asli Udaa...
Trus tinggal njumlah ada berapa font yang
ditampilin tersebut...
Tanpa berlama- lama berikut
jika dicontohkan dalam script komplit..... (Sbetule lagi mls
nulis..)
Komponen yang dibutuhkan
:
1. 1 buah Form(Unit) 2. 1 buah
TListbox 3. 2 buah TButton.
procedure
TForm1.ListBox1DrawItem(Control: TWinControl; Index:
Integer; Rect: TRect; State:
TOwnerDrawState); begin //listing dibawah berguna untuk mengubah
bentuk font sesuai
bentuknya Listbox1.Canvas.Font.Name:=Listbox1.Items[Index]; Listbox1.Canvas.FillRect(Rect); Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]); end;
procedure
TForm1.Button1Click(Sender:
TObject); var i:
integer; begin //menampilkan nama-nama font yang
terinstal ListBox1.Items:=Screen.Fonts;
//menampilkan bentuk
font ListBox1.Style
:=lbOwnerDrawfixed;
//menghitung jumlah
font for i := 0
to ListBox1.Items.Count - 1
do
//menampilkan jumlah font di
label1 label1.Caption := 'Jumlah :
'+IntToStr(i); end;