dbwin.pas

delphi编制的nes模拟器－－tNes

unit dbwin;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Grids, ValEdit, ExtCtrls;

type
    TDebugWin = class(TForm)
        btn_Step: TButton;
        lst_insList: TListBox;
        ve_status: TValueListEditor;
        btn_Vblank: TButton;
        tmr_runvb: TTimer;
        chk_bp: TCheckBox;
        edt_bp: TEdit;
        btn_savent: TButton;

        procedure btn_StepClick(Sender: TObject);
        procedure btn_VblankClick(Sender: TObject);
        procedure tmr_runvbTimer(Sender: TObject);
        procedure chk_bpClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);

    private
    { Private declarations }
    public
    { Public declarations }
        bp: Boolean;
        breakpoint: WORD;
    end;

var
    DebugWin: TDebugWin;

implementation
uses
    main;
{$R *.dfm}

procedure TDebugWin.btn_StepClick(Sender: TObject);
begin
    mainWin.pause := false;
end;

procedure TDebugWin.btn_VblankClick(Sender: TObject);
begin
    tmr_runvb.Enabled := true;
end;

procedure TDebugWin.tmr_runvbTimer(Sender: TObject);
begin
    self.btn_StepClick(nil);
    if mainWin.Vblank then
        tmr_runvb.Enabled := False;
end;

procedure TDebugWin.chk_bpClick(Sender: TObject);
begin
    bp := chk_bp.Checked;
    breakpoint := word(StrToInt('$' + edt_bp.Text));
end;

procedure TDebugWin.FormCreate(Sender: TObject);
begin
    bp := chk_bp.Checked;
end;



end.