anchor.diff:    else
       FMax := AValue;
     if FPosition > FMax then
  -    SetPosition(FMax);
  +    StepEnd;
   end;
   
   procedure TfpgScrollBar.SetMin(const AValue: integer);
  
positive.code:   
    TfpgScrollBarPart = (sbpNone, sbpUpBack, sbpPageUpBack, sbpSlider, sbpDownForward, sbpPageDownForward);
  
    TfpgScrollBar = class(TfpgWidget)
    private
      FLargeChange: Integer;
  
negative.code:   // Paint the area between the buttons and the Slider
    if Orientation = orVertical then
    begin
      if FScrollbarDownPart in [{sbpUpBack,} sbpPageUpBack] then
      begin
        Canvas.SetColor(clShadow1);
        Canvas.FillRectangle(0, Width, Width, FSliderPos);
        Canvas.SetColor(clScrollBar);
      end
      else if FScrollbarDownPart in [{sbpDownForward,} sbpPageDownForward] then
      begin
        Canvas.SetColor(clShadow1);
        Canvas.FillRectangle(0, FSliderPos + FSliderLength, Width, Height - Width - (FSliderPos + FSliderLength));
  