Changeset 38 for trunk/Forms/UFormMain.lfm

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:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 236
+  Left = 208
   Height = 609
-  Top = 74
+  Top = 134
   Width = 790
   Caption = 'LazFuck'
@@ -14 +14 @@
   LCLVersion = '0.9.31'
   WindowState = wsMaximized
-  object StatusBar1: TStatusBar
+  object StatusBarMain: TStatusBar
     Left = 0
     Height = 21
@@ -31 +31 @@
     SimplePanel = False
   end
-  object ToolBar1: TToolBar
+  object ToolBarMain: TToolBar
     Left = 0
     Height = 26
@@ -117 +117 @@
     end
   end
-  object PageControl2: TPageControl
-    Left = 590
+  object PageControlRight: TPageControl
+    Left = 397
     Height = 537
     Top = 26
-    Width = 200
-    ActivePage = TabSheet2
+    Width = 393
+    ActivePage = TabSheetDebug
     Align = alRight
     TabIndex = 0
     TabOrder = 2
     TabPosition = tpRight
-    object TabSheet2: TTabSheet
+    object TabSheetDebug: TTabSheet
       Caption = 'Debug'
+      ClientHeight = 535
+      ClientWidth = 341
+      object PanelInput: TPanel
+        Left = 0
+        Height = 133
+        Top = 0
+        Width = 341
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+      end
+      object Splitter3: TSplitter
+        Cursor = crVSplit
+        Left = 0
+        Height = 5
+        Top = 133
+        Width = 341
+        Align = alTop
+        ResizeAnchor = akTop
+      end
+      object PanelOutput: TPanel
+        Left = 0
+        Height = 123
+        Top = 138
+        Width = 341
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 2
+      end
+      object Splitter4: TSplitter
+        Cursor = crVSplit
+        Left = 0
+        Height = 5
+        Top = 261
+        Width = 341
+        Align = alTop
+        ResizeAnchor = akTop
+      end
+      object PanelCPU: TPanel
+        Left = 0
+        Height = 139
+        Top = 266
+        Width = 341
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 4
+      end
+      object Splitter5: TSplitter
+        Cursor = crVSplit
+        Left = 0
+        Height = 5
+        Top = 405
+        Width = 341
+        Align = alTop
+        ResizeAnchor = akTop
+      end
+      object PanelMemory: TPanel
+        Left = 0
+        Height = 125
+        Top = 410
+        Width = 341
+        Align = alClient
+        BevelOuter = bvNone
+        TabOrder = 6
+      end
     end
   end
   object Splitter1: TSplitter
-    Left = 585
+    Left = 392
     Height = 537
     Top = 26
@@ -139 +204 @@
     ResizeAnchor = akRight
   end
-  object Panel1: TPanel
+  object PanelLeft: TPanel
     Left = 0
     Height = 537
     Top = 26
-    Width = 585
+    Width = 392
     Align = alClient
     BevelOuter = bvNone
     ClientHeight = 537
-    ClientWidth = 585
+    ClientWidth = 392
     TabOrder = 4
-    object PageControl1: TPageControl
+    object PageControlMain: TPageControl
       Left = 0
       Height = 414
       Top = 0
-      Width = 585
+      Width = 392
       ActivePage = TabSheetSource
       Align = alClient
@@ -162 +227 @@
         Caption = 'Source code'
         ClientHeight = 387
-        ClientWidth = 583
+        ClientWidth = 390
         object MemoSource: TMemo
           Left = 0
           Height = 387
           Top = 0
-          Width = 583
+          Width = 390
           Align = alClient
           Font.Height = -12
@@ -185 +250 @@
         Caption = 'Target code'
         ClientHeight = 387
-        ClientWidth = 583
+        ClientWidth = 390
         object MemoTarget: TMemo
           Left = 0
@@ -199 +264 @@
       end
     end
-    object PageControl3: TPageControl
+    object PageControlBottom: TPageControl
       Left = 0
       Height = 118
       Top = 419
-      Width = 585
-      ActivePage = TabSheet1
+      Width = 392
+      ActivePage = TabSheetMessages
       Align = alBottom
       TabIndex = 0
       TabOrder = 1
       TabPosition = tpBottom
-      object TabSheet1: TTabSheet
+      object TabSheetMessages: TTabSheet
         Caption = 'Messages'
-        ClientHeight = 91
-        ClientWidth = 583
-        object MemoMessages: TMemo
-          Left = 0
-          Height = 91
-          Top = 0
-          Width = 583
-          Align = alClient
-          TabOrder = 0
-        end
       end
     end
@@ -228 +283 @@
       Height = 5
       Top = 414
-      Width = 585
+      Width = 392
       Align = alBottom
       ResizeAnchor = akBottom
@@ -235 +290 @@
   object MainMenu1: TMainMenu
     Images = ImageList1
-    left = 356
-    top = 152
+    left = 216
+    top = 128
     object MenuItem1: TMenuItem
       Caption = 'Project'
@@ -948 +1003 @@
   object ActionList1: TActionList
     Images = ImageList1
-    left = 448
-    top = 96
+    left = 216
+    top = 240
     object AProjectOpen: TAction
       Category = 'Project'
@@ -1107 +1162 @@
   end
   object ImageList1: TImageList
-    left = 356
-    top = 96
+    left = 216
+    top = 72
     Bitmap = {
       4C69120000001000000010000000000000000000000000000000000000000000
@@ -1692 +1747 @@
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    left = 192
-    top = 157
+    left = 56
+    top = 184
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    left = 192
-    top = 208
+    left = 56
+    top = 240
   end
   object CoolTranslator1: TCoolTranslator
     POFilesFolder = 'Languages'
-    left = 362
-    top = 216
+    left = 216
+    top = 184
   end
   object PopupMenuSource: TPopupMenu
     Images = ImageList1
-    left = 192
-    top = 104
+    left = 56
+    top = 128
     object MenuItem23: TMenuItem
       Action = ABreakpointToggle
@@ -1799 +1854 @@
   end
   object PopupMenuTarget: TPopupMenu
-    left = 92
-    top = 136
+    left = 56
+    top = 72
     object MenuItem20: TMenuItem
       Action = AShowSourcePosition
     end
   end
+  object TimerRefresh: TTimer
+    OnTimer = TimerRefreshTimer
+    left = 56
+    top = 296
+  end
 end