Changeset 75 for trunk/Packages/Common/LastOpenedList.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/LastOpenedList.pas (moved) (moved from trunk/Packages/Common/ULastOpenedList.pas ) (6 diffs)

trunk/Packages/Common/LastOpenedList.pas

@@ -1 @@
-unit ULastOpenedList;
-
-{$mode delphi}
+unit LastOpenedList;
 
 interface
 
 uses
-  Classes, SysUtils, Registry, URegistry, Menus;
+  Classes, SysUtils, Registry, RegistryEx, Menus, XMLConf, DOM;
 
 type
@@ -27 +25 @@
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);
+    procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; Path: string);
+    procedure SaveToXMLConfig(XMLConfig: TXMLConfig; Path: string);
     procedure AddItem(FileName: string);
+    function GetFirstFileName: string;
   published
     property MaxCount: Integer read FMaxCount write SetMaxCount;
@@ -81 +82 @@
 destructor TLastOpenedList.Destroy;
 begin
-  Items.Free;
+  FreeAndNil(Items);
   inherited;
 end;
@@ -91 +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 := 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;
@@ -137 +141 @@
     OpenKey(Context.Key, True);
     for I := 0 to Items.Count - 1 do
-      WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));
+      WriteString('File' + IntToStr(I), Items[I]);
   finally
     Free;
+  end;
+end;
+
+procedure TLastOpenedList.LoadFromXMLConfig(XMLConfig: TXMLConfig; Path: string
+  );
+var
+  I: Integer;
+  Value: string;
+  Count: Integer;
+begin
+  with XMLConfig do begin
+    Count := GetValue(DOMString(Path + '/Count'), 0);
+    if Count > MaxCount then Count := MaxCount;
+    Items.Clear;
+    for I := 0 to Count - 1 do begin
+      Value := string(GetValue(DOMString(Path + '/File' + IntToStr(I)), ''));
+      if Trim(Value) <> '' then Items.Add(Value);
+    end;
+    if Assigned(FOnChange) then
+      FOnChange(Self);
+  end;
+end;
+
+procedure TLastOpenedList.SaveToXMLConfig(XMLConfig: TXMLConfig; Path: string);
+var
+  I: Integer;
+begin
+  with XMLConfig do begin
+    SetValue(DOMString(Path + '/Count'), Items.Count);
+    for I := 0 to Items.Count - 1 do
+      SetValue(DOMString(Path + '/File' + IntToStr(I)), DOMString(Items[I]));
+    Flush;
   end;
 end;
@@ -151 +187 @@
 end;
 
+function TLastOpenedList.GetFirstFileName: string;
+begin
+  if Items.Count > 0 then Result := Items[0]
+    else Result := '';
+end;
+
 end.
-