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: Disable buttons if operations not supported

Browse source
This commit is contained in:
Alexander Koblov 2010-07-13 09:42:28 +00:00
commit ad9687595c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fpackinfodlg.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Packed file information window
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
Copyright (C) 2008-2010 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -72,7 +72,7 @@ function ShowPackInfoDlg(aFileSource: IArchiveFileSource; aFile: TFile): TFileSo
implementation
uses
uFileProperty;
uFileProperty, uFileSourceOperationTypes;
function ShowPackInfoDlg(aFileSource: IArchiveFileSource; aFile: TFile): TFileSourceExecuteOperationResult;
begin
@ -100,6 +100,8 @@ var
begin
inherited Create(TheOwner);
btnUnpackAndExec.Enabled:= (fsoCopyOut in aFileSource.GetOperationsTypes);
btnUnpackAllAndExec.Enabled:= ([fsoList, fsoCopyOut] * aFileSource.GetOperationsTypes = [fsoList, fsoCopyOut]);
edtPackedFile.Text:= aFile.FullPath;
sArcType:= ExtractFileExt(aFileSource.ArchiveFileName);
Delete(sArcType, 1, 1);