diag.pas

一款RPG游戏的引擎可以自己制作一款RPG游戏的引擎可以自己制作

unit diag;

interface

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

type
  Tdiagnostics = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    debug: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormHide(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Count : Integer;
    procedure AddDiagnostic(s :string);
  end;

var
  diagnostics: Tdiagnostics;

implementation

uses Main;

{$R *.DFM}

{ Tdiagnostics }

procedure Tdiagnostics.AddDiagnostic(s: string);
begin
  if (debug.checked) then
  begin
      Inc(Count);
      Memo1.Lines.Add(IntToStr(Count) + ')' + s);
      if (Memo1.Lines.Count>20) then
      begin
        Memo1.Lines.Delete(1);
      end;
  end;
end;

procedure Tdiagnostics.FormCreate(Sender: TObject);
begin
  Count := 0;
  debug.checked := False;
end;

procedure Tdiagnostics.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caMinimize;
end;

procedure Tdiagnostics.FormHide(Sender: TObject);
begin
  MainForm.Diagnostics1.Checked := False;
end;

procedure Tdiagnostics.FormShow(Sender: TObject);
begin
  MainForm.Diagnostics1.Checked := true;
end;

end.