Отключить прокрутку

[OnePeople]

Платформа: Windows

Delphi: Seatle

 

Есть листбокс прокручивается клавишами с клавиатуры. В XE8 был баг и прокрутки своей небыло, делал так

scb:=VideoList.FindStyleResource('vscrollbar') as TScrollBar;
posIt:= (VideoList.ItemIndex div vidcolumn) * VideoList.ItemHeight;
posVer:=scb.Value;
posNiz:=scb.Value+VideoList.Height;

if posIt>posNiz-VideoList.ItemHeight then
      begin
      TAnimator.AnimateFloat(scb,'Value',(VideoList.ItemIndex div 5) * VideoList.ItemHeight-VideoList.Height+VideoList.ItemHeight,0.25);
      end;

if posIt<posVer then
      begin
      TAnimator.AnimateFloat(scb,'Value',(VideoList.ItemIndex div 5) * VideoList.ItemHeight,0.25);
      end;

Сейчас прокрутка есть но не плавная, подскажите пожалуйста как сделать плавную или вообще её отключить!

P.S. когда не было прокрутки, меня мой вариант устраивал

 

[bigjorj]

Есть вариант переписать модуль в котором содержится ListBox (взять его из исходных кодов)  и подключить его к своему проекту. При компиляции возьмется именно ваш модуль. Делал так много раз, все работает.