lazarus/lcl/include/statuspanels.inc

{%MainUnit ../comctrls.pp}

{ TStatusPanels

 *****************************************************************************
  This file is part of the Lazarus Component Library (LCL)

  See the file COPYING.modifiedLGPL.txt, included in this distribution,
  for details about the license.
 *****************************************************************************

}

constructor TStatusPanels.Create(AStatusBar: TStatusBar);
begin
  inherited Create(AStatusBar.GetPanelClass);
  FStatusBar := AStatusBar;
end;

function TStatusPanels.Add: TStatusPanel;
begin
  Result := TStatusPanel(inherited Add);
  StatusBar.UpdateHandleObject(-1, AllPanelsParts);
end;

function TStatusPanels.GetItem(Index: Integer): TStatusPanel;
begin
  Result := TStatusPanel(inherited GetItem(Index));
end;

function TStatusPanels.GetOwner: TPersistent;
begin
  Result := FStatusBar;
end;

procedure TStatusPanels.SetItem(Index: Integer; Value: TStatusPanel);
begin
  inherited SetItem(Index, Value);
end;

procedure TStatusPanels.Update(Item: TCollectionItem);
begin
  // Don't invalidate the whole statusbar. There is an improved
  // TStatusBar.InvalidatePanel.
  //FStatusBar.Invalidate;
end;

// included by comctrls.pp