Cara Tambah Icon Pada Status Bar di Delphi XE5

By: QMPC Network on 00.12

Kali ini penulis akan mencoba membuat trik desain untuk mempercantik aplikasi yang kita buat, yaitu dengan memberikan icon-icon atau gambar pada statusbar aplikasi, biasanya disana kan ada indikasi koneksi database, tanggal, jam, user aktif dan lain sebaginya untuk mempercantik tampilan tersebut kita bisa gunakan trik ini.

Pada posting kali ini penulis menggunakan TsAlphaImageList dari alphacontrol (pakek imageList juga bisa) bagi yang ingin mengistall AlphaControl silahkan disini, dan yang perlu diperhatikan adalah pengaturan properities size (Width dan Height) gambarnya jadi sebesar atau sekecil apapun gambar yang kita masukkan list akan dikonvert sesuai ukuran oleh komponen, kalau untuk statusbar kita bisa menggunkan standart bawaan delphi.

Langkah 1 :
Buka terlebih dahulu Delphi XE5

Langkah 2 :
Pasangkan sebuah komponen statusbar pada Main Form aplikasi kita, serta sebuah komponen ImageList, seperti pada gambar di berikut :

Langkah 3 :
Setelah itu set properties Height dan Width menjadi 16 pada imagelist, kemudian masukan gambar sesuai yang diinginkan, Seperti gambar berikut :

Langkah 4 :
Sekarang kita buat  setting pada Statusbar, pada contoh penulis menggunakan 8 panel, dan penulis akan jadikan panel genap tempat icon, sedang panel ganjil informasi text nya, pada panel genap (0,2, 4 dan 6) kita ubah properties Style nya menjadi PsOwnerDraw, sedangkan untuk properties hegiht pada statusbar saya gunakan nilai 23, perhatikan gambar berikut :

Langkah 5 :
Ketik source code berikut ke event onDrawPanel :

procedure TForm1.sStatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
sAlphaImageList1.Draw(StatusBar.Canvas, Rect.Left+5, Rect.Top+2, Panel.Index) ;
end;

Penjelasan :

+5 dan +2 bisa kita ubah dan sesuaikan agar gambar/icon bisa tepat di tengah panel.

Langkah 6 :
Sekarang Run aplikasi dan kita bisa membuat icon pada statusbar seperti pada gambar dibawah  ini: