Changeset 39 for trunk/Forms/UFormMain.lfm

Timestamp:

Feb 19, 2012, 12:41:25 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Step into, step over, step out, run to cursor debbuging actions.
• Fixed: Updating interface from interpretter thread using synchronization.

File:

• trunk/Forms/UFormMain.lfm (modified) (17 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 208
-  Height = 609
-  Top = 134
-  Width = 790
+  Left = 215
+  Height = 414
+  Top = 271
+  Width = 665
   Caption = 'LazFuck'
-  ClientHeight = 584
-  ClientWidth = 790
+  ClientHeight = 389
+  ClientWidth = 665
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
@@ -17 +17 @@
     Left = 0
     Height = 21
-    Top = 563
-    Width = 790
+    Top = 368
+    Width = 665
     Panels = <    
       item
@@ -35 +35 @@
     Height = 26
     Top = 0
-    Width = 790
+    Width = 665
     Images = ImageList1
     ParentShowHint = False
@@ -118 +118 @@
   end
   object PageControlRight: TPageControl
-    Left = 397
-    Height = 537
+    Left = 272
+    Height = 342
     Top = 26
     Width = 393
@@ -129 +129 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 535
+      ClientHeight = 340
       ClientWidth = 341
       object PanelInput: TPanel
         Left = 0
-        Height = 133
+        Height = 64
         Top = 0
         Width = 341
@@ -144 +144 @@
         Left = 0
         Height = 5
-        Top = 133
+        Top = 64
         Width = 341
         Align = alTop
@@ -151 +151 @@
       object PanelOutput: TPanel
         Left = 0
-        Height = 123
-        Top = 138
+        Height = 259
+        Top = 69
         Width = 341
         Align = alTop
@@ -162 +162 @@
         Left = 0
         Height = 5
-        Top = 261
+        Top = 328
         Width = 341
         Align = alTop
@@ -169 +169 @@
       object PanelCPU: TPanel
         Left = 0
-        Height = 139
-        Top = 266
+        Height = 86
+        Top = 333
         Width = 341
         Align = alTop
@@ -180 +180 @@
         Left = 0
         Height = 5
-        Top = 405
+        Top = 340
         Width = 341
         Align = alTop
@@ -187 +187 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 125
-        Top = 410
+        Height = 1
+        Top = 340
         Width = 341
         Align = alClient
@@ -197 +197 @@
   end
   object Splitter1: TSplitter
-    Left = 392
-    Height = 537
+    Left = 267
+    Height = 342
     Top = 26
     Width = 5
@@ -206 +206 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 537
+    Height = 342
     Top = 26
-    Width = 392
+    Width = 267
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 537
-    ClientWidth = 392
+    ClientHeight = 342
+    ClientWidth = 267
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 414
+      Height = 219
       Top = 0
-      Width = 392
+      Width = 267
       ActivePage = TabSheetSource
       Align = alClient
@@ -226 +226 @@
       object TabSheetSource: TTabSheet
         Caption = 'Source code'
-        ClientHeight = 387
-        ClientWidth = 390
+        ClientHeight = 192
+        ClientWidth = 265
         object MemoSource: TMemo
           Left = 0
-          Height = 387
+          Height = 192
           Top = 0
-          Width = 390
+          Width = 265
           Align = alClient
           Font.Height = -12
@@ -249 +249 @@
       object TabSheetTarget: TTabSheet
         Caption = 'Target code'
-        ClientHeight = 387
-        ClientWidth = 390
+        ClientHeight = 192
+        ClientWidth = 265
         object MemoTarget: TMemo
           Left = 0
@@ -267 +267 @@
       Left = 0
       Height = 118
-      Top = 419
-      Width = 392
+      Top = 224
+      Width = 267
       ActivePage = TabSheetMessages
       Align = alBottom
@@ -282 +282 @@
       Left = 0
       Height = 5
-      Top = 414
-      Width = 392
+      Top = 219
+      Width = 267
       Align = alBottom
       ResizeAnchor = akBottom