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: Show percents in caption of progress dialog

Browse source
This commit is contained in:
Alexander Koblov 2009-01-30 19:08:52 +00:00
commit ebb60ffd2a
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
fFileOpDlg.pas
View file

@ -100,6 +100,7 @@ procedure TfrmFileOp.FormShow(Sender: TObject);
begin
sEstimated:='';
sFileName:='';
Hint:= Caption;
pbFirst.Position:=0;
pbSecond.Position:=0;
pbFirst.Max:=1;
@ -152,7 +153,10 @@ begin
pbFirst.Invalidate;
if bp2 then
pbSecond.Invalidate;
if bp2 then
Caption:= IntToStr(iProgress2Pos) + '% ' + Hint;
if sEstimated<>lblEstimated.Caption then
begin
lblEstimated.Caption:=sEstimated;