Changeset 39 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Feb 25, 2012, 7:41:42 PM (13 years ago)

Author:

chronos

Message:

• Modified: Reorganized docked forms. Target code is now accessible through main PageControl tab.
• Added: Store right and bottom panels size.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (7 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -76 +76 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
-    DockPanel: TPanel;
     MenuItem9: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     OpenDialog1: TOpenDialog;
+    PageControlMain: TPageControl;
     PageControlRight: TPageControl;
     PageControlBottom: TPageControl;
@@ -86 +86 @@
     Splitter2: TSplitter;
     Splitter3: TSplitter;
-    TabSheet1: TTabSheet;
-    TabSheet2: TTabSheet;
-    TabSheet3: TTabSheet;
-    TabSheet4: TTabSheet;
+    TabSheetProject: TTabSheet;
+    TabSheetCodeTree: TTabSheet;
+    TabSheetMessages: TTabSheet;
+    TabSheetBreakpoints: TTabSheet;
+    TabSheetCompiledProject: TTabSheet;
+    TabSheetSource: TTabSheet;
+    TabSheetTarget: TTabSheet;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -171 +174 @@
       with TProducer(Producers[I]) do begin
         OpenKey(Key + '\Producers\' + Name, True);
-        CompilerPAth := ReadStringWithDefault('CompilerPath', CompilerPath);
+        if ValueExists('CompilerPath') then
+          CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath);
       end;
     finally
@@ -188 +192 @@
       with TProducer(Producers[I]) do begin
         OpenKey(Key + '\Producers\' + Name, True);
-        WriteString('CompilerPath', CompilerPath);
+        if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath)
+          else DeleteValue('CompilerPath');
       end;
     finally
@@ -300 +305 @@
   Container2: TCDConjoinForm;
 begin
-  CodeForm.ManualDock(DockPanel, nil, alClient);
+  CodeForm.ManualDock(TabSheetSource, nil, alClient);
   CodeForm.Align := alClient;
   CodeForm.Show;
-  MessagesForm.ManualDock(TabSheet3, nil, alClient);
+  MessagesForm.ManualDock(TabSheetMessages, nil, alClient);
   MessagesForm.Align := alClient;
   MessagesForm.Show;
-  ProjectManager.ManualDock(TabSheet1, nil, alClient);
+  ProjectManager.ManualDock(TabSheetProject, nil, alClient);
   ProjectManager.Align := alClient;
   ProjectManager.Show;
-  CodeTreeForm.ManualDock(TabSheet2, nil, alClient);
+  CodeTreeForm.ManualDock(TabSheetCodeTree, nil, alClient);
   CodeTreeForm.Align := alClient;
   CodeTreeForm.Show;
-  CompiledForm.ManualDock(TabSheet4, nil, alClient);
+  CompiledForm.ManualDock(TabSheetTarget, nil, alClient);
   CompiledForm.Align := alClient;
   CompiledForm.Show;
   PageControlRight.TabIndex := 0;
   PageControlBottom.TabIndex := 0;
+  PageControlMain.TabIndex := 0;
 
   (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
@@ -366 +372 @@
         CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
         else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+      PageControlRight.Width := ReadIntegerWithDefault('RightPanelWidth', 120);
+      PageControlBottom.Height := ReadIntegerWithDefault('BottomPanelHeight', 100);
     finally
       Free;
@@ -386 +394 @@
         WriteString('LanguageCode', CoolTranslator1.Language.Code)
         else DeleteValue('LanguageCode');
+      WriteInteger('RightPanelWidth', PageControlRight.Width);
+      WriteInteger('BottomPanelHeight', PageControlBottom.Height);
     finally
       Free;