Changeset 6 for trunk/Forms/UFormMain.pas

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

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

trunk/Forms/UFormMain.pas

@@ -23 +23 @@
     MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -35 +36 @@
     StatusBar1: TStatusBar;
     ToolBarMain: TToolBar;
+    procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    Initialized: Boolean;
   public
+    procedure OpenRecentExecute(Sender: TObject);
     procedure UpdateInterface;
+    procedure DockInit;
   end;
 
@@ -49 +55 @@
 
 uses
-  UCore;
+  UCore, UFormBrowse;
 
 { TFormMain }
+
+procedure TFormMain.FormShow(Sender: TObject);
+begin
+  DockInit;
+end;
+
+procedure TFormMain.OpenRecentExecute(Sender: TObject);
+begin
+  Core.ProjectOpen(Core.LastOpenedList1.Items[TMenuItem(Sender).MenuIndex]);
+end;
+
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  if not Initialized then begin
+    Initialized := True;
+    Core.Init;
+  end;
+end;
+
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.Done;
+end;
 
 procedure TFormMain.UpdateInterface;
@@ -59 +88 @@
   if Assigned(Core.Project) then
     Caption := Core.Project.Directory + ' - ' + AppName
-    else Caption := AppName
+    else Caption := AppName;
+end;
+
+procedure TFormMain.DockInit;
+begin
+  FormBrowse.ManualDock(Self, nil, alClient);
+  FormBrowse.Align := alClient;
+  FormBrowse.Show;
 end;