FMXInno - Windows Fluent Design Installer UI for Inno

BLACKFIRE69 · #1 26-12-2022, 08:44

Quote:

Originally Posted by audiofeel

No pain No gain

ok ladies, let me touch on some key points for Apex Installer.

(i'm little bit busy so i don't have enough time to make a complete script.)

.

hitman797 · #2 06-01-2023, 14:27

Quote:

Originally Posted by audiofeel

Again, I'm distracting everyone from the holidays... The example is great, everything works. It is unclear how to fasten to "Progress angle"here is the value from "CPUUsage" "RamUsage" "DiskUsage" "IsarcEx " ?

use Timer.

Code:

VAR
  DiskUsageArc: FColorArc;
  DiskUsage: FDiskUsage;
  RamUsage, CPUUsage: FModernArc2;
  CPU: FCpuUsage;
  RAM: FRamUsage;
  Timer1: FTimer;

Code:

Page Num
  DiskUsageArc:= InitColorArcHandle;
  DiskUsage:= InitDiskUsage;
  RamUsage := InitModernArc2Handle;
  CPUUsage := InitModernArc2Handle;
  CPU := InitCpuUsage;
  RAM := InitRamUsage;
  Timer1 := InitTimerHandle;

Code:

procedure Timer1OnTimer(Sender: TObject);
begin
  CPUUsage.Angle(CPU.CpuLoad, 100);
  RamUsage.Angle(RAM.RamLoad, 100);
end;
procedure DirEditOnChange(Sender: TObject);
begin
  DiskUsage.SetDir(WizardForm.DirEdit.Text);
  DiskUsageArc.SetAngle(DiskUsage.DiskLoad, 100);
end;

Code:

  Timer1.FCreate(Page4.Handle, True);
  Timer1.Interval(750);
  Timer1.OnTimer(@Timer1OnTimer);

Code:

procedure Timer1OnTimer(Sender: TObject);
begin
  PctLB.Text(IntToStr(CPU.CpuLoad));
  RoundArc.Arc.EndAngle(CPU.CpuLoad + C_ANGLE);
  PctLB.Text(IntToStr(RAM.RamLoad));
  RoundArc.Arc.EndAngle(RAM.RamLoad + C_ANGLE);
  RoundArc.Arc.EndAngle(Disk.DiskLoad);
end;

BLACKFIRE69 · #3 06-01-2023, 22:46

@hitman797

EndAngle value is not correct.

hitman797 · #4 07-01-2023, 02:50

Quote:

Originally Posted by BLACKFIRE69

@hitman797

EndAngle value is not correct.

RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320

BLACKFIRE69 · #5 07-01-2023, 03:48

Quote:

Originally Posted by hitman797

RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320

is this look like 49%?

,

hitman797 · #6 07-01-2023, 04:16

Quote:

Originally Posted by BLACKFIRE69

is this look like 49%?

,

ok pro, I fix the problem.

Code:

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;

BLACKFIRE69 · #7 07-01-2023, 04:58

Quote:

Originally Posted by hitman797

ok pro, I fix the problem.

Code:

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;

something still doesn't seem right....

for 0% :

.

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM	BLACKFIRE69	Conversion Tutorials	0	15-11-2023 17:35
Windows Phone Installer similar to razor12911's original design?	Kitsune1982	Conversion Tutorials	0	02-07-2020 13:04
INDEX - Conversion Tutorial Index	Razor12911	Conversion Tutorials	5	11-06-2020 02:05
Frequently Asked Questions	Joe Forster/STA	PC Games - Frequently Asked Questions	0	29-11-2005 09:48

The Following 6 Users Say Thank You to BLACKFIRE69 For This Useful Post:
ADMIRAL (28-12-2022), audiofeel (26-12-2022), Gehrman (26-12-2022), Harsh ojha (27-12-2022), houcine80 (26-12-2022), ScOOt3r (27-12-2022)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (07-01-2023)

The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023), hitman797 (07-01-2023)

The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023)