FPUFormClass.pas

   1 unit FPUFormClass;
   2
   3 interface
   4
   5 uses
   6   AsmGridClass, ExceptionViewClass, HardwareClass, StackViewClass,
   7   SteppingClass,
   8   Forms, Classes, Controls, Grids, Menus;
   9
  10 type
  11   TViewFPU = class(TForm)
  12     DESIGN_pAsmGrid: TStringGrid;
  13     DESIGN_pStackView: TStringGrid;
  14     DESIGN_pExceptionView: TStringGrid;
  15     pMainMenu: TMainMenu;
  16     pApplication: TMenuItem;
  17     pExit: TMenuItem;
  18     procedure FormCreate(Sender: TObject);
  19   private
  20     pAsmGrid: TAsmGrid;
  21     pHardware: THardware;
  22     pStackView: TStackView;
  23     pStepping: TStepping;
  24     pExceptionView: TExceptionView;
  25   public
  26     { Public declarations }
  27   end;
  28
  29 var
  30   ViewFPU: TViewFPU;
  31
  32 implementation
  33
  34 {$R *.dfm}
  35
  36 procedure TViewFPU.FormCreate(Sender: TObject);
  37 begin
  38   pHardware := THardware.Create;
  39   pStepping := TStepping.Create;
  40   pStepping.Hardware := pHardware;
  41   pAsmGrid := TAsmGrid.CreateGrid(Self, pStepping);
  42   with pAsmGrid do
  43   begin
  44     Parent := Self;
  45     Left := DESIGN_pAsmGrid.Left;
  46     Top := DESIGN_pAsmGrid.Top;
  47     Width := DESIGN_pAsmGrid.Width;
  48     Height := DESIGN_pAsmGrid.Height;
  49   end;
  50   pStackView := TStackView.CreateStackView(Self, pHardware);
  51   with pStackView do
  52   begin
  53     Parent := Self;
  54     Left := DESIGN_pStackView.Left;
  55     Top := DESIGN_pStackView.Top;
  56     Width := DESIGN_pStackView.Width;
  57     Height := DESIGN_pStackView.Height;
  58   end;
  59   pExceptionView := TExceptionView.CreateExceptionView(Self, pHardware);
  60   with pExceptionView do
  61   begin
  62     Parent := Self;
  63     Left := DESIGN_pExceptionView.Left;
  64     Top := DESIGN_pExceptionView.Top;
  65     Width := DESIGN_pExceptionView.Width;
  66     Height := DESIGN_pExceptionView.Height;
  67   end;
  68 end;
  69
  70 end.