Ignore:
Timestamp:
Feb 19, 2012, 10:29:55 AM (12 years ago)
Author:
chronos
Message:
  • Modified: Used manual docked forms for better code separation.
  • Modified: Used tabbed layout with PageControl and TabSheets for better usability.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCPU.lfm

    r37 r38  
    1 object InterpreterForm: TInterpreterForm
     1object FormCPU: TFormCPU
    22  Left = 262
    3   Height = 509
     3  Height = 287
    44  Top = 127
    5   Width = 762
     5  Width = 414
    66  Caption = 'Interpretter'
    7   ClientHeight = 509
    8   ClientWidth = 762
    9   OnHide = FormHide
    10   OnShow = FormShow
     7  ClientHeight = 287
     8  ClientWidth = 414
    119  LCLVersion = '0.9.31'
    12   object Panel3: TPanel
    13     Left = 0
    14     Height = 483
    15     Top = 26
    16     Width = 323
    17     Align = alLeft
    18     BevelOuter = bvNone
    19     ClientHeight = 483
    20     ClientWidth = 323
    21     TabOrder = 0
    22     object Panel1: TPanel
    23       Left = 0
    24       Height = 242
    25       Top = 0
    26       Width = 323
    27       Align = alTop
    28       BevelOuter = bvNone
    29       ClientHeight = 242
    30       ClientWidth = 323
    31       TabOrder = 0
    32       object MemoInput: TMemo
    33         Left = 8
    34         Height = 210
    35         Top = 22
    36         Width = 309
    37         Anchors = [akTop, akLeft, akRight, akBottom]
    38         Font.Height = -12
    39         Font.Name = 'Courier New'
    40         OnKeyPress = MemoInputKeyPress
    41         ParentFont = False
    42         ScrollBars = ssAutoBoth
    43         TabOrder = 0
    44       end
    45       object Label1: TLabel
    46         Left = 8
    47         Height = 18
    48         Top = 8
    49         Width = 38
    50         Caption = 'Input:'
    51         ParentColor = False
    52       end
    53     end
    54     object Splitter1: TSplitter
    55       Cursor = crVSplit
    56       Left = 0
    57       Height = 5
    58       Top = 242
    59       Width = 323
    60       Align = alTop
    61       ResizeAnchor = akTop
    62     end
    63     object Panel2: TPanel
    64       Left = 0
    65       Height = 236
    66       Top = 247
    67       Width = 323
    68       Align = alClient
    69       BevelOuter = bvNone
    70       ClientHeight = 236
    71       ClientWidth = 323
    72       TabOrder = 2
    73       object Label2: TLabel
    74         Left = 8
    75         Height = 18
    76         Top = 6
    77         Width = 49
    78         Caption = 'Output:'
    79         ParentColor = False
    80       end
    81       object MemoOutput: TMemo
    82         Left = 8
    83         Height = 211
    84         Top = 22
    85         Width = 309
    86         Anchors = [akTop, akLeft, akRight, akBottom]
    87         Font.Height = -12
    88         Font.Name = 'Courier New'
    89         ParentFont = False
    90         ScrollBars = ssAutoBoth
    91         TabOrder = 0
    92       end
    93     end
     10  object Label4: TLabel
     11    Left = 8
     12    Height = 18
     13    Top = 42
     14    Width = 87
     15    Caption = 'Step counter:'
     16    ParentColor = False
    9417  end
    95   object Splitter2: TSplitter
    96     Left = 323
    97     Height = 483
    98     Top = 26
    99     Width = 5
     18  object Label7: TLabel
     19    Left = 8
     20    Height = 18
     21    Top = 62
     22    Width = 45
     23    Caption = 'Speed:'
     24    ParentColor = False
    10025  end
    101   object Panel4: TPanel
    102     Left = 328
    103     Height = 483
    104     Top = 26
    105     Width = 434
    106     Align = alClient
    107     BevelOuter = bvNone
    108     ClientHeight = 483
    109     ClientWidth = 434
    110     TabOrder = 2
    111     object Label3: TLabel
    112       Left = 1
    113       Height = 18
    114       Top = 8
    115       Width = 110
    116       Caption = 'Program pointer:'
    117       ParentColor = False
    118     end
    119     object LabelProgramPointer: TLabel
    120       Left = 112
    121       Height = 18
    122       Top = 8
    123       Width = 13
    124       Caption = '   '
    125       ParentColor = False
    126     end
    127     object Label5: TLabel
    128       Left = 1
    129       Height = 18
    130       Top = 24
    131       Width = 108
    132       Caption = 'Memory pointer:'
    133       ParentColor = False
    134     end
    135     object LabelMemoryPointer: TLabel
    136       Left = 112
    137       Height = 18
    138       Top = 24
    139       Width = 13
    140       Caption = '   '
    141       ParentColor = False
    142     end
    143     object Label4: TLabel
    144       Left = 1
    145       Height = 18
    146       Top = 42
    147       Width = 87
    148       Caption = 'Step counter:'
    149       ParentColor = False
    150     end
    151     object LabelStepCounter: TLabel
    152       Left = 112
    153       Height = 18
    154       Top = 42
    155       Width = 13
    156       Caption = '   '
    157       ParentColor = False
    158     end
    159     object ListViewMemory: TListView
    160       Left = 1
    161       Height = 358
    162       Top = 120
    163       Width = 429
    164       Anchors = [akTop, akLeft, akRight, akBottom]
    165       Columns = <     
    166         item
    167           Caption = 'Address'
    168           Width = 80
    169         end     
    170         item
    171           Caption = 'Data'
    172           Width = 330
    173         end>
    174       Font.Height = -11
    175       Font.Name = 'Courier New'
    176       OwnerData = True
    177       ParentFont = False
    178       ReadOnly = True
    179       TabOrder = 0
    180       ViewStyle = vsReport
    181       OnData = ListViewMemoryData
    182     end
    183     object Label6: TLabel
    184       Left = 8
    185       Height = 18
    186       Top = 104
    187       Width = 57
    188       Caption = 'Memory:'
    189       ParentColor = False
    190     end
    191     object Label7: TLabel
    192       Left = 1
    193       Height = 18
    194       Top = 62
    195       Width = 45
    196       Caption = 'Speed:'
    197       ParentColor = False
    198     end
    199     object LabelStepSpeed: TLabel
    200       Left = 112
    201       Height = 18
    202       Top = 62
    203       Width = 13
    204       Caption = '   '
    205       ParentColor = False
    206     end
     26  object LabelStepSpeed: TLabel
     27    Left = 119
     28    Height = 18
     29    Top = 62
     30    Width = 13
     31    Caption = '   '
     32    ParentColor = False
    20733  end
    208   object ToolBar1: TToolBar
    209     Left = 0
    210     Height = 26
    211     Top = 0
    212     Width = 762
    213     Images = MainForm.ImageList1
    214     TabOrder = 3
    215     object ToolButton1: TToolButton
    216       Left = 1
    217       Top = 2
    218       Action = MainForm.AProgramRun
    219     end
    220     object ToolButton2: TToolButton
    221       Left = 24
    222       Top = 2
    223       Action = MainForm.AProgramPause
    224     end
    225     object ToolButton3: TToolButton
    226       Left = 47
    227       Top = 2
    228       Action = MainForm.AProgramStop
    229     end
    230     object ToolButton4: TToolButton
    231       Left = 139
    232       Top = 2
    233       Action = MainForm.AProgramRunToCursor
    234     end
    235     object ToolButton5: TToolButton
    236       Left = 93
    237       Top = 2
    238       Action = MainForm.AProgramStepInto
    239     end
    240     object ToolButton6: TToolButton
    241       Left = 116
    242       Top = 2
    243       Action = MainForm.AProgramStepOut
    244     end
    245     object ToolButton7: TToolButton
    246       Left = 70
    247       Top = 2
    248       Action = MainForm.AProgramStepOver
    249     end
     34  object LabelStepCounter: TLabel
     35    Left = 119
     36    Height = 18
     37    Top = 42
     38    Width = 13
     39    Caption = '   '
     40    ParentColor = False
    25041  end
    251   object Timer1: TTimer
    252     Enabled = False
    253     OnTimer = Timer1Timer
    254     left = 495
    255     top = 61
     42  object LabelMemoryPointer: TLabel
     43    Left = 119
     44    Height = 18
     45    Top = 24
     46    Width = 13
     47    Caption = '   '
     48    ParentColor = False
     49  end
     50  object LabelProgramPointer: TLabel
     51    Left = 119
     52    Height = 18
     53    Top = 8
     54    Width = 13
     55    Caption = '   '
     56    ParentColor = False
     57  end
     58  object Label3: TLabel
     59    Left = 8
     60    Height = 18
     61    Top = 8
     62    Width = 110
     63    Caption = 'Program pointer:'
     64    ParentColor = False
     65  end
     66  object Label5: TLabel
     67    Left = 8
     68    Height = 18
     69    Top = 24
     70    Width = 108
     71    Caption = 'Memory pointer:'
     72    ParentColor = False
    25673  end
    25774end
Note: See TracChangeset for help on using the changeset viewer.