
05-09-2023, 09:56
|
 |
Registered User
|
|
Join Date: Mar 2019
Location: In the Hell
Posts: 688
Thanks: 481
Thanked 2,547 Times in 561 Posts
|
|
Quote:
Originally Posted by audiofeel
@BLACKFIRE69
The progress bar always shows 97-99% after unpacking (no errors) . What and where did I do wrong again? Part of the code below
Code:
function ProgressCallback(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): longword;
begin
Page3PB.SetValue(OverallPct, 1000);
-----------------
Page3PB.FCreate(Page3.Handle, 64, 166, 671, 36, {#StyleColor}, $6C030303, False);
Page3PB.Curve(4.0, 4.0);
Page3PB.StrokeColor(ALNull);
Page3PB.StrokeSetting(1.6, scRound, sdSolid, sjMiter);
Page3PB.StrokeColorBack(ALMedGray);
Page3PB.StrokeSettingBack(0.8, scRound, sdSolid, sjMiter);
Page3PB.Opacity(0.9);
Page3PB.FillGradient({#StyleColor}, ALMediumspringgreen, gsLinear);
Page3PB.FillGradientLinearAngle(45);
Page3PB.FillGradientAnimSetting(atOut, 1.2, 0, False, True, True);
Page3PB.FillGradientAnimInterpolationType(itCircular);
Page3PB.FillGradientAnimColors({#StyleColor}, ALMediumspringgreen, ALMediumspringgreen, {#StyleColor});
Page3PB.FillGradientAnimEnable(True);
|
the new update will fix this.
|