Icon in Status Bar

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, ImgList;

type

  TForm1 = class(TForm)

    StatusBar1: TStatusBar;

    ImageList1: TImageList;

    procedure FormCreate(Sender: TObject);

    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;

      Panel: TStatusPanel; const Rect: TRect);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

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

begin

   with StatusBar.Canvas do

   begin

     case Panel.Index of

       0: //fist panel

       begin

         //Brush.Color := clRed;

         //Font.Color := clNavy;

        // Font.Style := [fsBold];

       end;

       1: //second panel

       begin

         //Brush.Color := clYellow;

        // Font.Color := clTeal;

        // Font.Style := [fsItalic];

       end;

     end;

     //Panel background color

     FillRect(Rect) ;

     //Panel Text

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

   end;

   //draw graphics

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

 end;end;

end.