paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 09:30:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Ide, fix ObjectInspector scrollbar bug, from Anton with changes, issue #22748

Browse Source 
git-svn-id: trunk@40332 -
This commit is contained in:
jesus 2013-02-16 19:46:33 +00:00
parent 7a461e151b
commit 0eb6275ce0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/objectinspector.pp
View File

@ -971,16 +971,18 @@ end;
procedure TOICustomPropertyGrid.UpdateScrollBar; procedure TOICustomPropertyGrid.UpdateScrollBar;
var var
ScrollInfo: TScrollInfo; ScrollInfo: TScrollInfo;
ATopMax: Integer;
begin begin
if HandleAllocated then begin if HandleAllocated then begin
ATopMax := TopMax;
ScrollInfo.cbSize := SizeOf(ScrollInfo); ScrollInfo.cbSize := SizeOf(ScrollInfo);
ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL; ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL;
ScrollInfo.nMin := 0; ScrollInfo.nMin := 0;
ScrollInfo.nTrackPos := 0; ScrollInfo.nTrackPos := 0;
ScrollInfo.nMax := TopMax+ClientHeight-1; ScrollInfo.nMax := ATopMax+ClientHeight-1;
ScrollInfo.nPage := ClientHeight; ScrollInfo.nPage := ClientHeight;
if ScrollInfo.nPage<1 then ScrollInfo.nPage:=1; if ScrollInfo.nPage<1 then ScrollInfo.nPage:=1;
if TopY > ScrollInfo.nMax then TopY:=ScrollInfo.nMax; if TopY > ATopMax then TopY:=ATopMax;
ScrollInfo.nPos := TopY; ScrollInfo.nPos := TopY;
ShowScrollBar(Handle, SB_VERT, True); ShowScrollBar(Handle, SB_VERT, True);
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);