TUpDown: wie lange gedrückt?

[cruiser]

Nach ein bisschen probieren find ich die Kurve für Zehnerpotenzen am besten:

Delphi-Quellcode:

case (GetTickCount - fUpDownPressedAt) of
     0..3999: udCredits.Increment := 1;
  4000..6999: udCredits.Increment := 10;
  7000..8999: udCredits.Increment := 100;
  9000..9999: udCredits.Increment := 1000;
end;