Changeset 13 for trunk/Forms/UFormMain.pas

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList;
+  Menus, ActnList, ExtCtrls;
 
 type
@@ -21 +21 @@
     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
+    MenuItemRecentProjectGroup: TMenuItem;
+    MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -36 +45 @@
     StatusBar1: TStatusBar;
     ToolBarMain: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -42 +54 @@
     Initialized: Boolean;
   public
+    procedure ProjectGroupOpenRecentExecute(Sender: TObject);
     procedure OpenRecentExecute(Sender: TObject);
     procedure UpdateInterface;
@@ -55 +68 @@
 
 uses
-  UCore, UFormBrowse;
+  UCore, UFormBrowse, UFormProjectGroup;
 
 { TFormMain }
@@ -66 +79 @@
 procedure TFormMain.OpenRecentExecute(Sender: TObject);
 begin
-  Core.ProjectOpen(Core.LastOpenedList1.Items[TMenuItem(Sender).MenuIndex]);
+  Core.ProjectOpen(Core.LastOpenedListProject.Items[TMenuItem(Sender).MenuIndex]);
+end;
+
+procedure TFormMain.ProjectGroupOpenRecentExecute(Sender: TObject);
+begin
+  Core.ProjectGroupOpen(Core.LastOpenedListProjectGroup.Items[TMenuItem(Sender).MenuIndex]);
 end;
 
@@ -96 +114 @@
 
 procedure TFormMain.DockInit;
+var
+  NewSplitter: TSplitter;
 begin
+  FormProjectGroup.ManualDock(Self, nil, alLeft);
+  FormProjectGroup.Align := alLeft;
+  FormProjectGroup.Show;
+  NewSplitter := TSplitter.Create(nil);
+  NewSplitter.ManualDock(Self, nil, alLeft);
+  NewSplitter.Align := alLeft;
+  NewSplitter.Left := FormProjectGroup.Width;
+  NewSplitter.Show;
   FormBrowse.ManualDock(Self, nil, alClient);
   FormBrowse.Align := alClient;