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;