Commit 45a96a8c authored by Juha Manninen's avatar Juha Manninen
Browse files

Object Inspector: Restrict scrolling improvemets to Windows platform. Issue #27667.

git-svn-id: trunk@48434 -
parent 326bf8d5
......@@ -2503,7 +2503,9 @@ end;
procedure TOICustomPropertyGrid.SetTopY(const NewValue:integer);
var
NewTopY: integer;
{$IFDEF WINDOWS}
r: Types.TRect;
{$ENDIF}
begin
NewTopY := TopMax;
if NewValue < NewTopY then
......@@ -2511,9 +2513,11 @@ begin
if NewTopY < 0 then
NewTopY := 0;
if FTopY<>NewTopY then begin
{$IFDEF WINDOWS}
r := ClientRect;
if not ScrollWindowEx(Handle,0,FTopY-NewTopY,@r,@r,0,nil, SW_INVALIDATE+SW_SCROLLCHILDREN) then
Invalidate;
{$ENDIF}
FTopY:=NewTopY;
UpdateScrollBar;
AlignEditComponents;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment