mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: FileSourceExecuteOperation prototype

Browse source
This commit is contained in:
Alexander Koblov 2009-12-26 18:59:55 +00:00
commit 9392cd987d
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/newdesign/ufilesourceexecuteoperation.pas
View file

@ -31,7 +31,7 @@ type
FVerb: UTF8String;
protected
FExecutablePath: UTF8String;
FSymLinkPath: UTF8String;
FExecuteOperationResult: TFileSourceExecuteOperationResult;
function GetID: TFileSourceOperationType; override;
procedure UpdateStatisticsAtStartTime; override;
@ -54,7 +54,7 @@ type
destructor Destroy; override;
property CurrentPath: UTF8String read FCurrentPath;
property ExecutablePath: UTF8String read FExecutablePath write FExecutablePath;
property SymLinkPath: UTF8String read FSymLinkPath write FSymLinkPath;
property AbsolutePath: UTF8String read FAbsolutePath;
property RelativePath: UTF8String read FRelativePath;
property Verb: UTF8String read FVerb;

6
src/newdesign/ufilesourceutil.pas
View file

@ -95,9 +95,9 @@ begin
end;
fseorSymLink:
begin
// change directory to new path (returned in Operation.ExecutablePath)
DebugLn('Change directory to ', Operation.ExecutablePath);
aFileView.CurrentPath:= Operation.ExecutablePath;
// change directory to new path (returned in Operation.SymLinkPath)
DebugLn('Change directory to ', Operation.SymLinkPath);
aFileView.CurrentPath:= Operation.SymLinkPath;
end;
end;
finally

2
src/newdesign/uwfxpluginexecuteoperation.pas
View file

@ -65,7 +65,7 @@ var
begin
RemoteName:= AbsolutePath;
iResult:= FWfxPluginFileSource.WfxModule.WfxExecuteFile(0, RemoteName, Verb);
FExecutablePath:= RemoteName;
FSymLinkPath:= RemoteName;
case iResult of
FS_EXEC_OK:
FExecuteOperationResult:= fseorSuccess;