Inno Setup Script Snippet

[y_thelastknight]

VCLStylesInnoSetup (skin for inno setup) updated

- Got from other forums.

[sentinelks]

mmmm... isdone problem,InitializeUninstallProgressForm problem unicode ec..
no show timer to WizardForm.Caption
ex:

function PCB(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  if OveralPct<=1000 then WizardForm.ProgressGauge.Position := OveralPct;
  WizardForm.Caption := 'Progress:'+'  '+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'0%'+'    '+'Time:'+' '+TimeStr2;
  Result := ISDoneCancel;
end;