anchor.diff:    
     TfpgScrollBarPart = (sbpNone, sbpUpBack, sbpPageUpBack, sbpSlider, sbpDownForward, sbpPageDownForward);
   
  +  { TfpgScrollBar }
  +
     TfpgScrollBar = class(TfpgWidget)
     private
       FLargeChange: Integer;
  
positive.code:         if (Position = FMin) or not WithinPageArea(True) then
            FScrollTimer.Enabled := False
          else
            PositionChange(-(FScrollStep * 5));
        end;
      sbpPageDownForward:
        begin
          if (Position = FMax) or not WithinPageArea(False) then
            FScrollTimer.Enabled := False
          else
            PositionChange(FScrollStep * 5);
        end;
    else
      FScrollTimer.Enabled := False;
  
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));
  