Changeset 52 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jun 25, 2012, 2:07:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to version 0.7.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (7 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -155 +155 @@
     procedure MenuItemTargetClick(Sender: TObject);
     procedure OpenRecentClick(Sender: TObject);
+    procedure LastOpenedFilesChange(Sender: TObject);
     procedure DockInit;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
@@ -494 +495 @@
     end;
   LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  LastOpenedFiles.ReloadMenu;
   Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
 end;
@@ -503 +503 @@
   Project.LoadFromFile(FileName);
   LastOpenedFiles.AddItem(FileName);
-  LastOpenedFiles.ReloadMenu;
   UpdateInterface;
 end;
@@ -554 +553 @@
   ProjectTemplates := TProjectTemplateList.Create;
   TargetProject := TProject.Create;
-  LastOpenedFiles := TLastOpenedList.Create;
-  LastOpenedFiles.MenuItem := MenuItemOpenRecent;
+  LastOpenedFiles := TLastOpenedList.Create(nil);
+  LastOpenedFiles.OnChange := LastOpenedFilesChange;
   LastOpenedFiles.ClickAction := OpenRecentClick;
 end;
@@ -587 +586 @@
 end;
 
+procedure TFormMain.LastOpenedFilesChange(Sender: TObject);
+begin
+  LastOpenedFiles.LoadToMenuItem(MenuItemOpenRecent);
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 var
@@ -595 +599 @@
   ProjectTemplatesInit;
 
-  if ReopenLastOpenedFile and (LastOpenedFiles.Count > 0) then begin
-    ProjectOpen(LastOpenedFiles[0]);
+  if ReopenLastOpenedFile and (LastOpenedFiles.Items.Count > 0) then begin
+    ProjectOpen(LastOpenedFiles.Items[0]);
   end;
 
@@ -661 +665 @@
     UpdateInterface;
     LastOpenedFiles.AddItem(SaveDialog1.FileName);
-    LastOpenedFiles.ReloadMenu;
   end;
 end;