Есть листбокс прокручивается клавишами с клавиатуры. В 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. когда не было прокрутки, меня мой вариант устраивал
Вопрос
OnePeople
Платформа: Windows
Delphi: Seatle
Есть листбокс прокручивается клавишами с клавиатуры. В XE8 был баг и прокрутки своей небыло, делал так
Сейчас прокрутка есть но не плавная, подскажите пожалуйста как сделать плавную или вообще её отключить!
P.S. когда не было прокрутки, меня мой вариант устраивал
Ссылка на комментарий
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.