unit2.pas

来自「一个用delphi编写的过关游戏」· PAS 代码 · 共 72 行

Unit Unit2;

Interface

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

Type
  TDebugForm = Class(TForm)
    GroupBox1: TGroupBox;
    ObjsMem: TLabel;
    ObjsFree: TLabel;
    LMDSpeedButton1: TSpeedButton;
    Procedure FormCreate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
    Procedure FormKeyUp(Sender: TObject; Var Key: Word;
      Shift: TShiftState);
    Procedure BitBtn1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  DebugForm         : TDebugForm;

Implementation

{$R *.DFM}
Uses unit1;

Procedure TDebugForm.FormCreate(Sender: TObject);
Begin
  left := 0;
  top := 0;
End;

Procedure TDebugForm.FormShow(Sender: TObject);
Var i, c            : integer;
Begin
  objsmem.caption := 'Objs allocted:' + inttostr(length(game.objs));
  c := 0;
  For i := 0 To length(game.objs) - 1 Do
    If game.objs[i].typo = 0 Then inc(c);
  objsfree.caption := 'Free:' + inttostr(c);
  mainform.SetFocus;
End;

Procedure TDebugForm.FormKeyUp(Sender: TObject; Var Key: Word;
  Shift: TShiftState);
Begin
  hide;
End;

Procedure TDebugForm.BitBtn1Click(Sender: TObject);
Begin
  With game Do
  Begin
    objs[myhandle].typo := 1;
    If objs[myhandle].yy > level.info.height * 32 Then
    Begin
      objs[myhandle].yy := level.info.height * 32;
      objs[myhandle].vy := -40;
    End;
  End;
End;

End.