Changeset 15 for trunk/StudioModules/LDModuleProject

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.

Location:

trunk/StudioModules/LDModuleProject

Files:

• LDModuleProject.lpk (modified) (1 diff)
• Languages (added)
• Languages/UDataModuleProject.po (added)
• Languages/UFormProject.po (added)
• Languages/ULDModuleProject.po (added)
• Languages/UProject.po (added)
• ULDModuleProject.lfm (modified) (4 diffs)
• ULDModuleProject.lrt (added)
• ULDModuleProject.pas (modified) (11 diffs)
• UProject.pas (modified) (2 diffs)

trunk/StudioModules/LDModuleProject/LDModuleProject.lpk

@@ -31 +31 @@
       </Item3>
     </Files>
+    <i18n>
+      <EnableI18N Value="True"/>
+      <OutDir Value="Languages"/>
+      <EnableI18NForLFM Value="True"/>
+    </i18n>
     <Type Value="RunAndDesignTime"/>
-    <RequiredPkgs Count="2">
+    <RequiredPkgs Count="3">
       <Item1>
-        <PackageName Value="LDStudioCommon"/>
+        <PackageName Value="Common"/>
       </Item1>
       <Item2>
+        <PackageName Value="LDStudioCommon"/>
+      </Item2>
+      <Item3>
         <PackageName Value="FCL"/>
-      </Item2>
+      </Item3>
     </RequiredPkgs>
     <UsageOptions>

trunk/StudioModules/LDModuleProject/ULDModuleProject.lfm

@@ -1 +1 @@
 object DataModuleProject: TDataModuleProject
+  OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
   Height = 328
-  HorizontalOffset = 255
-  VerticalOffset = 75
+  HorizontalOffset = 390
+  VerticalOffset = 142
   Width = 409
   object ActionList1: TActionList
@@ -19 +20 @@
     object AOpenRecent: TAction
       Caption = 'Open recent'
+      OnExecute = AOpenRecentExecute
     end
     object ASave: TAction
@@ -46 +48 @@
       Action = AOpen
     end
-    object MenuItem3: TMenuItem
+    object MenuItemOpenRecent: TMenuItem
       Action = AOpenRecent
     end
@@ -73 +75 @@
     top = 120
   end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedList1Change
+    left = 125
+    top = 64
+  end
 end

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);

trunk/StudioModules/LDModuleProject/UProject.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil,
-  SpecializedList;
+  SpecializedList, USource;
 
 const
@@ -71 +71 @@
   end;
 
-  TProject = class
+  TProject = class(TSource)
   private
     FModified: Boolean;