FIX: Error when try to quick view directory

This commit is contained in:
Alexander Koblov 2010-02-06 17:32:41 +00:00
commit 3a7fe57a9f

View file

@ -109,6 +109,7 @@ begin
// If files are links to local files
if (fspLinksToLocalFiles in Sender.FileSource.Properties) then
begin
if aFile.IsDirectory or aFile.IsLinkToDirectory then Exit;
FFileSource := Sender.FileSource;
ActiveFile:= aFile.Clone;
if not FFileSource.GetLocalName(ActiveFile) then Exit;