Узкий ScrollBar у TScrollBox

[NesDmitrijj]

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

 

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

Спасибо.

 

[AngryOwl]

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);

[NesDmitrijj]

Я имею ввиду отображение узких скролбаров по умолчанию. Т.е. они узкие всегда и не исчезают. А про AniCalculations я вкурсе )))).