Changeset 62 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 15, 2010, 7:09:49 AM (14 years ago)

Author:

george

Message:

• Added: Windows for Code tree and compiled code.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (7 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -9 +9 @@
   Dialogs, StdCtrls, UCompiler, UProducerAsm8051,
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
-  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking;
+  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking,
+  UCompiledForm, UCodeTreeForm;
 
 const
@@ -51 +52 @@
     procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
       var Accept: Boolean);
-    procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
     procedure LoadErrorMessages;
     procedure UpdateProjectTree;
     procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
-    function GetSource(Name: string; Source: TStringList): Boolean;
     procedure DockInit;
   public
     Project: TProject;
-    ProducerControl: TControl;
     Compiler: TCompiler;
+    function GetSource(Name: string; Source: TStringList): Boolean;
   end;
 
@@ -80 +79 @@
   I: Integer;
 begin
-  ProducerControl.Free;
   if ComboBox1.ItemIndex = 0 then begin
     Compiler.Producer.Free;
@@ -96 +94 @@
     Compiler.Producer.Free;
     Compiler.Producer := TProducerTreeView.Create;
-    ProducerControl := TTreeView.Create(Self);
-    ProducerControl.Parent := DockPanel;
-    ProducerControl.Align := alClient;
-//    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
   end;
 
@@ -107 +101 @@
   with TProjectFile(Project.Items[0]) do begin
     Compiler.Compile(Parent.GetDir + Name, Source);
-  end;
-
-  if ComboBox1.ItemIndex = 0 then begin
-    ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := DockPanel;
-    ProducerControl.Align := alClient;
-    ProducerControl.Font.Name := 'Courier New';
-    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-  end else
-  if ComboBox1.ItemIndex = 1 then begin
-    ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := DockPanel;
-    ProducerControl.Align := alClient;
-    ProducerControl.Font.Name := 'Courier New';
-    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-  end else
-  if ComboBox1.ItemIndex = 2 then begin
-    ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := DockPanel;
-    ProducerControl.Align := alClient;
-    ProducerControl.Font.Name := 'Courier New';
-    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-  end else
-  if ComboBox1.ItemIndex = 3 then begin
   end;
 
@@ -219 +189 @@
 var
   Container1: TCoolDockConjoinForm;
+  Container2: TCoolDockConjoinForm;
 begin
   ProjectManager.ManualDock(DockPanel, nil, alLeft);
@@ -228 +199 @@
   Container1.ManualDock(DockPanel, nil, alRight);
 
-  CodeForm.ManualDock(Container1.Panel, nil, alTop);
-  CodeForm.Show;
+  CodeTreeForm.ManualDock(DockPanel, nil, alLeft);
+  CodeTreeForm.Show;
+  Container1.Parent.Parent.Width := MainForm.Width;
+
+  Container2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+  Container2.Caption := 'Panel';
+  Container2.Name := 'Tools2';
+  Container2.ManualDock(Container1.Panel, nil, alRight);
+
   MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
   MessagesForm.Show;
 
+  CodeForm.ManualDock(Container2.Panel, nil, alTop);
+  CodeForm.Show;
+
+  CompiledForm.ManualDock(Container2.Panel, nil, alTop);
+  CompiledForm.Show;
+
+  TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;
+
   ProjectManager.Parent.Parent.Width := 200;
-  CodeForm.Parent.Parent.Height := MainForm.Height;
+  Container2.Parent.Parent.Height := MainForm.Height;
 end;