u_settransform.~pas

对绘图工作者

unit U_setTransform;

interface

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

type
  TF_setTransform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    E_manify: TEdit;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    e_x: TEdit;
    E_y: TEdit;
    b_ok: TBitBtn;
    e_rotation: TComboBox;
    procedure b_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    manifyNum,moveX,moveY:integer;//放大系数，平移的x,y距离
  end;

var
  F_setTransform: TF_setTransform;

implementation

{$R *.dfm}

procedure TF_setTransform.b_okClick(Sender: TObject);
begin
   manifyNum:= strtoint(e_manify.Text);//放大系数
   //平移的x,y距离
   moveX:= strtoint(e_x.Text);
   moveY:= strtoint(e_y.Text);
   f_setTransform.Hide;//隐藏
end;

end.