Changeset 15 for trunk/StudioPackage/Forms/UFormMain.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/StudioPackage/Forms/UFormMain.pas (modified) (14 diffs)

trunk/StudioPackage/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, ExtCtrls, UDataModule;
+  ActnList, ComCtrls, ExtCtrls, ULastOpenedList, UCoolTranslator, UDataModule,
+  URegistry;
 
 type
@@ -44 +45 @@
     AClipboardCut: TAction;
     ActionListMain: TActionList;
+    LastOpenedList1: TLastOpenedList;
     MainMenu: TMainMenu;
     MenuItem15: TMenuItem;
@@ -60 +62 @@
     MenuItem27: TMenuItem;
     MenuItem28: TMenuItem;
-    MenuItem29: TMenuItem;
+    MenuItemFileOpenRecent: TMenuItem;
     MenuItem30: TMenuItem;
     MenuItem31: TMenuItem;
@@ -89 +91 @@
     PageControlBottom: TPageControl;
     PageControlCenter: TPageControl;
+    PopupMenuRecentFiles: TPopupMenu;
     SaveDialogFile: TSaveDialog;
     Splitter1: TSplitter;
@@ -102 +105 @@
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileOpenRecentExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
     procedure AViewModulesExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
@@ -108 +114 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
+    procedure MenuItemFileOpenRecentClick(Sender: TObject);
   private
     procedure DockInit;
   public
+    procedure UpdateInterface;
     procedure OpenedFileChange(Sender: TObject);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
 
@@ -117 +128 @@
   FormMain: TFormMain;
 
+
 implementation
 
@@ -122 +134 @@
 
 uses
-  UFormSourceCode, UFormSettings, UFormModuleList;
+  UFormSourceCode, UFormSettings, UFormModuleList, UFormNewFile, USource;
 
 { TFormMain }
@@ -133 +145 @@
 procedure TFormMain.AFileCloseExecute(Sender: TObject);
 begin
-  DataModule1.OpenedFiles.CloseFile(DataModule1.OpenedFiles.Selected.FileName);
+  DataModule1.OpenedFiles.CloseFile(DataModule1.OpenedFiles.Selected);
 end;
 
 procedure TFormMain.AFileNewExecute(Sender: TObject);
-begin
-  DataModule1.OpenedFiles.NewFile;
+var
+  NewFile: TSource;
+begin
+  if FormNewFile.ShowModal = mrOk then
+    if Assigned(FormNewFile.ListView1.Selected) then begin
+      NewFile := TFileTemplate(FormNewFile.ListView1.Selected.Data).Execute;
+      DataModule1.OpenedFiles.OpenFile(NewFile);
+    end;
 end;
 
@@ -145 +163 @@
   OpenDialogFile.Filter := DataModule1.FileTypes.GetDialogFilter;
   if OpenDialogFile.Execute then begin
-    DataModule1.OpenedFiles.OpenFile(OpenDialogFile.FileName);
-  end;
+    LastOpenedList1.AddItem(OpenDialogFile.FileName);
+    DataModule1.OpenedFiles.OpenFileName(OpenDialogFile.FileName);
+  end;
+end;
+
+procedure TFormMain.AFileOpenRecentExecute(Sender: TObject);
+begin
+  if Sender is TMenuItem then
+    DataModule1.OpenedFiles.OpenFileName(TMenuItem(Sender).Caption);
+end;
+
+procedure TFormMain.AFileSaveAsExecute(Sender: TObject);
+begin
+  SaveDialogFile.FileName := DataModule1.OpenedFiles.Selected.Name;
+  if SaveDialogFile.Execute then begin
+    LastOpenedList1.AddItem(SaveDialogFile.FileName);
+    DataModule1.OpenedFiles.Selected.Name := SaveDialogFile.FileName;
+  end;
+end;
+
+procedure TFormMain.AFileSaveExecute(Sender: TObject);
+begin
+
 end;
 
@@ -177 +216 @@
 begin
   DockInit;
+  UpdateInterface;
+end;
+
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(PopupMenuRecentFiles.Items, AFileOpenRecentExecute);
+  LastOpenedList1.LoadToMenuItem(MenuItemFileOpenRecent, AFileOpenRecentExecute);
+end;
+
+procedure TFormMain.MenuItemFileOpenRecentClick(Sender: TObject);
+begin
+
 end;
 
@@ -186 +237 @@
 }end;
 
+procedure TFormMain.UpdateInterface;
+begin
+  AFileClose.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+  AFileSave.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+  AFileSaveAs.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+end;
+
 procedure TFormMain.OpenedFileChange(Sender: TObject);
 var
@@ -193 +251 @@
   with DataModule1.OpenedFiles do begin
     for I := 0 to Count - 1 do
-    with TOpenedFile(Items[I]) do begin
+    with TSource(Items[I]) do begin
       if not Assigned(Form.Parent) then begin
         NewTabSheet := PageControlCenter.AddTabSheet;
-        NewTabSheet.Caption := ExtractFileName(FileName);
+        NewTabSheet.Caption := ExtractFileName(Name);
         //NewTabSheet.PopupMenu := ;
         Form.ManualDock(NewTabSheet, nil, alClient);
@@ -206 +264 @@
 end;
 
+procedure TFormMain.LoadFromRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+end;
+
+procedure TFormMain.SaveToRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+end;
+
 end.