Changeset 463 for branches/highdpi/Packages/Common/LastOpenedList.pas

Timestamp:

Nov 29, 2023, 2:35:44 PM (6 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/Common/LastOpenedList.pas (moved) (moved from branches/highdpi/Packages/Common/ULastOpenedList.pas ) (4 diffs)

branches/highdpi/Packages/Common/LastOpenedList.pas

@@ -1 @@
-unit ULastOpenedList;
-
-{$mode delphi}
+unit LastOpenedList;
 
 interface
 
 uses
-  UDpiControls, Classes, SysUtils, Registry, URegistry, Menus, XMLConf, DOM;
+  UDpiControls, Classes, SysUtils, Registry, RegistryEx, Menus, XMLConf, DOM;
 
 type
@@ -84 +82 @@
 destructor TLastOpenedList.Destroy;
 begin
-  Items.Free;
+  FreeAndNil(Items);
   inherited;
 end;
@@ -94 +92 @@
 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 := TDpiMenuItem.Create(MenuItem);
+      MenuItem.Add(NewMenuItem);
+    end;
     for I := 0 to Items.Count - 1 do begin
-      NewMenuItem := TDpiMenuItem.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;
@@ -193 +194 @@
 
 end.
-