pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@22 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2009-09-07 12:31:42 +00:00
parent 3d7f53993a
commit af5a06d345
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
KOL.pas
View File

@@ -23401,7 +23401,7 @@ begin
if (FPath = '') then Exit; if (FPath = '') then Exit;
FPath := IncludeTrailingPathDelimiter( FPath ); FPath := IncludeTrailingPathDelimiter( FPath );
if not Assigned(fFilters) then begin if not Assigned(fFilters) then begin
fFilters := {$IFDEF FORCE_ALTERNATEFILENAME} NewWStrList {$ELSE} NewStrList {$ENDIF}; fFilters := {$IFDEF UNICODE_CTRLS} NewWStrList {$ELSE} NewStrList {$ENDIF};
if Filter = '*.*' then if Filter = '*.*' then
fFilters.Add( '*' ) fFilters.Add( '*' )
else else