Changeset 34 for trunk/IDE/Forms/UMainForm.lfm

Timestamp:

Feb 13, 2012, 1:47:33 PM (13 years ago)

Author:

chronos

Message:

• Added: Package Common replace units LastOpenedList and Registry.
• Modified: Instead of unfinished advanced docking manager use static dockign to panels and PageControl sheets.

Location:

trunk/IDE

Files:

• . (modified) (1 prop)
• Forms/UMainForm.lfm (modified) (11 diffs)

trunk/IDE

@@ -1 +1 @@
 lib
 backup
+Transpascal.dbg
+Transpascal.lps
+Transpascal.exe

@@ -1 +1 @@
 lib
 backup
+Transpascal.dbg
+Transpascal.lps
+Transpascal.exe

trunk/IDE/Forms/UMainForm.lfm

@@ -5 +5 @@
   Width = 695
   Caption = 'Transpascal IDE'
-  ClientHeight = 478
+  ClientHeight = 482
   ClientWidth = 695
   Font.Height = -11
@@ -20 +20 @@
     Left = 0
     Height = 5
-    Top = 473
+    Top = 477
     Width = 695
     Align = alBottom
@@ -27 +27 @@
   object DockPanel: TPanel
     Left = 0
-    Height = 447
+    Height = 350
     Top = 26
-    Width = 695
+    Width = 490
     Align = alClient
     BevelOuter = bvNone
@@ -39 +39 @@
     Top = 0
     Width = 695
-    Caption = 'ToolBar1'
     TabOrder = 2
     object ComboBoxProducer: TComboBox
       Left = 192
-      Height = 24
+      Height = 21
       Top = 2
       Width = 135
       Align = alLeft
-      ItemHeight = 0
+      ItemHeight = 13
       ItemIndex = 1
       Items.Strings = (
@@ -73 +72 @@
       Height = 24
       Top = 2
-      Width = 124
+      Width = 105
       Align = alLeft
       Caption = 'Log parsing to file'
@@ -80 +79 @@
     object ComboBoxAnalyzer: TComboBox
       Left = 40
-      Height = 24
+      Height = 21
       Top = 2
       Width = 124
       Align = alLeft
-      ItemHeight = 0
+      ItemHeight = 13
       Style = csDropDownList
       TabOrder = 3
@@ -112 +111 @@
       Layout = tlCenter
       ParentColor = False
+    end
+  end
+  object Splitter1: TSplitter
+    Left = 490
+    Height = 350
+    Top = 26
+    Width = 5
+    Align = alRight
+    ResizeAnchor = akRight
+  end
+  object PageControl1: TPageControl
+    Left = 495
+    Height = 350
+    Top = 26
+    Width = 200
+    ActivePage = TabSheet1
+    Align = alRight
+    TabIndex = 0
+    TabOrder = 4
+    TabPosition = tpRight
+    object TabSheet1: TTabSheet
+      Caption = 'Project'
+    end
+    object TabSheet2: TTabSheet
+      Caption = 'Code Tree'
+    end
+  end
+  object PageControl2: TPageControl
+    Left = 0
+    Height = 101
+    Top = 376
+    Width = 695
+    ActivePage = TabSheet4
+    Align = alBottom
+    TabIndex = 1
+    TabOrder = 5
+    TabPosition = tpBottom
+    object TabSheet3: TTabSheet
+      Caption = 'Messages'
+    end
+    object TabSheet4: TTabSheet
+      Caption = 'Compiled source'
     end
   end
@@ -137 +178 @@
         Action = AProjectClose
       end
+      object MenuItem12: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem13: TMenuItem
+        Action = AExit
+      end
     end
     object MenuItem7: TMenuItem
@@ -142 +189 @@
       object MenuItem8: TMenuItem
         Action = ABuild
+      end
+      object MenuItem14: TMenuItem
+        Action = ARun
+      end
+    end
+    object MenuItem15: TMenuItem
+      Caption = 'View'
+      object MenuItem16: TMenuItem
+        Caption = 'New Item18'
+      end
+      object MenuItem17: TMenuItem
+        Caption = 'New Item19'
+      end
+      object MenuItem18: TMenuItem
+        Caption = 'New Item20'
+      end
+    end
+    object MenuItem9: TMenuItem
+      Caption = 'Help'
+      object MenuItem10: TMenuItem
+        Action = AHomepage
+      end
+      object MenuItem11: TMenuItem
+        Action = AAbout
       end
     end
@@ -184 +255 @@
       ShortCut = 120
     end
-  end
-  object CoolDockMaster1: TCDMaster
-    Customize = CDCustomize1
-    TabsEnabled = True
-    DefaultTabsPos = hpAuto
-    DefaultHeaderPos = hpAuto
-    DefaultMoveSpeed = 0
-    ShowIcons = False
-    left = 504
-    top = 104
-  end
-  object CoolDockClient1: TCDClient
-    Master = CoolDockMaster1
-    Panel = DockPanel
-    Dockable = False
-    Floatable = False
-    left = 504
-    top = 56
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object ARun: TAction
+      Caption = 'Run'
+    end
+    object AAbout: TAction
+      Caption = 'About...'
+      OnExecute = AAboutExecute
+    end
+    object AHomepage: TAction
+      Caption = 'Homepage'
+      OnExecute = AHomepageExecute
+    end
+    object AViewProject: TAction
+      Category = 'View'
+      Caption = 'Project manager'
+    end
+    object AViewObjectInspector: TAction
+      Category = 'View'
+      Caption = 'Object inspector'
+    end
+    object AViewSourceEditor: TAction
+      Category = 'View'
+      Caption = 'Source editor'
+    end
+    object AViewMessages: TAction
+      Category = 'View'
+      Caption = 'Messages'
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -213 +297 @@
     top = 104
   end
-  object CDWindowList1: TCDWindowList
-    left = 502
-    top = 157
-  end
-  object CDLayoutList1: TCDLayoutList
-    left = 502
-    top = 205
-  end
-  object CDCustomize1: TCDCustomize
-    Master = CoolDockMaster1
-    LayoutList = CDLayoutList1
-    left = 499
-    top = 260
-  end
   object ImageList1: TImageList
     left = 624
     top = 112
   end
+  object DebugLog1: TDebugLog
+    WriteToFileEnable = False
+    FileName = 'DebugLog.txt'
+    MaxCount = 100
+    left = 344
+    top = 88
+  end
 end

@@ -1 +1 @@
 lib
 backup
+Transpascal.dbg
+Transpascal.lps
+Transpascal.exe