Changeset 6 for trunk/UInterpreterForm.lfm

Timestamp:

Feb 9, 2012, 3:22:38 PM (12 years ago)

Author:

chronos

Message:

• Modified: Interpretter now wait for key press if Read instruction is executed and no input character is available.
• Added: Actions to control program executions.

File:

• trunk/UInterpreterForm.lfm (modified) (8 diffs)

trunk/UInterpreterForm.lfm

@@ -1 +1 @@
 object InterpreterForm: TInterpreterForm
-  Left = 242
+  Left = 262
   Height = 509
-  Top = 116
+  Top = 127
   Width = 762
   Caption = 'Runtime'
@@ -10 +10 @@
   object Panel3: TPanel
     Left = 0
-    Height = 509
-    Top = 0
+    Height = 483
+    Top = 26
     Width = 323
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 509
+    ClientHeight = 483
     ClientWidth = 323
     TabOrder = 0
@@ -34 +34 @@
         Width = 309
         Anchors = [akTop, akLeft, akRight, akBottom]
+        OnKeyPress = MemoInputKeyPress
+        ScrollBars = ssAutoBoth
         TabOrder = 0
       end
@@ -56 +58 @@
     object Panel2: TPanel
       Left = 0
-      Height = 262
+      Height = 236
       Top = 247
       Width = 323
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 262
+      ClientHeight = 236
       ClientWidth = 323
       TabOrder = 2
@@ -74 +76 @@
       object MemoOutput: TMemo
         Left = 8
-        Height = 237
+        Height = 211
         Top = 22
         Width = 309
         Anchors = [akTop, akLeft, akRight, akBottom]
+        ScrollBars = ssAutoBoth
         TabOrder = 0
       end
@@ -84 +87 @@
   object Splitter2: TSplitter
     Left = 323
-    Height = 509
-    Top = 0
+    Height = 483
+    Top = 26
     Width = 5
   end
   object Panel4: TPanel
     Left = 328
-    Height = 509
-    Top = 0
+    Height = 483
+    Top = 26
     Width = 434
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 509
+    ClientHeight = 483
     ClientWidth = 434
     TabOrder = 2
@@ -148 +151 @@
     object ListViewMemory: TListView
       Left = 8
-      Height = 384
+      Height = 358
       Top = 120
       Width = 422
@@ -179 +182 @@
     end
   end
+  object ToolBar1: TToolBar
+    Left = 0
+    Height = 26
+    Top = 0
+    Width = 762
+    Caption = 'ToolBar1'
+    Images = MainForm.ImageList1
+    TabOrder = 3
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Action = MainForm.AProgramRun
+    end
+    object ToolButton2: TToolButton
+      Left = 24
+      Top = 2
+      Action = MainForm.AProgramPause
+    end
+    object ToolButton3: TToolButton
+      Left = 47
+      Top = 2
+      Action = MainForm.AProgramStop
+    end
+  end
   object Timer1: TTimer
     Interval = 500