Changeset 144 for trunk/Forms/UFormMain.lfm

Timestamp:

Jun 2, 2023, 11:18:38 PM (18 months ago)

Author:

chronos

Message:

• Modified: Removed explicit mode directive.

File:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 430
-  Height = 732
+  Height = 703
   Top = 249
-  Width = 1075
+  Width = 1032
   Caption = 'LazFuck'
-  ClientHeight = 697
-  ClientWidth = 1075
-  DesignTimePPI = 150
+  ClientHeight = 669
+  ClientWidth = 1032
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnClose = FormClose
@@ -14 +14 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.6.0'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar
     Left = 0
     Height = 28
-    Top = 669
-    Width = 1075
+    Top = 641
+    Width = 1032
     Panels = <    
       item
-        Width = 88
+        Width = 84
       end    
       item
-        Width = 88
+        Width = 84
       end    
       item
-        Width = 100
+        Width = 96
       end>
     ParentFont = False
@@ -36 +36 @@
   object ToolBarMain: TToolBar
     Left = 0
-    Height = 34
+    Height = 33
     Top = 0
-    Width = 1075
+    Width = 1032
     Images = Core.ImageListMain
     ParentFont = False
@@ -50 +50 @@
     end
     object ToolButton2: TToolButton
-      Left = 37
+      Left = 36
       Top = 2
       Action = AProjectOpen
@@ -57 +57 @@
     end
     object ToolButton3: TToolButton
-      Left = 92
+      Left = 89
       Top = 2
       Action = AProjectSave
     end
     object ToolButton4: TToolButton
-      Left = 128
+      Left = 124
       Top = 2
       Action = AProjectClose
     end
     object ToolButton5: TToolButton
-      Left = 200
-      Height = 34
+      Left = 194
+      Height = 33
       Top = 2
       Style = tbsSeparator
     end
     object ToolButton6: TToolButton
-      Left = 244
+      Left = 237
       Top = 2
       Action = AProgramRun
     end
     object ToolButton7: TToolButton
-      Left = 208
+      Left = 202
       Top = 2
       Action = AProgramCompile
     end
     object ToolButton8: TToolButton
-      Left = 164
+      Left = 159
       Top = 2
       Action = AOptions
     end
     object ToolButton9: TToolButton
-      Left = 352
+      Left = 342
       Top = 2
       Action = ABreakpointToggle
     end
     object ToolButton10: TToolButton
-      Left = 280
+      Left = 272
       Top = 2
       Action = AProgramPause
     end
     object ToolButton11: TToolButton
-      Left = 316
+      Left = 307
       Top = 2
       Action = AProgramStop
     end
     object ToolButton12: TToolButton
-      Left = 388
+      Left = 377
       Top = 2
       Action = AProgramStepOver
     end
     object ToolButton13: TToolButton
-      Left = 424
+      Left = 412
       Top = 2
       Action = AProgramStepInto
     end
     object ToolButton14: TToolButton
-      Left = 460
+      Left = 447
       Top = 2
       Action = AProgramStepOut
     end
     object ToolButton15: TToolButton
-      Left = 496
+      Left = 482
       Top = 2
       Action = AProgramRunToCursor
     end
     object ToolButtonTarget: TToolButton
-      Left = 532
+      Left = 517
       Hint = 'Target select'
       Top = 2
@@ -132 +132 @@
   end
   object PageControlRight: TPageControl
-    Left = 583
-    Height = 635
-    Top = 34
-    Width = 492
+    Left = 560
+    Height = 608
+    Top = 33
+    Width = 472
     ActivePage = TabSheetDebug
     Align = alRight
@@ -144 +144 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 631
-      ClientWidth = 405
+      ClientHeight = 604
+      ClientWidth = 390
       ParentFont = False
       object PanelInput: TPanel
         Left = 0
-        Height = 80
+        Height = 77
         Top = 0
-        Width = 405
+        Width = 390
         Align = alTop
         BevelOuter = bvNone
@@ -161 +161 @@
         Left = 0
         Height = 6
-        Top = 80
-        Width = 405
+        Top = 77
+        Width = 390
         Align = alTop
         ResizeAnchor = akTop
@@ -168 +168 @@
       object PanelOutput: TPanel
         Left = 0
-        Height = 324
-        Top = 86
-        Width = 405
+        Height = 311
+        Top = 83
+        Width = 390
         Align = alTop
         BevelOuter = bvNone
@@ -180 +180 @@
         Left = 0
         Height = 6
-        Top = 410
-        Width = 405
+        Top = 394
+        Width = 390
         Align = alTop
         ResizeAnchor = akTop
@@ -187 +187 @@
       object PanelCPU: TPanel
         Left = 0
-        Height = 107
-        Top = 416
-        Width = 405
+        Height = 103
+        Top = 400
+        Width = 390
         Align = alTop
         BevelOuter = bvNone
@@ -199 +199 @@
         Left = 0
         Height = 6
-        Top = 523
-        Width = 405
+        Top = 503
+        Width = 390
         Align = alTop
         ResizeAnchor = akTop
@@ -206 +206 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 102
-        Top = 529
-        Width = 405
+        Height = 95
+        Top = 509
+        Width = 390
         Align = alClient
         BevelOuter = bvNone
@@ -217 +217 @@
   end
   object Splitter1: TSplitter
-    Left = 577
-    Height = 635
-    Top = 34
+    Left = 554
+    Height = 608
+    Top = 33
     Width = 6
     Align = alRight
@@ -226 +226 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 635
-    Top = 34
-    Width = 577
+    Height = 608
+    Top = 33
+    Width = 554
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 635
-    ClientWidth = 577
+    ClientHeight = 608
+    ClientWidth = 554
     ParentFont = False
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 481
+      Height = 460
       Top = 0
-      Width = 577
+      Width = 554
       ActivePage = TabSheetSource
       Align = alClient
@@ -256 +256 @@
     object PageControlBottom: TPageControl
       Left = 0
-      Height = 148
-      Top = 487
-      Width = 577
+      Height = 142
+      Top = 466
+      Width = 554
       ActivePage = TabSheetMessages
       Align = alBottom
@@ -274 +274 @@
       Left = 0
       Height = 6
-      Top = 481
-      Width = 577
+      Top = 460
+      Width = 554
       Align = alBottom
       ResizeAnchor = akBottom
@@ -282 +282 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageListMain
-    Left = 270
-    Top = 167
+    Left = 259
+    Top = 160
     object MenuItem1: TMenuItem
       Caption = 'File'
@@ -389 +389 @@
   object ActionList1: TActionList
     Images = Core.ImageListMain
-    Left = 272
-    Top = 240
+    Left = 261
+    Top = 230
     object AProjectOpen: TAction
       Category = 'Project'
@@ -540 +540 @@
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    Left = 70
-    Top = 230
+    Left = 67
+    Top = 221
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    Left = 70
-    Top = 300
+    Left = 67
+    Top = 288
   end
   object TimerRefresh: TTimer
     Interval = 200
     OnTimer = TimerRefreshTimer
-    Left = 70
-    Top = 370
+    Left = 67
+    Top = 355
   end
   object PopupMenuRecentFiles: TPopupMenu
-    Left = 70
-    Top = 80
+    Left = 67
+    Top = 77
   end
   object PopupMenuTargets: TPopupMenu
     Images = Core.ImageListMain
-    Left = 70
-    Top = 149
+    Left = 67
+    Top = 143
   end
 end