Menampilkan Gambar di StatusBar di delphi

Saya share lagi bagaimana menambahkan gambar di StatusBar, menampilkan gambar atau image di StatusBar, gambar berada di StatusBar atau apalah nama atau judulnya. :D Liat saja lah ScreenShotnya dibawah :

Sebelumnya harus ada komponen ImageList yang sudah di isi gambar. Dan ini lah Listing Programnya.....

 
procedure TForm1.FormCreate(Sender: TObject) ;
 begin
   StatusBar1.Panels[0].Style := psOwnerDraw;
   StatusBar1.Panels[1].Style := psOwnerDraw;
 end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
   begin
     case Panel.Index of
       0: //Panel Kesatu
       begin
         //Brush.Color := clRed;
         Font.Color := clNavy;
         Font.Style := [fsBold];
       end;
       1: //Panel Kedua
       begin
         //Brush.Color := clYellow;
         Font.Color := clTeal;
         Font.Style := [fsBold,fsItalic];
       end;
     end;
     FillRect(Rect) ;

     TextRect(Rect,2 + ImageList1.Width + Rect.Left,2 + Rect.Top,Panel.Text) ;
   end;

   ImageList1.Draw(StatusBar1.Canvas, Rect.Left,Rect.Top, Panel.Index) ;

end;

Segitu bro... Semoga bermanfaat.

Posted by Antas Delphi on - Rating: 4.5

Title : Menampilkan Gambar di StatusBar di delphi
Description : Saya share lagi bagaimana menambahkan gambar di StatusBar, menampilkan gambar atau image di StatusBar, gambar berada di StatusBar atau apa...