Scrollbar slider size

[Okoba]

Hi,

I have TScrollBar, but changing the value of Max, Min, PageSize, SmallChange or LargeChange does not change the slider or thumb size.
How can I change it?
I am tasting this with Lazarus Trunk in Windows.

[Okoba]

And is there a way I can get the slider or thumb size? For example if I add items to a memo or grid, the scroll slider decreases. Can I get this value from a TScrollBar and a control with scroll, like memo?

[zeljko]

LCLIntf.GetScrollInfo
LCLIntf.SetScrollInfo

[Okoba]

Thank you but it is not working.
1- It does not set the value
2- It loses the style of the control.

Code: Pascal  [Select][+][-]

1.   with ScrollInfo do
2.   begin
3.     cbSize := SizeOf(ScrollInfo);
4.     fMask := SIF_ALL;
5.     nMin := 1;
6.     nMax := 100;
7.     nPage := 2;
8.     nTrackPos := 0;
9.   end;
10.   SetScrollInfo(ScrollBar1.Handle, SB_Vert, ScrollInfo, True);  
11.  

Please note that it is a TScrollBar not a control with ScrollBars.
Look at the screenshot for seeing that button has the Windows theme, but Scrollbar lost it when I called SetScrollInfo.

[dsiders]

Hi,

I have TScrollBar, but changing the value of Max, Min, PageSize, SmallChange or LargeChange does not change the slider or thumb size.
How can I change it?
I am tasting this with Lazarus Trunk in Windows.

I am responding to your original post... because I cannot reproduce the problem. I too am using the current main branch:
Lazarus 2.3.0 (rev main-2_3-2376-ge6f85953d8) FPC 3.2.2 x86_64-win64-win32/win64. Tested on Windows 8.1 and Windows 11. Using the Min , Max, and PageSize properties in TScrollBar. No Issues.

Screenshot and sample project attached.

[Okoba]

Thank you so much dsiders. Your demo helped me to find my confusion.