Object Inspector: Scrolling works without Invalidate and messages, remove them. Issue #27667.

git-svn-id: trunk@48439 -

components/ideintf/objectinspector.pp

@@ -2503,9 +2503,6 @@ end;
 procedure TOICustomPropertyGrid.SetTopY(const NewValue:integer);
 var
   NewTopY: integer;
-  {$IFDEF WINDOWS}
-  r: Types.TRect;
-  {$ENDIF}
 begin
   NewTopY := TopMax;
   if NewValue < NewTopY then
@@ -2513,11 +2510,6 @@ 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;