OnDrawPanel (Delphi)

Description

The following code is the OnDrawPanel event handler of a status bar. It draws each panel of the status bar, adding text and icons stored in ImageList1. The image list contains as many icons as there are header sections. This example requires a populated image list and a status bar with several panels added to the Panels property. Select each panel and set the Style property to psOwnerDraw.

Code

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
    Font.Color := clYellow;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
    TextOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index));
  end;
end;

Uses

• Vcl.ComCtrls.TStatusBar.OnDrawPanel ( fr | de | ja )
• Vcl.ComCtrls.TCustomStatusBar.OnDrawPanel ( fr | de | ja )
• Vcl.ComCtrls.TCustomStatusBar.Canvas ( fr | de | ja )
• Vcl.ComCtrls.TCustomStatusBar.Panels ( fr | de | ja )
• Vcl.ImgList.TCustomImageList.Draw ( fr | de | ja )
• Vcl.ComCtrls.TStatusPanel.Style ( fr | de | ja )