Changeset 8 for branches/bigint/Forms


Ignore:
Timestamp:
Aug 2, 2024, 9:36:35 AM (4 months ago)
Author:
chronos
Message:
  • Added: Common package.
  • Added: Memory form to show content of memory.
Location:
branches/bigint
Files:
3 added
3 edited

Legend:

Unmodified
Added
Removed

  • branches/bigint

    • Property svn:ignore

      •  

        old new  
        44BigIntVM.dbg
        55lib
         6heaptrclog.trc

  • branches/bigint/Forms/FormDisassembler.pas

    r6 r8  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Disassembler;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Disassembler,
     7  FormEx;
    78
    89type
    … …  
    1011  { TFormDisassembler }
    1112
    12   TFormDisassembler = class(TForm)
     13  TFormDisassembler = class(TFormEx)
    1314    MemoCode: TMemo;
    1415    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

  • branches/bigint/Forms/FormMain.pas

    r6 r8  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Machine, Int,
    7   Cpu, Assembler, FormDisassembler;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Machine,
     7  Assembler, FormDisassembler, FormEx, FormMemory;
    88
    99type
    … …  
    1111  { TFormMain }
    1212
    13   TFormMain = class(TForm)
     13  TFormMain = class(TFormEx)
    1414    Memo1: TMemo;
    1515    procedure FormCreate(Sender: TObject);
    … …  
    2020  public
    2121    SubFormDisassembler: TFormDisassembler;
     22    SubFormMemory: TFormMemory;
    2223    Machine: TMachine;
    2324  end;
    … …  
    4142procedure TFormMain.FormDestroy(Sender: TObject);
    4243begin
     44  FreeAndNil(SubFormMemory);
     45  FreeAndNil(SubFormDisassembler);
    4346  FreeAndNil(Machine);
    4447end;
    … …  
    6669  SubFormDisassembler.Disassembler.Memory := Machine.Memory;
    6770  SubFormDisassembler.Show;
     71
     72  SubFormMemory := TFormMemory.Create(nil);
     73  SubFormMemory.Memory := Machine.Memory;
     74  SubFormMemory.Show;
    6875end;
    6976
Note: See TracChangeset for help on using the changeset viewer.