Changeset 518 for Common/ULastOpenedList.pas

Timestamp:

Aug 31, 2018, 3:28:41 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.

File:

• Common/ULastOpenedList.pas (modified) (2 diffs)

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.