anchor.diff:    if Visible then
     begin
       FRecalc := True;
  -    Invalidate;   // DrawSlider(True);
  +    Invalidate;
     end;
   
     if Assigned(FOnScroll) then
  
positive.code:     DrawButton(0, 0, Height, Height, 'sys.sb.left', (FScrollbarDownPart = sbpUpBack) and (FPosition <> FMin), (FPosition <> FMin) and (Parent.Enabled));
      DrawButton(Width-Height, 0, Height, Height, 'sys.sb.right', (FScrollbarDownPart = sbpDownForward) and (FPosition <> FMax), (FPosition <> FMax) and (Parent.Enabled));
    end;
  
    DrawSlider(FRecalc);
    Canvas.EndDraw;   // Do not remove - Scrollbars do painting outside HandlePaint as well!
    FRecalc := False;
  end;
  
  
negative.code: 
  procedure TfpgScrollBar.HandlePaint;
  begin
    if Orientation = orVertical then
    begin
      DrawButton(0, 0, Width, Width, 'sys.sb.up', (FScrollbarDownPart = sbpUpBack) and (FPosition <> FMin), (FPosition <> FMin) and (Parent.Enabled));
  