DateTime editor: Shorten the timer delay before auto counting gets started to a subjectively better value.

This commit is contained in:
Ansgar Becker
2009-06-27 09:27:06 +00:00
parent 5979e356e0
commit 890fb5eed6

View File

@ -499,8 +499,8 @@ var
DelayCalls: Integer; DelayCalls: Integer;
begin begin
Inc(FTimerCalls); Inc(FTimerCalls);
// 0.5 second delay before counting up/down // short delay before counting up/down
DelayCalls := 500 Div FTimer.Interval; DelayCalls := 350 Div FTimer.Interval;
if (FTimerCalls > DelayCalls) or (not (Sender is TTimer)) then if (FTimerCalls > DelayCalls) or (not (Sender is TTimer)) then
ModifyDate(FModifyOffset); ModifyDate(FModifyOffset);
// Speed up counting in steps // Speed up counting in steps