Help - Progress Percents

[pakrat2k2]

start reading here in this topic, few posts / pages, shows how it should be.

http://fileforums.com/showpost.php?p...&postcount=220

[Bilawal]

Originally Posted by pakrat2k2

start reading here in this topic, few posts / pages, shows how it should be.

http://fileforums.com/showpost.php?p...&postcount=220

Please show me through this script

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;
var
Remaining: Integer;
begin
if OveralPct<=Wizardform.ProgressGauge.Max then
Wizardform.Progressgauge.Position := OveralPct;
Result := ISDoneCancel;
with WizardForm.ProgressGauge do begin
WizardForm.Caption:='Installing - <<{#AppName}>>';
if OveralPct>0 then
begin
WizardForm.Caption:='Installing - <<{#AppName}>>'+(' Wait:' + TimeStr1);
end;
WizardForm.StatusLabel.Caption :='Unpacking Archives '+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
WizardForm.FilenameLabel.Caption :=' Extracting File: '+ MinimizePathName(CurrentFile, WizardForm.FilenameLabel.Font, WizardForm.ProgressGauge.Width-ScaleX(80));
end;
end;

[gozarck]

Originally Posted by Bilawal

Please show me through this script

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;
var
Remaining: Integer;
begin
if OveralPct<=Wizardform.ProgressGauge.Max then
Wizardform.Progressgauge.Position := OveralPct;
Result := ISDoneCancel;
with WizardForm.ProgressGauge do begin
WizardForm.Caption:='Installing - <<{#AppName}>>';
if OveralPct>0 then
begin
WizardForm.Caption:='Installing - <<{#AppName}>>'+(' Wait:' + TimeStr1);
end;
WizardForm.StatusLabel.Caption :='Unpacking Archives '+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
WizardForm.FilenameLabel.Caption :=' Extracting File: '+ MinimizePathName(CurrentFile, WizardForm.FilenameLabel.Font, WizardForm.ProgressGauge.Width-ScaleX(80));
end;
end;

In your script try to change

'+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';

To this

'+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+''+chr(48 + OveralPct mod 5)+'%';

maybe this help you