Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by SirThornberry,
24. Apr 2005
anstelle der 70 funktionen da könntest du die schleife auch in eine ExtraFunktion auslagern und diese jedesmal an der Stelle aufrufen, dann bräuchtest du nur die eine Sleep-Zeile durch die zeile für den Funktionsaufruf ersetzen. (Gibt ja auch noch Search/Replace - da ist das schnell erledigt)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by SirThornberry,
23. Apr 2005
wenn es um genauigkeit geht sollte man das ganze in einen Thread auslagern (das pumpe starten/stoppen) und nur die Progressbar in der Hauptanwendung laufen lassen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by SirThornberry,
21. Apr 2005
nimm anstelle von Sleep einfach eine Schleife
var LTime, LTime2: Cardinal;
begin
ProgressBar1.Max := 2000;
LTime := GetTickCount + 2000;
Portout(888,01); // pumpe wird aktiviert
repeat
Sleep(30); //damit die schleife nicht zu oft durchläuft
LTime2 := GetTickCount;