mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [3142891] quickview (ctrl+q) and search result (feed to listbox)

Browse source
This commit is contained in:
Alexander Koblov 2011-01-16 10:56:28 +00:00
commit 90634f11ce
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/newdesign/usearchresultfilesource.pas
View file

@ -6,6 +6,7 @@ interface
uses
Classes, SysUtils,
uFile,
uMultiListFileSource,
uFileSourceOperation,
uFileSourceProperty;
@ -19,6 +20,9 @@ type
{en
File source for search results.
}
{ TSearchResultFileSource }
TSearchResultFileSource = class(TMultiListFileSource, ISearchResultFileSource)
public
constructor Create; override;
@ -27,6 +31,8 @@ type
function SetCurrentWorkingDirectory(NewDir: String): Boolean; override;
function CreateListOperation(TargetPath: String): TFileSourceOperation; override;
function GetLocalName(var aFile: TFile): Boolean; override;
end;
implementation
@ -56,5 +62,13 @@ begin
Result := TSearchResultListOperation.Create(Self, TargetPath);
end;
function TSearchResultFileSource.GetLocalName(var aFile: TFile): Boolean;
begin
if (fspLinksToLocalFiles in FileSource.Properties) then
Result:= FileSource.GetLocalName(aFile)
else
Result:= True;
end;
end.