Changeset 44 for trunk/Forms/UFormMain.pas

Timestamp:

Jun 25, 2012, 1:17:58 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Forms/UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -173 +173 @@
     procedure UpdateToolBarHints;
     procedure DockInit;
+    procedure LastOpenedListChange(Sender: TObject);
   public
     Modified: Boolean;
@@ -213 +214 @@
 begin
   PageControlMain.TabIndex := 0;
-  if OpenProjectOnStart and (LastOpenedList.Count > 0) then
-    ProjectOpen(LastOpenedList[0])
+  if OpenProjectOnStart and (LastOpenedList.Items.Count > 0) then
+    ProjectOpen(LastOpenedList.Items[0])
     else AProjectNew.Execute;
   UpdateInterface;
@@ -333 +334 @@
   PageControlRight.Width := MainForm.Width div 2;
   PageControlBottom.Height := MainForm.Height div 5;
+end;
+
+procedure TMainForm.LastOpenedListChange(Sender: TObject);
+begin
+  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent);
 end;
 
@@ -438 +444 @@
   Targets.Add(TTargetJava.Create);
   UpdateTargetList;
-  LastOpenedList := TLastOpenedList.Create;
-  LastOpenedList.MenuItem := MenuItemOpenRecent;
+  LastOpenedList := TLastOpenedList.Create(nil);
+  LastOpenedList.OnChange := LastOpenedListChange;
   LastOpenedList.ClickAction := AProjectOpenRecentExecute;
   LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
@@ -681 +687 @@
 procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject);
 begin
-  ProjectOpen(LastOpenedList[TMenuItem(Sender).MenuIndex]);
+  ProjectOpen(LastOpenedList.Items[TMenuItem(Sender).MenuIndex]);
 end;
 
@@ -698 +704 @@
     MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
     ProjectFileName := SaveDialog1.FileName;
-    LastOpenedList.Add(SaveDialog1.FileName);
+    LastOpenedList.AddItem(SaveDialog1.FileName);
     Modified := False;
     UpdateInterface;