Ignore:
Timestamp:
Aug 19, 2020, 11:54:20 PM (4 years ago)
Author:
chronos
Message:
  • Added: TMachine class which contains CPU and peripherals.
  • Added: Execute TCpu inside background thread.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/virtcpu fixed int/UFormMain.lfm

    r168 r215  
    11object Form1: TForm1
    22  Left = 385
    3   Height = 762
     3  Height = 914
    44  Top = 208
    5   Width = 1286
     5  Width = 1543
    66  Caption = 'Form1'
    7   ClientHeight = 762
    8   ClientWidth = 1286
    9   DesignTimePPI = 120
     7  ClientHeight = 914
     8  ClientWidth = 1543
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    1212  OnKeyPress = FormKeyPress
    1313  OnShow = FormShow
    14   LCLVersion = '1.8.2.0'
     14  LCLVersion = '2.0.10.0'
    1515  object ListViewMemory: TListView
    16     Left = 515
    17     Height = 687
    18     Top = 40
    19     Width = 733
     16    Left = 618
     17    Height = 824
     18    Top = 48
     19    Width = 880
    2020    Columns = <   
    2121      item
    2222        Caption = 'Address'
    23         Width = 100
     23        Width = 120
    2424      end   
    2525      item
    26         Width = 500
     26        Width = 745
    2727      end>
    2828    Font.Name = 'Liberation Mono'
    … …  
    3434  end
    3535  object ListViewRegisters: TListView
    36     Left = 312
    37     Height = 687
    38     Top = 41
    39     Width = 192
     36    Left = 374
     37    Height = 824
     38    Top = 49
     39    Width = 230
    4040    Columns = <   
    4141      item
    4242        Caption = 'Register'
    43         Width = 80
     43        Width = 96
    4444      end   
    4545      item
    46         Width = 100
     46        Width = 120
    4747      end>
    4848    Font.Name = 'Liberation Mono'
    … …  
    5454  end
    5555  object Memo1: TMemo
    56     Left = 16
    57     Height = 531
    58     Top = 24
    59     Width = 284
     56    Left = 19
     57    Height = 637
     58    Top = 29
     59    Width = 341
    6060    OnKeyPress = Memo1KeyPress
     61    ParentFont = False
    6162    ReadOnly = True
    6263    TabOrder = 2
    6364  end
    64   object Button1: TButton
    65     Left = 206
    66     Height = 31
    67     Top = 568
    68     Width = 94
     65  object ButtonStart: TButton
     66    Left = 248
     67    Height = 37
     68    Top = 682
     69    Width = 113
    6970    Caption = 'Start'
    70     OnClick = Button1Click
     71    OnClick = ButtonStartClick
     72    ParentFont = False
    7173    TabOrder = 3
    7274  end
    73   object Button2: TButton
    74     Left = 88
    75     Height = 31
    76     Top = 568
    77     Width = 94
     75  object ButtonStop: TButton
     76    Left = 106
     77    Height = 37
     78    Top = 682
     79    Width = 113
    7880    Caption = 'Stop'
    79     OnClick = Button2Click
     81    OnClick = ButtonStopClick
     82    ParentFont = False
    8083    TabOrder = 4
    8184  end
    8285  object LabelTicks: TLabel
    83     Left = 16
    84     Height = 20
    85     Top = 612
    86     Width = 35
     86    Left = 19
     87    Height = 24
     88    Top = 734
     89    Width = 48
    8790    Caption = 'Ticks:'
    8891    ParentColor = False
     92    ParentFont = False
    8993  end
    9094  object Timer1: TTimer
    9195    Interval = 500
    9296    OnTimer = Timer1Timer
    93     left = 226
    94     top = 675
     97    Left = 271
     98    Top = 810
    9599  end
    96100end
Note: See TracChangeset for help on using the changeset viewer.