Changeset 131 for trunk/Packages/Common/ULastOpenedList.pas

Timestamp:

Mar 18, 2022, 1:37:03 PM (2 years ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

• trunk/Packages/Common/ULastOpenedList.pas (modified) (4 diffs)

trunk/Packages/Common/ULastOpenedList.pas

@@ -30 +30 @@
     procedure SaveToXMLConfig(XMLConfig: TXMLConfig; Path: string);
     procedure AddItem(FileName: string);
+    function GetFirstFileName: string;
   published
     property MaxCount: Integer read FMaxCount write SetMaxCount;
@@ -83 +84 @@
 destructor TLastOpenedList.Destroy;
 begin
-  Items.Free;
+  FreeAndNil(Items);
   inherited;
 end;
@@ -93 +94 @@
 begin
   if Assigned(MenuItem) then begin
-    MenuItem.Clear;
+    while MenuItem.Count > Items.Count do
+      MenuItem.Delete(MenuItem.Count - 1);
+    while MenuItem.Count < Items.Count do begin
+      NewMenuItem := TMenuItem.Create(MenuItem);
+      MenuItem.Add(NewMenuItem);
+    end;
     for I := 0 to Items.Count - 1 do begin
-      NewMenuItem := TMenuItem.Create(MenuItem);
-      NewMenuItem.Caption := Items[I];
-      NewMenuItem.OnClick := ClickAction;
-      MenuItem.Add(NewMenuItem);
+      MenuItem.Items[I].Caption := Items[I];
+      MenuItem.Items[I].OnClick := ClickAction;
     end;
   end;
@@ -185 +189 @@
 end;
 
+function TLastOpenedList.GetFirstFileName: string;
+begin
+  if Items.Count > 0 then Result := Items[0]
+    else Result := '';
+end;
+
 end.