tscrollbox [TScrollBox] Можно ли изменить Increment у ScrollBar?

[Вадим Смоленский]

Компонент TScrollBox в VCL имеет свойства VertScrollBar и HorzScrollBar, каждое из которых, в свою очередь, снабжено свойством Increment, определяющим количество пикселей, перемещаемых при нажатии на кнопку прокрутки. В FMX я ничего похожего найти не смог. Есть ли способ поменять принятые по умолчанию установки?

[Brovin Yaroslav]

Не уверен, что это возможно, так как сам ScrollBox настраивает скролл боксы по своему усмотрению. Но вы можете получить к ним доступ и попробовать изменить их программным путем:

type
  TOpenScrollBox = class(TCustomScrollBox);

procedure TForm2.Button1Click(Sender: TObject);
begin
  TOpenScrollBox(ScrollBox1).VScrollBar.ViewportSize;
  TOpenScrollBox(ScrollBox1).HScrollBar.ViewportSize;
end;

 

[ENERGY]

В .ViewportPositionChange поменяйте  

HScrollBar.SmallChange :=  MyllWidth;

VScrollBar....

Значение постоянно сбрасывается при смене ViewPort, поэтому во ViewportPositionChange