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

Timestamp:

May 5, 2019, 12:09:56 AM (6 years ago)

Author:

chronos

Message:

• Modified: Updated packages Common, CoolTranslator and TemplateGenerics.
• Fixed: Build under Lazarus 2.0.0.

File:

• trunk/Packages/Common/ULastOpenedList.pas (modified) (2 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;
@@ -185 +186 @@
 end;
 
+function TLastOpenedList.GetFirstFileName: string;
+begin
+  if Items.Count > 0 then Result := Items[0]
+    else Result := '';
+end;
+
 end.