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

Timestamp:

Aug 31, 2018, 3:38:01 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.
• Fixed: Autosize coolbar during main form resize.

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.