unit3.pas

来自「电气控制仿真软件」· PAS 代码 · 共 103 行

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton7: TSpeedButton;
    vgctrl1: Tvgctrl;
    procedure FormCreate(Sender: TObject);
    procedure vgctrl1Error(Sender: TObject; const Msg: WideString);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    zoomtype : Integer;
  public
    { Public declarations }
  end;
var
  Form3 : TForm3;

implementation

{$R *.DFM}

procedure TForm3.FormCreate(Sender: TObject);
begin
  zoomtype := 0;
end;

procedure TForm3.vgctrl1Error(Sender: TObject; const Msg: WideString);
begin
  ShowMessage( Msg );
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  vgctrl1.Execute('Sheets[0].FirstPage()')
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
  vgctrl1.Execute('Sheets[0].PrevPage()')
end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
  vgctrl1.Execute('Sheets[0].NextPage()')
end;

procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
  vgctrl1.Execute('Sheets[0].LastPage()')
end;

procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
  if zoomtype = 0 then
    vgctrl1.ZoomFitWidth
  else if zoomtype = 1 then
    vgctrl1.ZoomFit
  else
    vgctrl1.Zoom := 100;
  if zoomtype = 2 then
    zoomtype := 0
  else
    zoomtype := zoomtype + 1;
end;

procedure TForm3.SpeedButton6Click(Sender: TObject);
begin
  vgctrl1.Print;
end;

procedure TForm3.SpeedButton21Click(Sender: TObject);
begin
  vgctrl1.MoveSheet;
end;

procedure TForm3.SpeedButton7Click(Sender: TObject);
begin
  Close;
end;

end.