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: Small fixes

Browse source
This commit is contained in:
Alexander Koblov 2008-08-08 08:47:54 +00:00
commit e51156f4e3
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
fextractdlg.pas
View file

@ -56,7 +56,7 @@ function ShowExtractDlg(ActiveFrame:TFrameFilePanel; var fl : TFileList; sDestP
implementation
uses
uTypes, uDCUtils;
uTypes, uGlobs, uDCUtils;
var
CurrentVFS : TVFS;
@ -73,10 +73,13 @@ begin
if ActiveFrame.pnlFile.PanelMode = pmArchive then
cbInSeparateFolder.Visible := False;
cbFileMask.Items.Assign(glsMaskHistory);
Result:= (ShowModal = mrOK);
if Result then
begin
if glsMaskHistory.IndexOf(cbFileMask.Text) < 0 then
glsMaskHistory.Add(cbFileMask.Text);
sDestPath := IncludeTrailingPathDelimiter(edtExtractTo.Text) + cbFileMask.Text;
ExtractFileList := TFileList.Create;
ExtractFileList.CurrentDirectory := PathDelim;

5
fpackinfodlg.pas
View file

@ -78,6 +78,7 @@ uses
function ShowPackInfoDlg(WCXModule: TWCXModule; HeaderData: THeaderData): Boolean;
var
dtDateTime: TDateTime;
sArcType: String;
begin
with TfrmPackInfoDlg.Create(Application) do
begin
@ -85,7 +86,9 @@ begin
fWCXModule:= WCXModule;
edtPackedFile.Text:= HeaderData.FileName;
lblPackedPacker.Caption:= ExtractFileExt(HeaderData.ArcName);
sArcType:= ExtractFileExt(HeaderData.ArcName);
Delete(sArcType, 1, 1);
lblPackedPacker.Caption:= sArcType;
lblPackedOrgSize.Caption:= IntToStr(HeaderData.UnpSize);
lblPackedPackedSize.Caption:= IntToStr(HeaderData.PackSize);
lblPackedCompression.Caption:= IntToStr(100 - (HeaderData.PackSize*100 div HeaderData.UnpSize))+'%';