FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Originally Posted by BLACKFIRE69

something still doesn't seem right....

for 0% :

.

procedure Timer1OnTimer(Sender: TObject);
var
  PCT, RAMPCT, CPUPCT, DiskPCT: Single;
begin
  PCT:=(CPU.CpuLoad * 2.5);
  CPUPCT:=(PCT * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(CPUPCT);
  PctLB.Text(IntToStr(Round(PCT)));
  RAMPCT:=(RAM.RamLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc2.Arc.EndAngle(RAMPCT);
  PctLB2.Text(IntToStr(Round(RAM.RamLoad)));
  DiskPCT:=(Disk.DiskLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc3.Arc.EndAngle(DiskPCT);
  PctLB3.Text(IntToStr(Round(Disk.DiskLoad)));
end;