Juten Tach,
ich möchte einen "Zoom-Effekt" wie bei dem WindowsTaskManager haben.
Dort wird bei der Netzwerk-Auslastung der Bereich der angezeigt wird vergrößert, sobald ein Wert über den des Maximums ausschlägt. Dann bleibt der Bereich so groß, bis der Wert nicht mehr zu sehen ist.
Momentan habe ich eine einfache und unsaubere Lösung die zu mindestens den Bereich für einen Augenblick vergrößert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| if ( Wert < 750 ) and ( Wert > 250 )then begin
JvSimScope1.Maximum := 750;
end else begin
if Wert > 750 then begin
JvSimScope1.Maximum := Wert + 50;
end else begin
if Wert < 250 then begin
JvSimScope1.Maximum := Wert + 50;
end;
end;
end; |
Wie schaffe ich es jetzt, den "MaximumWert" so lange zu behalten, bis der Wert aus der Komponente rausläuft?
Zusätzlich muss ich auch noch beachten, dass der Wert danach ja nochmal größer werden kann. Also kann ich nicht stur einen Timer laufen lassen. Oder ich müsste den Timer dann nochmal neu starten wenn ich halt einen höheren Wert erhalte.
Das gleiche soll natürlich auch ins Negative funktionieren. Also wenn ich ganz plötzlich sehr niedrige Werte habe.
Ich hoffe mir jann jemand helfen
Die Komponente die ich benutze ist TJvSimScope. Aber die kennt eh keiner
