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

Timestamp:

Oct 14, 2010, 2:30:40 PM (14 years ago)

Author:

george

Message:

• Added: Separated dockable windows.

File:

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

branches/Transpascal/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
+  Dialogs, StdCtrls, UCompiler, UProducerAsm8051,
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
-  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList;
+  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking;
 
 const
@@ -18 +18 @@
 
   TMainForm = class(TForm)
+    ABuild: TAction;
     AProjectNew: TAction;
     AProjectOpen: TAction;
@@ -24 +25 @@
     AProjectClose: TAction;
     ActionList1: TActionList;
-    ButtonCompile: TButton;
+    Button1: TButton;
     ComboBox1: TComboBox;
-    ListBoxMessages: TListBox;
+    CoolDockClient1: TCoolDockClient;
+    CoolDockMaster1: TCoolDockMaster;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -34 +36 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
-    Panel1: TPanel;
-    Panel2: TPanel;
-    Panel3: TPanel;
-    Splitter1: TSplitter;
-    Splitter2: TSplitter;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    DockPanel: TPanel;
     Splitter3: TSplitter;
-    SynEditSource: TSynEdit;
-    SynPasSyn1: TSynPasSyn;
-    TreeViewProject: TTreeView;
+    ToolBar1: TToolBar;
     procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -59 +57 @@
     procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
     function GetSource(Name: string; Source: TStringList): Boolean;
+    procedure DockInit;
   public
     Project: TProject;
@@ -72 +71 @@
 {$R *.lfm}
 
+uses
+  UMessagesForm, UCodeForm, UProjectManager;
+
 { TMainForm }
 
@@ -95 +97 @@
     Compiler.Producer := TProducerTreeView.Create;
     ProducerControl := TTreeView.Create(Self);
-    ProducerControl.Parent := Panel1;
+    ProducerControl.Parent := DockPanel;
     ProducerControl.Align := alClient;
 //    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
@@ -109 +111 @@
   if ComboBox1.ItemIndex = 0 then begin
     ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := Panel1;
+    ProducerControl.Parent := DockPanel;
     ProducerControl.Align := alClient;
     ProducerControl.Font.Name := 'Courier New';
@@ -116 +118 @@
   if ComboBox1.ItemIndex = 1 then begin
     ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := Panel1;
+    ProducerControl.Parent := DockPanel;
     ProducerControl.Align := alClient;
     ProducerControl.Font.Name := 'Courier New';
@@ -123 +125 @@
   if ComboBox1.ItemIndex = 2 then begin
     ProducerControl := TMemo.Create(Self);
-    ProducerControl.Parent := Panel1;
+    ProducerControl.Parent := DockPanel;
     ProducerControl.Align := alClient;
     ProducerControl.Font.Name := 'Courier New';
@@ -138 +140 @@
   ProjectFile: TProjectFile;
 begin
+  with MessagesForm, CodeForm do
   if ListBoxMessages.ItemIndex <> -1 then
   with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
@@ -163 +166 @@
   I: Integer;
 begin
-  ListBoxMessages.Clear;
-  for I := 0 to Compiler.ErrorMessages.Count - 1 do
-  with TErrorMessage(Compiler.ErrorMessages[I]) do
-    MainForm.ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
-      ',' + IntToStr(Position.Y) + ') ' + Text);
-end;
-
-procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
-var
-  FileName: string;
-begin
-  if Assigned(Node) then begin
-    if TProjectNode(Node.Data) is TProjectFile then begin
-      SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
-      FileName := Compiler.CompiledFolder + DirectorySeparator +
-        Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
-      if ProducerControl is TMemo then
-        if FileExists(FileName) then
-        TMemo(ProducerControl).Lines.LoadFromFile(FileName) else
-          TMemo(ProducerControl).Lines.Clear;
-      //if ProducerControl is TTreeView then
-      //  TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode);
-    end;
+  with MessagesForm do begin
+    ListBoxMessages.Clear;
+    for I := 0 to Compiler.ErrorMessages.Count - 1 do
+    with TErrorMessage(Compiler.ErrorMessages[I]) do
+      ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
+        ',' + IntToStr(Position.Y) + ') ' + Text);
   end;
 end;
@@ -193 +179 @@
   NewNode: TTreeNode;
 begin
-  with TreeViewProject, Items do begin
+  with ProjectManager, TreeViewProject, Items do begin
     BeginUpdate;
     Clear;
@@ -200 +186 @@
     NewNode.Expand(True);
     EndUpdate;
-  end;
-  TreeViewProject.TopItem.Items[0].Selected := True;
+    TreeViewProject.TopItem.Items[0].Selected := True;
+  end;
 end;
 
@@ -209 +195 @@
   NewNode: TTreeNode;
 begin
+  with ProjectManager do
   for I := 0 to Group.Items.Count - 1 do begin
     NewNode := TreeViewProject.Items.AddChild(Node,
@@ -229 +216 @@
 end;
 
+procedure TMainForm.DockInit;
+var
+  Container1: TCoolDockConjoinForm;
+begin
+  ProjectManager.ManualDock(DockPanel, nil, alLeft);
+  ProjectManager.Show;
+
+  Container1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
+  Container1.Caption := 'Tools';
+  Container1.Name := 'Tools';
+  Container1.ManualDock(DockPanel, nil, alRight);
+
+  CodeForm.ManualDock(Container1.Panel, nil, alTop);
+  CodeForm.Show;
+  MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
+  MessagesForm.Show;
+
+  ProjectManager.Parent.Parent.Width := 200;
+  CodeForm.Parent.Parent.Height := MainForm.Height;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
@@ -250 +258 @@
   NewProjectFile: TProjectFile;
 begin
+  DockInit;
+
   Project.RootDir := '../../Project/';
   Project.Name := 'Project';