www.pudn.com > MapEditor.zip > FScrlXY.pas

unit FScrlXY; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, HUtil32; 
 
type 
  TFrmScrollMap = class(TForm) 
    X: TLabel; 
    Label1: TLabel; 
    EdX: TEdit; 
    EdY: TEdit; 
    Button1: TButton; 
    Label2: TLabel; 
    procedure Button1Click(Sender: TObject); 
  private 
  public 
    procedure Execute (var xscr, yscr: integer); 
  end; 
 
var 
  FrmScrollMap: TFrmScrollMap; 
 
implementation 
 
{$R *.DFM} 
 
procedure TFrmScrollMap.Execute (var xscr, yscr: integer); 
begin 
   EdX.Text := ''; 
   EdY.Text := ''; 
 
   ShowModal; 
 
   xscr := Str_ToInt (EdX.Text, 0); 
   yscr := Str_ToInt (EdY.Text, 0); 
 
end; 
 
 
procedure TFrmScrollMap.Button1Click(Sender: TObject); 
begin 
   Close; 
end; 
 
end.