Changeset 15 for trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

File:

• trunk/StudioModules/LDModuleProject/ULDModuleProject.pas (modified) (11 diffs)

trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, ActnList, Menus, Dialogs, UModularSystem,
-  UProject;
+  ULastOpenedList, UProject, URegistry, USource;
 
 type
@@ -22 +22 @@
     ANew: TAction;
     ActionList1: TActionList;
+    LastOpenedList1: TLastOpenedList;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
-    MenuItem3: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
@@ -36 +37 @@
     procedure ANewExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure AOpenRecentExecute(Sender: TObject);
     procedure AProjectManagerExecute(Sender: TObject);
     procedure ASaveAsExecute(Sender: TObject);
     procedure ASaveExecute(Sender: TObject);
+    procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
   private
     { private declarations }
@@ -45 +49 @@
     Project: TProject;
     procedure UpdateInterface;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
 
@@ -51 +57 @@
   TLDModuleProject = class(TModule)
   private
+    ProjectFileType: TSourceType;
   public
     constructor Create; override;
@@ -93 +100 @@
 end;
 
+procedure TDataModuleProject.DataModuleCreate(Sender: TObject);
+begin
+
+end;
+
 procedure TDataModuleProject.DataModuleDestroy(Sender: TObject);
 begin
   AClose.Execute;
+end;
+
+procedure TDataModuleProject.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, AOpenRecentExecute);
 end;
 
@@ -103 +120 @@
   ASaveAs.Enabled := Assigned(Project);
   AClose.Enabled := Assigned(Project);
+end;
+
+procedure TDataModuleProject.LoadFromRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFile');
+end;
+
+procedure TDataModuleProject.SaveToRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFile');
 end;
 
@@ -122 +149 @@
 procedure TDataModuleProject.AOpenExecute(Sender: TObject);
 begin
-  OpenDialog1.FileName := Project.FileName;
+  if Assigned(Project) then
+    OpenDialog1.FileName := Project.FileName;
   if OpenDialog1.Execute then begin
     Project.FileName := OpenDialog1.FileName;
@@ -128 +156 @@
     UpdateInterface;
   end;
+end;
+
+procedure TDataModuleProject.AOpenRecentExecute(Sender: TObject);
+begin
+
 end;
 
@@ -150 +183 @@
     DataModuleProject.PopupMenu1.Items.Caption := SProject;
     RegisterMainMenuItem(DataModuleProject.PopupMenu1.Items, nil, 1);
+    DataModuleProject.LoadFromRegistry(RegContext(GetRegistryContext.RootKey,
+      GetRegistryContext.Key + '\Project'));
+    DataModuleProject.UpdateInterface;
+    ProjectFileType := TSourceType.Create;
+    ProjectFileType.Extension := '.ldp';
+    ProjectFileType.Title := 'LibreDevelop project';
+    RegisterFileType(ProjectFileType);
   end;
   inherited;
@@ -158 +198 @@
   inherited;
   with TLDStudioAPI(API) do begin
+    UnregisterFileType(ProjectFileType);
+    DataModuleProject.SaveToRegistry(RegContext(GetRegistryContext.RootKey,
+      GetRegistryContext.Key + '\Project'));
     UnregisterMainMenuItem(DataModuleProject.PopupMenu1.Items);
     FreeAndNil(DataModuleProject);