ATStatusBar

About

ATStatusBar is a statusbar component for Delphi and Lazarus. It's not replacement for standard control, but is alternative one, it has different API. It paints itself OS-indenendant, using custom drawing on canvas.

Author: Alexey Torgashin.

Screenshot:

License

MPL 2.0 or LGPL.

Download

GitHub repository: https://github.com/Alexey-T/ATFlatControls

How to change panels at runtime

Here is sample function which can change properties of panel with given index:

procedure ChangeStatusPanel(AStatusbar: TATStatus; APanelIndex: integer;
  const ACaption: string; AColorFont, AColorBack: TColor);
var
  D: TATStatusData;
begin
  D:= AStatusbar.GetPanelData(APanelIndex);
  if Assigned(D) then
  begin
    D.Caption:= ACaption;
    D.ColorFont:= AColorFont;
    D.ColorBack:= AColorBack;
  end;
end;

Use color value clNone to cancel using special color of foreground/background.