source: trunk/Forms/FormDisassembler.pas

unit FormDisassembler;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ExtCtrls, Disassembler;

type

  { TFormDisassembler }

  TFormDisassembler = class(TForm)
    ListView1: TListView;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  public
    Disassembler: TDisassembler;
    procedure SelectAddress(Address: Word);
    procedure ReloadList;
  end;

var
  FormDisassembler: TFormDisassembler;


implementation

{$R *.lfm}

{ TFormDisassembler }

procedure TFormDisassembler.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
end;

procedure TFormDisassembler.FormCreate(Sender: TObject);
begin
  Disassembler := TDisassembler.Create;
end;

procedure TFormDisassembler.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Disassembler);
end;

procedure TFormDisassembler.FormShow(Sender: TObject);
begin
  Disassembler.Disassemble;
  ReloadList;
end;

procedure TFormDisassembler.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Item.Index < Disassembler.DecodedInstructions.Count then
  with TDecodedInstruction(Disassembler.DecodedInstructions[Item.Index]) do begin
    Item.Caption := IntToHex(Address, 4);
    Item.Data := Disassembler.DecodedInstructions[Item.Index];
    Item.SubItems.Add(GetOpcodesText);
    Item.SubItems.Add(Name);
    Item.SubItems.Add(Parameters);
  end;
end;

procedure TFormDisassembler.SelectAddress(Address: Word);
var
  Item: TListItem;
  DecodedInstruction: TDecodedInstruction;
begin
  DecodedInstruction := Disassembler.DecodedInstructions.SearchAddress(Address);
  if Assigned(DecodedInstruction) then begin
    Item := ListView1.Items[Disassembler.DecodedInstructions.IndexOf(DecodedInstruction)];
    if Assigned(Item) then begin
      Item.MakeVisible(False);
      Item.Focused := True;
      Item.Selected := True;
    end;
  end;
end;

procedure TFormDisassembler.ReloadList;
begin
  ListView1.Items.Count := Disassembler.DecodedInstructions.Count;
  ListView1.Refresh;
end;

end.