Changeset 515 for Common/UCommon.pas

Timestamp:

Jun 5, 2018, 11:02:54 AM (6 years ago)

Author:

chronos

Message:

• Modified: PersistentForm also keep dimensions of aligned panels.
• Fixed: Theming of CoolBar.

File:

• Common/UCommon.pas (modified) (3 diffs)

Common/UCommon.pas

@@ -73 +73 @@
 function LoadFileToStr(const FileName: TFileName): AnsiString;
 procedure SearchFiles(AList: TStrings; Dir: string;
-  FilterMethod: TFilterMethodMethod);
+  FilterMethod: TFilterMethodMethod = nil);
 function GetStringPart(var Text: string; Separator: string): string;
 
@@ -524 +524 @@
 
 procedure SearchFiles(AList: TStrings; Dir: string;
-  FilterMethod: TFilterMethodMethod);
+  FilterMethod: TFilterMethodMethod = nil);
 var
   SR: TSearchRec;
@@ -532 +532 @@
     try
       repeat
-        if (SR.Name = '.') or (SR.Name = '..') or not FilterMethod(SR.Name) or
-          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name) then Continue;
+        if (SR.Name = '.') or (SR.Name = '..') or (Assigned(FilterMethod) and (not FilterMethod(SR.Name) or
+          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name))) then Continue;
         AList.Add(Dir + SR.Name);
         if (SR.Attr and faDirectory) <> 0 then