LCL: TScrollBox, remove unnecessary Invalidate on Windows. Issue #0026087 Move Invalidate in WS code for all other WS

git-svn-id: trunk@44840 -

lcl/include/scrollingwincontrol.inc

@@ -216,7 +216,7 @@ begin
   if HandleAllocated and IsWindowVisible(Handle) then
   begin
     TWSScrollingWinControlClass(WidgetSetClass).ScrollBy(Self, DeltaX, DeltaY);
-    Invalidate;
+    //Invalidate;
   end
   else
     inherited ScrollBy(DeltaX, DeltaY);

lcl/interfaces/carbon/carbonwsforms.pp

@@ -142,6 +142,7 @@ begin
   if not CheckHandle(AWinControl, Self, 'ScrollBy') then Exit;
 
   TCarbonWidget(AWinControl.Handle).ScrollBy(DeltaX, DeltaY);
+  AWinControl.Invalidate;
 end;
 
 { TCarbonWSCustomForm }

lcl/interfaces/gtk/gtkwsforms.pp

@@ -189,6 +189,7 @@ class procedure TGtkWSScrollingWinControl.ScrollBy(const AWinControl: TScrolling
   const DeltaX, DeltaY: integer);
 begin
   {$IFDEF VerboseGtkToDos}{$note implement me}{$ENDIF}
+  AWinControl.Invalidate;
 end;
 
 class procedure TGtkWSScrollingWinControl.SetColor(

lcl/interfaces/gtk2/gtk2wsforms.pp

@@ -975,6 +975,7 @@ begin
       NewPos := v - DeltaY;
     gtk_adjustment_set_value(Adjustment, NewPos);
   end;
+  AWinControl.Invalidate;
 end;
 
 { TGtk2WSHintWindow }

lcl/interfaces/gtk3/gtk3wsforms.pp

@@ -200,6 +200,7 @@ begin
     // writeln('OldValue ',dbgs(V),' NewValue ',dbgs(NewPos),' upper=',dbgs(Adjustment^.upper - Adjustment^.page_size));
     gtk_adjustment_set_value(Adjustment, NewPos);
   end;
+  AWinControl.Invalidate;
 end;
   
 { TGtk3WSCustomForm }

lcl/interfaces/qt/qtwsforms.pp

@@ -143,6 +143,7 @@ begin
     Exit;
   Widget := TQtCustomControl(AWinControl.Handle);
   Widget.viewport.scroll(DeltaX, DeltaY);
+  AWinControl.Invalidate;
 end;
 
 {------------------------------------------------------------------------------

lcl/widgetset/wsforms.pp

@@ -143,6 +143,7 @@ implementation
 class procedure TWSScrollingWinControl.ScrollBy(const AWinControl: TScrollingWinControl;
   const DeltaX, DeltaY: integer);
 begin
+  AWinControl.Invalidate;
 end;
   
 { TWSCustomForm }