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

FIX: "Open with" under Windows

Browse source
This commit is contained in:
Alexander Koblov 2010-02-11 11:59:12 +00:00
commit f98aefb31b
1 changed files with 59 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

116
src/platform/uosforms.pas
View file

@ -373,64 +373,66 @@ begin
if (cmd > 0) and (cmd < $1000) then
begin
iCmd := LongInt(Cmd) - 1;
OleCheckUTF8(contMenu.GetCommandString(iCmd, GCS_VERBA, nil, ZVerb, SizeOf(ZVerb)));
sVerb := StrPas(ZVerb);
if Succeeded(contMenu.GetCommandString(iCmd, GCS_VERBA, nil, ZVerb, SizeOf(ZVerb))) then
begin
sVerb := StrPas(ZVerb);
if SameText(sVerb, sCmdVerbDelete) then
begin
if ssShift in GetKeyShiftState then
Actions.cm_Delete('recyclesettingrev')
else
Actions.cm_Delete('recyclesetting');
bHandled := True;
end
else if SameText(sVerb, sCmdVerbRename) then
begin
if Files.Count = 1 then
with Files[0] do
begin
if Name <> (ExtractFileDrive(Name)+PathDelim) then
frmMain.actRenameOnly.Execute
else // change drive label
begin
sCmd:= mbGetVolumeLabel(Name, True);
if InputQuery(rsMsgSetVolumeLabel, rsMsgVolumeLabel, sCmd) then
mbSetVolumeLabel(Name, sCmd);
end;
end
else
frmMain.actRename.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbOpen) then
begin
if Files.Count = 1 then
with Files[0] do
begin
if IsDirectory or IsLinkToDirectory then
begin
if Name = '..' then
frmMain.ActiveFrame.ChangePathToParent(True)
else
frmMain.ActiveFrame.ChangePathToChild(Files[0]);
bHandled := True;
end; // is dir
end; // with
end
else if SameText(sVerb, sCmdVerbCut) then
begin
frmMain.actCutToClipboard.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbCopy) then
begin
frmMain.actCopyToClipboard.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbPaste) then
begin
frmMain.actPasteFromClipboard.Execute;
bHandled := True;
if SameText(sVerb, sCmdVerbDelete) then
begin
if ssShift in GetKeyShiftState then
Actions.cm_Delete('recyclesettingrev')
else
Actions.cm_Delete('recyclesetting');
bHandled := True;
end
else if SameText(sVerb, sCmdVerbRename) then
begin
if Files.Count = 1 then
with Files[0] do
begin
if Name <> (ExtractFileDrive(Name)+PathDelim) then
frmMain.actRenameOnly.Execute
else // change drive label
begin
sCmd:= mbGetVolumeLabel(Name, True);
if InputQuery(rsMsgSetVolumeLabel, rsMsgVolumeLabel, sCmd) then
mbSetVolumeLabel(Name, sCmd);
end;
end
else
frmMain.actRename.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbOpen) then
begin
if Files.Count = 1 then
with Files[0] do
begin
if IsDirectory or IsLinkToDirectory then
begin
if Name = '..' then
frmMain.ActiveFrame.ChangePathToParent(True)
else
frmMain.ActiveFrame.ChangePathToChild(Files[0]);
bHandled := True;
end; // is dir
end; // with
end
else if SameText(sVerb, sCmdVerbCut) then
begin
frmMain.actCutToClipboard.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbCopy) then
begin
frmMain.actCopyToClipboard.Execute;
bHandled := True;
end
else if SameText(sVerb, sCmdVerbPaste) then
begin
frmMain.actPasteFromClipboard.Execute;
bHandled := True;
end;
end;
if not bHandled then