Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
24. Mär 2016
Ok. Es ging (bei mir hier) nicht anders. Es müssten in diesem Thread auch OnKeyPress und MouseUp berücksichtigt werden, sonst würde z.B. MouseUp vor dem Beenden des Threads ausgeführt, was zu logischen Fehlern führen würde. Das war mir zu kompliziert. Bei meiner Behelfslösung wird immer die Durchlaufzeit gewartet. Einmal ungefähr null und einmal die Prozesszeit. Das Ruckeln ist so (fast) weg.
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
23. Mär 2016
Ich habs jetzt anders. So wollte ichs eigentlich lassen. Soll so eine Art dynamischer Timer sein (Basiert auf DeddyH’s TWaitCounter).
TWaitCounterEx = class
private
FStart, FStop, FFrequency: Int64;
FStartTime, FStopTime, FWaitTime: double;
FSuccess: boolean;
function GetCanWaitTimer: boolean;
public
procedure Start;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
23. Mär 2016
Vielen Dank. Ihr seid wie immer Klasse. Hab leider keine Generics. Wie heißt dann der TWaitResult von WaitFor()?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
22. Mär 2016
Ich hab ein MouseMove wo ziemlich viel los ist. Ich suche schon seit einiger Zeit deshalb eine Verzögerung für das MouseMove. Jetzt hab ich mir das aus den Rippen geleiert. Was haltet ihr davon???
private
FLastTime, FMouseMoveIgnoreTime: cardinal;
end;
..
procedure TForm1.FormCreate(Sender: TObject);
begin