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

Timestamp:

May 8, 2019, 12:11:40 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 2.0.
• Modified: Used .lrj files instead of .lrt files.
• Removed: TemplateGenerics package.

File:

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

trunk/Packages/Common/ULastOpenedList.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Registry, URegistry, Menus, XMLConf;
+  Classes, SysUtils, Registry, URegistry, Menus, XMLConf, DOM;
 
 type
@@ -30 +30 @@
     procedure SaveToXMLConfig(XMLConfig: TXMLConfig; Path: string);
     procedure AddItem(FileName: string);
+    function GetFirstFileName: string;
   published
     property MaxCount: Integer read FMaxCount write SetMaxCount;
@@ -139 +140 @@
     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;
@@ -153 +154 @@
 begin
   with XMLConfig do begin
-    Count := GetValue(Path + '/Count', 0);
+    Count := GetValue(DOMString(Path + '/Count'), 0);
     if Count > MaxCount then Count := MaxCount;
     Items.Clear;
     for I := 0 to Count - 1 do begin
-      Value := GetValue(Path + '/File' + IntToStr(I), '');
+      Value := string(GetValue(DOMString(Path + '/File' + IntToStr(I)), ''));
       if Trim(Value) <> '' then Items.Add(Value);
     end;
@@ -170 +171 @@
 begin
   with XMLConfig do begin
-    SetValue(Path + '/Count', Items.Count);
+    SetValue(DOMString(Path + '/Count'), Items.Count);
     for I := 0 to Items.Count - 1 do
-      SetValue(Path + '/File' + IntToStr(I), Items[I]);
+      SetValue(DOMString(Path + '/File' + IntToStr(I)), DOMString(Items[I]));
     Flush;
   end;
@@ -185 +186 @@
 end;
 
+function TLastOpenedList.GetFirstFileName: string;
+begin
+  if Items.Count > 0 then Result := Items[0]
+    else Result := '';
+end;
+
 end.