Перейти к содержанию
Fire Monkey от А до Я
  • 0

Узкий ScrollBar у TScrollBox


NesDmitrijj

Вопрос

Здравствуйте!

 

Как реализовать узкие скролбары у TScrollBox по умолчанию. Помнится в XE3 было специальное свойство, но с появлением AniCalculations всё кудато пропало.

Спасибо.

 

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
procedure EnableScrollSmooth(Sender: TObject; AHorhValue, ABounds, AShowing: Boolean);
begin
  if Assigned(TScrollBox(Sender)) then
    with TScrollBox(Sender).AniCalculations do
    begin
      Animation := True;
      AutoShowing := AShowing;
      BoundsAnimation := ABounds;
      if not AHorhValue then
        TouchTracking := TouchTracking - [ttHorizontal];
    end;
end;

ну и переключайте например так:

EnableScrollSmooth({ваш TScrollBox}, False, False, True);

Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...