Changeset 39 for trunk/IDE/Forms

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.

Location:

trunk/IDE/Forms

Files:

• UCompiledForm.lfm (modified) (1 diff)
• UMainForm.lfm (modified) (5 diffs)
• UMainForm.lrt (modified) (1 diff)
• UMainForm.pas (modified) (7 diffs)

trunk/IDE/Forms/UCompiledForm.lfm

@@ -532 +532 @@
         Command = emcStartDragMove
       end>
-    Lines.Strings = (
-      'SynEdit1'
-    )
     VisibleSpecialChars = [vscSpace, vscTabAtLast]
+    ReadOnly = True
     BracketHighlightStyle = sbhsBoth
+    BracketMatchColor.Background = clNone
+    BracketMatchColor.Foreground = clNone
+    BracketMatchColor.Style = [fsBold]
+    FoldedCodeColor.Background = clNone
+    FoldedCodeColor.Foreground = clGray
+    FoldedCodeColor.FrameColor = clGray
+    MouseLinkColor.Background = clNone
+    MouseLinkColor.Foreground = clBlue
+    LineHighlightColor.Background = clNone
+    LineHighlightColor.Foreground = clNone
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks

trunk/IDE/Forms/UMainForm.lfm

@@ -25 +25 @@
     ResizeAnchor = akBottom
   end
-  object DockPanel: TPanel
-    Left = 0
-    Height = 339
-    Top = 26
-    Width = 490
-    Align = alClient
-    BevelOuter = bvNone
-    TabOrder = 1
-  end
   object ToolBar1: TToolBar
     Left = 0
@@ -42 +33 @@
     ParentShowHint = False
     ShowHint = True
-    TabOrder = 2
+    TabOrder = 1
     object ToolButton1: TToolButton
       Left = 1
@@ -98 +89 @@
     Top = 26
     Width = 200
-    ActivePage = TabSheet2
+    ActivePage = TabSheetProject
     Align = alRight
-    TabIndex = 1
-    TabOrder = 4
+    TabIndex = 0
+    TabOrder = 3
     TabPosition = tpRight
-    object TabSheet1: TTabSheet
+    object TabSheetProject: TTabSheet
       Caption = 'Project'
     end
-    object TabSheet2: TTabSheet
+    object TabSheetCodeTree: TTabSheet
       Caption = 'Code Tree'
+    end
+    object TabSheetCompiledProject: TTabSheet
+      Caption = 'Target project'
     end
   end
@@ -115 +109 @@
     Top = 370
     Width = 695
-    ActivePage = TabSheet4
+    ActivePage = TabSheetMessages
     Align = alBottom
-    TabIndex = 1
-    TabOrder = 5
+    TabIndex = 0
+    TabOrder = 4
     TabPosition = tpBottom
-    object TabSheet3: TTabSheet
+    object TabSheetMessages: TTabSheet
       Caption = 'Messages'
     end
-    object TabSheet4: TTabSheet
-      Caption = 'Compiled source'
+    object TabSheetBreakpoints: TTabSheet
+      Caption = 'Breakpoints'
     end
   end
@@ -135 +129 @@
     Align = alBottom
     ResizeAnchor = akBottom
+  end
+  object PageControlMain: TPageControl
+    Left = 0
+    Height = 339
+    Top = 26
+    Width = 490
+    ActivePage = TabSheetSource
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 6
+    object TabSheetSource: TTabSheet
+      Caption = 'Source code'
+    end
+    object TabSheetTarget: TTabSheet
+      Caption = 'Target code'
+    end
   end
   object MainMenu1: TMainMenu

trunk/IDE/Forms/UMainForm.lrt

@@ -1 +1 @@
 TMAINFORM.CAPTION=Transpascal IDE
-TMAINFORM.TABSHEET1.CAPTION=Project
-TMAINFORM.TABSHEET2.CAPTION=Code Tree
-TMAINFORM.TABSHEET3.CAPTION=Messages
-TMAINFORM.TABSHEET4.CAPTION=Compiled source
+TMAINFORM.TABSHEETPROJECT.CAPTION=Project
+TMAINFORM.TABSHEETCODETREE.CAPTION=Code Tree
+TMAINFORM.TABSHEETCOMPILEDPROJECT.CAPTION=Target project
+TMAINFORM.TABSHEETMESSAGES.CAPTION=Messages
+TMAINFORM.TABSHEETBREAKPOINTS.CAPTION=Breakpoints
+TMAINFORM.TABSHEETSOURCE.CAPTION=Source code
+TMAINFORM.TABSHEETTARGET.CAPTION=Target code
 TMAINFORM.MENUITEM1.CAPTION=Project
 TMAINFORM.MENUITEMOPENRECENT.CAPTION=Open recent

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;