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: Use MinimizeFilePath in fFileOpDlg (patch by Fuhrer)

Browse source
This commit is contained in:
Alexander Koblov 2011-03-24 06:45:07 +00:00
commit aff72a75dc
2 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fFileOpDlg.lfm
View file

@ -25,6 +25,7 @@ object frmFileOp: TfrmFileOp
Top = 8
Width = 476
Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 6
BorderSpacing.Top = 8
BorderSpacing.Right = 12
@ -83,6 +84,7 @@ object frmFileOp: TfrmFileOp
Top = 24
Width = 478
Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Top = 2
BorderSpacing.Right = 10
Caption = 'File name to'

18
src/fFileOpDlg.pas
View file

@ -524,8 +524,8 @@ begin
with CopyStatistics do
begin
lblFileNameFrom.Caption := CurrentFileFrom;
lblFileNameTo.Caption := CurrentFileTo;
lblFileNameFrom.Caption := MinimizeFilePath(CurrentFileFrom, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
lblFileNameTo.Caption := MinimizeFilePath(CurrentFileTo, lblFileNameTo.Canvas, lblFileNameTo.Width);
SetProgressBytes(pbFirst, CurrentFileDoneBytes, CurrentFileTotalBytes);
SetProgressBytes(pbSecond, DoneBytes, TotalBytes);
@ -543,8 +543,8 @@ begin
with MoveStatistics do
begin
lblFileNameFrom.Caption := CurrentFileFrom;
lblFileNameTo.Caption := CurrentFileTo;
lblFileNameFrom.Caption := MinimizeFilePath(CurrentFileFrom, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
lblFileNameTo.Caption := MinimizeFilePath(CurrentFileTo, lblFileNameTo.Canvas, lblFileNameTo.Width);
SetProgressBytes(pbFirst, CurrentFileDoneBytes, CurrentFileTotalBytes);
SetProgressBytes(pbSecond, DoneBytes, TotalBytes);
@ -562,7 +562,7 @@ begin
with DeleteStatistics do
begin
lblFileNameFrom.Caption := CurrentFile;
lblFileNameFrom.Caption := MinimizeFilePath(CurrentFile, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
SetProgress(pbFirst, DoneFiles, TotalFiles,
cnvFormatFileSize(DoneFiles, True) + '/' +
@ -581,7 +581,7 @@ begin
with WipeStatistics do
begin
lblFileNameFrom.Caption := CurrentFile;
lblFileNameFrom.Caption := MinimizeFilePath(CurrentFile, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
SetProgressBytes(pbFirst, CurrentFileDoneBytes, CurrentFileTotalBytes);
SetProgressBytes(pbSecond, DoneBytes, TotalBytes);
@ -599,7 +599,7 @@ begin
with CalcChecksumStatistics do
begin
lblFileNameFrom.Caption := CurrentFile;
lblFileNameFrom.Caption := MinimizeFilePath(CurrentFile, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
SetProgressBytes(pbFirst, CurrentFileDoneBytes, CurrentFileTotalBytes);
SetProgressBytes(pbSecond, DoneBytes, TotalBytes);
@ -617,8 +617,8 @@ begin
with TestArchiveStatistics do
begin
lblFileNameFrom.Caption := ArchiveFile;
lblFileNameTo.Caption := CurrentFile;
lblFileNameFrom.Caption := MinimizeFilePath(ArchiveFile, lblFileNameFrom.Canvas, lblFileNameFrom.Width);
lblFileNameTo.Caption := MinimizeFilePath(CurrentFile, lblFileNameTo.Canvas, lblFileNameTo.Width);
SetProgressBytes(pbFirst, CurrentFileDoneBytes, CurrentFileTotalBytes);
SetProgressBytes(pbSecond, DoneBytes, TotalBytes);