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

ADD: Feature [0001431] Option to silent open files inside ZIPs

Browse source
This commit is contained in:
Alexander Koblov 2016-07-03 08:07:00 +00:00
commit 588e65ba60
3 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/filesources/multiarchive/umultiarchiveexecuteoperation.pas
View file

@ -40,7 +40,7 @@ type
implementation
uses
fPackInfoDlg;
fPackInfoDlg, uMasks, uGlobs;
constructor TMultiArchiveExecuteOperation.Create(
aTargetFileSource: IFileSource;
@ -59,7 +59,11 @@ end;
procedure TMultiArchiveExecuteOperation.MainExecute;
begin
FExecuteOperationResult:= ShowPackInfoDlg(FMultiArchiveFileSource, ExecutableFile);
if MatchesMaskList(ExecutableFile.Name, gAutoExtractOpenMask) then
FExecuteOperationResult:= fseorYourSelf
else begin
FExecuteOperationResult:= ShowPackInfoDlg(FMultiArchiveFileSource, ExecutableFile);
end;
end;
procedure TMultiArchiveExecuteOperation.Finalize;

8
src/filesources/wcxarchive/uwcxarchiveexecuteoperation.pas
View file

@ -40,7 +40,7 @@ type
implementation
uses
fPackInfoDlg;
fPackInfoDlg, uMasks, uGlobs;
constructor TWcxArchiveExecuteOperation.Create(
aTargetFileSource: IFileSource;
@ -59,7 +59,11 @@ end;
procedure TWcxArchiveExecuteOperation.MainExecute;
begin
FExecuteOperationResult:= ShowPackInfoDlg(FWcxArchiveFileSource, ExecutableFile);
if MatchesMaskList(ExecutableFile.Name, gAutoExtractOpenMask) then
FExecuteOperationResult:= fseorYourSelf
else begin
FExecuteOperationResult:= ShowPackInfoDlg(FWcxArchiveFileSource, ExecutableFile);
end;
end;
procedure TWcxArchiveExecuteOperation.Finalize;

4
src/uglobs.pas
View file

@ -379,6 +379,7 @@ var
gDragAndDropSaveUnicodeTextInUFT8: Boolean;
gOverwriteFolder: Boolean;
gNtfsHourTimeDelay: Boolean;
gAutoExtractOpenMask: String;
gFileOperationsProgressKind: TFileOperationsProgressKind;
gFileOperationsConfirmations: TFileOperationsConfirmations;
@ -1462,6 +1463,7 @@ begin
gDragAndDropSaveUnicodeTextInUFT8 := True;
gOverwriteFolder := False;
gNtfsHourTimeDelay := False;
gAutoExtractOpenMask := EmptyStr;
gFileOperationsProgressKind := fopkSeparateWindow;
gFileOperationsConfirmations := [focCopy, focMove, focDelete, focDeleteToTrash];
@ -2607,6 +2609,7 @@ begin
gDragAndDropSaveUnicodeTextInUFT8 := GetValue(Node, 'DragAndDropSaveUnicodeTextInUFT8', gDragAndDropSaveUnicodeTextInUFT8);
gOverwriteFolder := GetValue(Node, 'OverwriteFolder', gOverwriteFolder);
gNtfsHourTimeDelay := GetValue(Node, 'NtfsHourTimeDelay', gNtfsHourTimeDelay);
gAutoExtractOpenMask := GetValue(Node, 'AutoExtractOpenMask', gAutoExtractOpenMask);
gSearchDefaultTemplate := GetValue(Node, 'SearchDefaultTemplate', gSearchDefaultTemplate);
gFileOperationsProgressKind := TFileOperationsProgressKind(GetValue(Node, 'ProgressKind', Integer(gFileOperationsProgressKind)));
gFileOperationsConfirmations := TFileOperationsConfirmations(GetValue(Node, 'Confirmations', Integer(gFileOperationsConfirmations)));
@ -3142,6 +3145,7 @@ begin
SetValue(Node, 'DragAndDropSaveUnicodeTextInUFT8', gDragAndDropSaveUnicodeTextInUFT8);
SetValue(Node, 'OverwriteFolder', gOverwriteFolder);
SetValue(Node, 'NtfsHourTimeDelay', gNtfsHourTimeDelay);
SetValue(Node, 'AutoExtractOpenMask', gAutoExtractOpenMask);
SetValue(Node, 'SearchDefaultTemplate', gSearchDefaultTemplate);
SetValue(Node, 'ProgressKind', Integer(gFileOperationsProgressKind));
SetValue(Node, 'Confirmations', Integer(gFileOperationsConfirmations));