mapsize.pas

来自「传奇Map地图编辑源码 一个很不错的源码哦」· PAS 代码 · 共 51 行

unit MapSize;

interface

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

type
  TFrmMapSize = class(TForm)
    EdWidth: TEdit;
    EdHeight: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
  private
  public
    MapX, MapY: integer;
    function Execute: Boolean;
  end;

var
  FrmMapSize: TFrmMapSize;

implementation

{$R *.DFM}

function TFrmMapSize.Execute: Boolean;
begin
   MapX := 20;
   MapY := 20;
   EdWidth.Text := IntToStr(MapX);
   EdHeight.Text := IntToStr(MapY);
   if mrOk = ShowModal then begin
      MapX := Str_ToInt (EdWidth.Text, 1);
      MapY := Str_ToInt (EdHeight.Text, 1);
      Result := TRUE;
   end else
      Result := FALSE;
end;

procedure TFrmMapSize.FormShow(Sender: TObject);
begin
   EdWidth.SetFocus;
end;

end.