unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, RightFitStatusBar, StdCtrls, ExtCtrls
  ;

type
  TForm1 = class(TForm)
    RightFitStatusBar2: TRightFitStatusBar;
    RightFitStatusBar3: TRightFitStatusBar;
    RightFitStatusBar5: TRightFitStatusBar;
    RightFitStatusBar1: TRightFitStatusBar;
    RightFitStatusBar6: TRightFitStatusBar;
    RightFitStatusBar4: TRightFitStatusBar;
    Panel1: TPanel;
    procedure RightFitStatusBar6Resize(Sender: TObject);
  private
    { Private �錾 }
  public
    { Public �錾 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.RightFitStatusBar6Resize(Sender: TObject);
begin
  Panel1.Top := RightFitStatusBar6.ClientRect.Top;
  Panel1.Left := RightFitStatusBar6.Panels[0].Width
    + RightFitStatusBar6.Panels[1].Width
    + RightFitStatusBar6.Panels[2].Width;
  Panel1.Height := RightFitStatusBar6.ClientHeight;
  Panel1.Width := RightFitStatusBar6.Panels[3].Width;
end;



end.