unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, BarPanel, ActnList;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    ActionList1: TActionList;
    HorzBarVisibleAct: TAction;
    VertBarVisibleAct: TAction;
    HorzBarAutoHideAct: TAction;
    VertBarAutoHideAct: TAction;
    BarPanel1: TBarPanel;
    procedure VertBarVisibleActUpdate(Sender: TObject);
    procedure HorzBarVisibleActUpdate(Sender: TObject);
    procedure VertBarAutoHideActUpdate(Sender: TObject);
    procedure HorzBarAutoHideActUpdate(Sender: TObject);
    procedure VertBarVisibleActExecute(Sender: TObject);
    procedure HorzBarVisibleActExecute(Sender: TObject);
    procedure VertBarAutoHideActExecute(Sender: TObject);
    procedure HorzBarAutoHideActExecute(Sender: TObject);
    procedure BarPanel1Resize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FPanelHeight: Integer;
    FPanelWidth: Integer;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{-------------------------------
//BarPanelのBarのVisibleとAutoHideの設定チェック
備考:
履歴:       2001/10/23
//------------------------------}
procedure TForm1.VertBarVisibleActUpdate(Sender: TObject);
begin
  VertBarVisibleAct.Checked := BarPanel1.VertScrollBar.Visible;
end;

procedure TForm1.HorzBarVisibleActUpdate(Sender: TObject);
begin
  HorzBarVisibleAct.Checked := BarPanel1.HorzScrollBar.Visible;
end;

procedure TForm1.VertBarAutoHideActUpdate(Sender: TObject);
begin
  VertBarAutoHideAct.Checked := BarPanel1.VertScrollBar.AutoHide;
end;

procedure TForm1.HorzBarAutoHideActUpdate(Sender: TObject);
begin
  HorzBarAutoHideAct.Checked := BarPanel1.HorzScrollBar.AutoHide;
end;

procedure TForm1.VertBarVisibleActExecute(Sender: TObject);
begin
  BarPanel1.VertScrollBar.Visible := not BarPanel1.VertScrollBar.Visible;
end;

procedure TForm1.HorzBarVisibleActExecute(Sender: TObject);
begin
  BarPanel1.HorzScrollBar.Visible := not BarPanel1.HorzScrollBar.Visible;
end;

procedure TForm1.VertBarAutoHideActExecute(Sender: TObject);
begin
  BarPanel1.VertScrollBar.AutoHide := not BarPanel1.VertScrollBar.AutoHide;
end;

procedure TForm1.HorzBarAutoHideActExecute(Sender: TObject);
begin
  BarPanel1.HorzScrollBar.AutoHide := not BarPanel1.HorzScrollBar.AutoHide; 
end;
//------------------------------


{-------------------------------
//リサイズでScrollBarのPageSizeを変更
備考:
履歴:       2000/00/00
//------------------------------}
procedure TForm1.BarPanel1Resize(Sender: TObject);
begin
  BarPanel1.VertScrollBar.Min := 0;
  BarPanel1.VertScrollBar.Max := FPanelHeight;
  BarPanel1.VertScrollBar.PageSize := BarPanel1.Height;
  BarPanel1.HorzScrollBar.Min := 0;
  BarPanel1.HorzScrollBar.Max := FPanelWidth;
  BarPanel1.HorzScrollBar.PageSize := BarPanel1.Width;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPanelHeight := BarPanel1.Height;
  FPanelWidth := BarPanel1.Width;
end;
//------------------------------


end.