editorunit3.pas

一个用delphi编写的过关游戏

Unit editorUnit3;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls;

Type
  TSettingsForm = Class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Button1: TButton;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label10: TLabel;
    ELayers: TEdit;
    Layers: TUpDown;
    Procedure Edit1Change(Sender: TObject);
    Procedure Button1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  SettingsForm      : TSettingsForm;

Implementation

Uses EditorUnit1;

{$R *.DFM}

Procedure TSettingsForm.Edit1Change(Sender: TObject);
Var a, c            : integer;
Begin
  val(tedit(sender).text, a, c);
  If a < 15 Then a := 15;
  tedit(sender).text := inttostr(a);
End;

Procedure TSettingsForm.Button1Click(Sender: TObject);
Var dx, dy          : integer;
  l, maxx, maxy     : integer;
Begin
  maxx := 0;
  maxy := 0;
  For l := 0 To game.level.info.layers - 1 Do
    For dx := 0 To game.level.info.width - 1 Do
      For dy := 0 To game.level.info.height - 1 Do
        If game.level.l[l][dx, dy] <> -1 Then
        Begin
          If dx > maxx Then maxx := dx;
          If dy > maxy Then maxy := dy;
        End;
  edit1.text := inttostr(maxx + 1);
  edit2.text := inttostr(maxy + 1);
End;

End.