View Single Post
  #9  
Old 05-09-2023, 09:56
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 688
Thanks: 481
Thanked 2,547 Times in 561 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
@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.
Reply With Quote
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (05-09-2023), hitman797 (05-09-2023)