leftbar.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

unit LeftBar;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ExtCtrls;

type
  TFrmLeftBar = class(TFrame)
    PanelTop: TPanel;
    PanelBottom: TPanel;
    btn10: TButton;
    btn20: TButton;
    ScrollBox1: TScrollBox;
    Button4: TButton;
    Panel5: TPanel;
    Panel4: TPanel;
    Panel3: TPanel;
    Panel2: TPanel;
    Panel1: TPanel;
    btn30: TButton;
    btn40: TButton;
    btn50: TButton;
    btn11: TButton;
    btn21: TButton;
    btn31: TButton;
    btn41: TButton;
    btn51: TButton;
    bbt101: TBitBtn;
    bbt102: TBitBtn;
    bbt103: TBitBtn;
    bbt104: TBitBtn;
    bbt201: TBitBtn;
    bbt202: TBitBtn;
    bbt203: TBitBtn;
    bbt301: TBitBtn;
    bbt401: TBitBtn;
    bbt402: TBitBtn;
    bbt403: TBitBtn;
    bbt510: TBitBtn;
    bbt509: TBitBtn;
    bbt508: TBitBtn;
    bbt507: TBitBtn;
    bbt506: TBitBtn;
    bbt505: TBitBtn;
    bbt504: TBitBtn;
    bbt503: TBitBtn;
    bbt502: TBitBtn;
    bbt501: TBitBtn;
    procedure btn10Click(Sender: TObject);
    procedure btn20Click(Sender: TObject);
    procedure btn30Click(Sender: TObject);
    procedure btn40Click(Sender: TObject);
    procedure btn50Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn21Click(Sender: TObject);
    procedure btn31Click(Sender: TObject);
    procedure btn41Click(Sender: TObject);
    procedure btn51Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TFrmLeftBar.btn10Click(Sender: TObject);
begin
  PanelTop.Height := 25;
  PanelBottom.Height := 100;
  Panel1.Visible := True;
  Panel2.Visible := False;
  Panel3.Visible := False;
  Panel4.Visible := False;
  Panel5.Visible := False;
end;

procedure TFrmLeftBar.btn20Click(Sender: TObject);
begin
  PanelTop.Height := 50;
  PanelBottom.Height := 75;
  Panel1.Visible := False;
  Panel2.Visible := True;
  Panel3.Visible := False;
  Panel4.Visible := False;
  Panel5.Visible := False;
end;

procedure TFrmLeftBar.btn30Click(Sender: TObject);
begin
  PanelTop.Height := 75;
  PanelBottom.Height := 50;
  Panel1.Visible := False;
  Panel2.Visible := False;
  Panel3.Visible := True;
  Panel4.Visible := False;
  Panel5.Visible := False;
end;

procedure TFrmLeftBar.btn40Click(Sender: TObject);
begin
  PanelTop.Height := 100;
  PanelBottom.Height := 25;
  Panel1.Visible := False;
  Panel2.Visible := False;
  Panel3.Visible := False;
  Panel4.Visible := True;
  Panel5.Visible := False;
end;

procedure TFrmLeftBar.btn50Click(Sender: TObject);
begin
  PanelTop.Height := 125;
  PanelBottom.Height := 1;
  Panel1.Visible := False;
  Panel2.Visible := False;
  Panel3.Visible := False;
  Panel4.Visible := False;
  Panel5.Visible := True;
end;

procedure TFrmLeftBar.btn11Click(Sender: TObject);
begin
   btn10Click(btn10);
end;

procedure TFrmLeftBar.btn21Click(Sender: TObject);
begin
  btn20Click(btn20);
end;

procedure TFrmLeftBar.btn31Click(Sender: TObject);
begin
  btn30Click(btn30);
end;

procedure TFrmLeftBar.btn41Click(Sender: TObject);
begin
  btn40Click(btn40);
end;

procedure TFrmLeftBar.btn51Click(Sender: TObject);
begin
  btn50Click(btn50);
end;

end.