Подскажите как сделать эффект инерционности.
Есть два trackbar`а, один таскаю мышкой, хочу чтобы второй занимал положение ползунка второго trackbar`а, но более плавно, как будто у него него есть трение.
Сделал с таймером, но положение плавно не меняется, не могу сообразить как надо.
Пример сам по себе бесполезный, но на нём хочу понять как реализовать эффект инерции.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var t1,t2:integer;
begin
t1 := trackbar1.Position;
t2 := trackbar1.Position;
if trackbar2.Position <> trackbar1.Position then
if t2<t1 then inc(t2,1)
else dec(t2,1);
trackbar2.Position := t2
end;