paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

always calculate range, not only when visible (fixes bug #650)

Browse Source 
git-svn-id: trunk@7047 -
This commit is contained in:
micha 2005-04-01 08:25:25 +00:00
parent ad04037248
commit 8f4536230c
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/controlscrollbar.inc
View File

@ -253,7 +253,6 @@ begin
ScrollInfo.nPage := FPage; ScrollInfo.nPage := FPage;
// range // range
if Visible then begin
OtherScrollbar:=GetOtherScrollBar; OtherScrollbar:=GetOtherScrollBar;
If OtherScrollbar.FVisible then If OtherScrollbar.FVisible then
SBSize := OtherScrollbar.Size SBSize := OtherScrollbar.Size
@ -266,9 +265,6 @@ begin
FAutoRange := (FRange - ClientWidth) FAutoRange := (FRange - ClientWidth)
*Shortint(FRange >= ClientWidth + SBSize); *Shortint(FRange >= ClientWidth + SBSize);
ScrollInfo.nMax := FRange; ScrollInfo.nMax := FRange;
end
else
ScrollInfo.nMax := 0;
// visible // visible
if Kind=sbVertical then if Kind=sbVertical then