Changeset 4 for trunk/UCore.pas

Timestamp:

Sep 1, 2014, 7:10:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Concept of project and open project as directory.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -1 +1 @@
 unit UCore;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil;
+  Classes, SysUtils, FileUtil, ActnList, Controls, UVCS, UProject, Forms,
+  Dialogs;
 
 type
+
+  { TCore }
+
   TCore = class(TDataModule)
+    AAbout: TAction;
+    AProjectClose: TAction;
+    ActionList1: TActionList;
+    AHelp: TAction;
+    AProjectOpen: TAction;
+    AQuit: TAction;
+    ASettings: TAction;
+    AViewFavorites: TAction;
+    ImageList1: TImageList;
+    OpenDialog1: TOpenDialog;
+    procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectOpenExecute(Sender: TObject);
+    procedure AQuitExecute(Sender: TObject);
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
-    { private declarations }
+    procedure UpdateInterface;
   public
-    { public declarations }
+    Project: TProject;
   end;
 
@@ -23 +42 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
+{ TCore }
+
+procedure TCore.AQuitExecute(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TCore.DataModuleCreate(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  Project.Free;
+end;
+
+procedure TCore.UpdateInterface;
+begin
+  AProjectClose.Enabled := Assigned(Project);
+  FormMain.UpdateInterface;
+end;
+
+procedure TCore.AProjectOpenExecute(Sender: TObject);
+var
+  Dir: string;
+  OldDir: string;
+begin
+  if Assigned(Project) then OldDir := Project.Directory
+    else OldDir := '';
+  if SelectDirectory('Open project', OldDir, Dir) then begin
+    AProjectClose.Execute;
+    Project := TProject.Create;
+    Project.Directory := Dir;
+    UpdateInterface;
+  end;
+end;
+
+procedure TCore.AProjectCloseExecute(Sender: TObject);
+begin
+  FreeAndNil(Project);
+  UpdateInterface;
+end;
+
 end.