unit2.pas

来自「delphi图形开发工具BlockEngine」· PAS 代码 · 共 57 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ToolWin, ComCtrls, dviewer;

type
  TForm2 = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    BlockViewer1: TBlockViewer;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
  BlockViewer1.Scale := BlockViewer1.Scale + 0.1;
end;

procedure TForm2.ToolButton3Click(Sender: TObject);
begin
  BlockViewer1.Scale := BlockViewer1.Scale - 0.1;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  BlockViewer1.UpdateAll;
end;

end.