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 apala nama atau judulnya. :D Liat saja lah ScreenShotnya dibawah :

Sebelumnya tambahkan komponen imagelist dan isi gambarnya,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; 

" KOMENX" DULU COY "