Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
13. Mai 2006
Wenn du anstelle der ProgressBar eine TGauge (Register: Beispiele) nimmst, zeigt es dir darauf auch die Zahl an. Natürlich kannst du diese auch in einem Label o.Ä. anzeigen lassen.
Bsp. zu TGauge:
Gauge1.Progress := GetCPUUsage;
Edit: Bei TGauge kannst du auch frei die Vordergrund-/Hintergrundfarben wählen, nur so nebenbei, falls du das benötigen solltest.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Matze,
12. Mai 2006
Hi
Bei mir geht es so ohne Probleme:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := GetCPUUsage;
end;
Es muss natürlich nicht in einer Timer-Prozedur sein. ProgressBar-Min muss auf 0 stehen und -Max auf 100, was jedoch Standard-EInstellung ist. Runden musst du nichts, da GetCPIUsage einen Integer zurückliefert.