|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
Delphi 12 Athens
|
Re: Kinetic Scrolling
4. Jan 2010, 13:41
- du mußt das Loslassen und die Zeit, wie lange es auf einem Punkt blieb messen
- dazu dann auch noch die Geschwindigkeit des Ziehens
> läßt sich über OnMouseMove und OnMouseUp und die Speicherung der Zeitpunkte, sowie die Abstände der letzten MouseMove-Ereignisse bestimmen
- tja, und nun das Kinetische
> hierfür einen Timer laufen lassen, welcher bei erfolgreicher Aktion in OnMouseUp gestartet wird
> nun wird einfach nur noch die schon vorher einmal errechnete Geschwindigkeit in Pixel umgerechnet (passend zum Timerinterval)
> das Objekt entsprechend verschoben und die Geschwindigkeit verringert
> tja und das nun so lange, bis die Geschwindigkeit 0 ist
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|