How do I put bitmap icons on a StatusBar?

[dredfern]

I want to put a couple of bitmap icons on a status bar to show when certain options have been selected by the user. Any ideas?

 

[towerbase]

Set the style property to psOwnerDraw in the status bar panel(s) that you want the icons displayed.

Write appropriate code in the OnDrawPanel event handler of the status bar to show your icons.

The following, very simple example, displays a different graphic in the status bar depending on whether a checkbox is checked or not.

procedure TForm1.SBDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if checkbox.checked then
    statusbar.Canvas.Draw( Rect.Left, Rect.Top, G1.Picture.Graphic )
  else
    statusbar.Canvas.Draw( Rect.Left, Rect.Top, G2.Picture.Graphic );
end;

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  SB.Invalidate
end;

Andrew
Hampshire, UK

 

[dredfern]

Andrew, Thanks, that did the trick.