Help Inno Setup+ISDone progress bar percentage

[buttignol]

Friends help my installer never of 100.00% at the end of installation

Always ends in 99.9% or 99.8% or 89.9% etc ...

But never ends at 100.00%

OBS: already tried with Progressbar.iss

my installer and my way of compressing

[_EZEKiEL_]

Friends help my installer never of 100.00% at the end of installation

Always ends in 99.9% or 99.8% or 89.9% etc ...

But never ends at 100.00%

OBS: already tried with Progressbar.iss

my installer and my way of compressing
It's just the time to update the percentage. Example: If data.dat is big you go up to 100%, because the decompression will be slower, but if it is too small , the installer goes too fast does not have time to update, then 99,8 or 98,5...

I hope you understand my bad English :o

[buttignol]

Thanks Ezekiel but is to fix this

[Razor12911]

Try this, although it is not tested.
Enhanced Edition of Inno Setup is required for compilation

[buttignol]

Thank Razor12911 unable to Enhanced Edition

Inno Setup version 5.5.1 ee1 (a) Ansi end of the installation in 99.6%

Inno Setup version 5.5.5 (u) Unicode error Identifier TTimer

[Razor12911]

I guess further investigation is needed.

[buttignol]

I guess further investigation is needed.

I will wait for it not finish the installation in 100.0% bothers
Thank you again

[Razor12911]

Just cheat bro, why don't you write 100.00% yourself as a constant after ISDone process.

[buttignol]

Just cheat bro, why don't you write 100.00% yourself as a constant after ISDone process.

how to do this to test you can for example

[Razor12911]

After ISDoneStop; (somewhere in CurStepChanged)
write
LabelPct...Caption:='100.00%';
I don't know the name of the label just complete it.

[buttignol]

After ISDoneStop; (somewhere in CurStepChanged)
write
LabelPct...Caption:='100.00%';
I don't know the name of the label just complete it.

The place for this code is

function ProgressCallback (OveralPct, CurrentPct: integer; CurrentFile, TimeStr1, TimeStr2, TimeStr3: PAnsiChar): longword;
begin
if OveralPct <= 1000 Then
ISDoneProgressBar1.Position: = OveralPct;
After ISDoneStop; (somewhere in CurStepChanged)
write
LabelPct1.Caption: = '100.00%';

[Razor12911]

Not there bro.

Put LabelPct1.Caption:='100.00%'

right after ISDoneStop;
you can find ISDoneStop somewhere under CurStepChanged procedure

BTW why do you have
"if OverallPct <= 1000 then"
just remove that line.

[buttignol]

Thank Razor12911 you for your patience and effort to help me but I could not
solve.

[Razor12911]

Ok, I will do it for you, not today though, I got biology exam tomorrow, I gotta stay fresh for it.

[buttignol]

Ok, I will do it for you, not today though, I got biology exam tomorrow, I gotta stay fresh for it.

Ok waiting

[buttignol]

I have this
function ProgressPercent:Integer;
var
pr,i1,i2: Extended;
begin
if (ISDoneProgressBar1.Position>ISDoneProgressBar1.Min) then begin
i1:=ISDoneProgressBar1.Position-ISDoneProgressBar1.Min;
i2:=ISDoneProgressBar1.Max-ISDoneProgressBar1.Min;
pr:=i1*100/i2;
Result:=Round(100*pr/100);;
end;
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;
begin
ISDoneProgressBar1.Position := OveralPct;
LabelPct1.Caption := IntToStr(ProgressPercent)+'.'+IntToStr(OveralPct mod 10)+'%';

But there's an error in the "IntToStr (OveralPct mod 10) + '%';" it does not end with "IntToStr (ProgressPercent)"
was thus 100.8%