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

Object Inspector: Improve scrolling, reduce flicker. Issue #27667.

Browse Source 
git-svn-id: trunk@48433 -
This commit is contained in:
juha 2015-03-20 17:07:52 +00:00
parent 23f22ed784
commit 326bf8d567
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/objectinspector.pp
View File

@ -2503,6 +2503,7 @@ end;
procedure TOICustomPropertyGrid.SetTopY(const NewValue:integer); procedure TOICustomPropertyGrid.SetTopY(const NewValue:integer);
var var
NewTopY: integer; NewTopY: integer;
r: Types.TRect;
begin begin
NewTopY := TopMax; NewTopY := TopMax;
if NewValue < NewTopY then if NewValue < NewTopY then
@ -2510,10 +2511,12 @@ begin
if NewTopY < 0 then if NewTopY < 0 then
NewTopY := 0; NewTopY := 0;
if FTopY<>NewTopY then begin if FTopY<>NewTopY then begin
r := ClientRect;
if not ScrollWindowEx(Handle,0,FTopY-NewTopY,@r,@r,0,nil, SW_INVALIDATE+SW_SCROLLCHILDREN) then
Invalidate;
FTopY:=NewTopY; FTopY:=NewTopY;
UpdateScrollBar; UpdateScrollBar;
AlignEditComponents; AlignEditComponents;
Invalidate;
end; end;
end; end;