[SOLVED] TControlScrollBar.ClientSize logic wrong?

[dsiders]

I stumbled across this in controlscrollbar.inc:

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

1. function TControlScrollBar.ClientSize: integer;
2. begin
3.   if Kind = sbVertical then
4.     Result := FControl.ClientWidth
5.   else
6.     Result := FControl.ClientHeight;
7. end;
8.  

It seems to return the wrong value for the orientation in Kind. A vertical scroll bar should be getting the Height of the control, and not its Width.  And a horizontal one would be using the Width and not the Height.

Right? Or have I missed something obvious?

[jamie]

Well kind of twisted but that is how things are ..
 

[wp]

No I think this is correct, look at the comments in the interface declaration. It's not about the size of the scrollbar but about the control it is attached to. Assume a vertical scrollbar. Then the height of the client is equal to the height of the scrollbar - if TControlScrollbar.clientSize would return that the value would be needless. But when the width of the client is returned by the function TControlScrollbar.ClientSize then this is useful information.

[dsiders]

After looking at ClientSizeWithBar, ClientSizeWithoutBar, and how it's being used in TScrollingWinControl... I see the error in my assumption.

No problem, so problem solved.

Thanks.