FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Originally Posted by BLACKFIRE69

is this look like 49%?

,

ok pro, I fix the problem.

procedure Timer1OnTimer(Sender: TObject);
var
  RAMPCT, CPUPCT, DiskPCT: Single;
begin
  CPUPCT:=(CPU.CpuLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(CPUPCT);
  PctLB.Text(IntToStr(Round(CPU.CpuLoad)));
  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;