anchor.diff:        Canvas.FillRectangle(0, FSliderPos + FSliderLength, Width, Height - Width - FSliderPos);
         Canvas.SetColor(clScrollBar);
       end;
  -  end;
  -
  +  end
  +  else
  +  begin
  +    if PrevAreaPressed then
  +    begin
  +      Canvas.SetColor(clShadow1);
  +      Canvas.FillRectangle(Height, 0, FSliderPos, Height);
  +      Canvas.SetColor(clScrollBar);
  +    end
  +    else if NextAreaPressed then
  +    begin
  +      Canvas.SetColor(clShadow1);
  +      Canvas.FillRectangle(FSliderPos + FSliderLength, 0, Width - Height - FSliderPos, Height);
  +      Canvas.SetColor(clScrollBar);
  +    end;
  +  end;
  +
  +  // Paint the slider button
     if Orientation = orVertical then
     begin
       Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btnIsEmbedded]);
  
positive.code:   begin
      if x <= Height then
      begin
        PositionChange(-FScrollStep);
        FStartBtnPressed := True;
        FActiveButtonRect.SetRect(0, 0, Height, Height);
      end
      else if x >= Width - Height then
      begin
        PositionChange(FScrollStep);
        FEndBtnPressed := True;
        FActiveButtonRect.SetRect(Width-Height, 0, Width, Height);
      end
      else if (x >= Height + FSliderPos) and (x <= Height + FSliderPos + FSliderLength) then
      begin
        FSliderDragging := True;
        FSliderDragPos  := x;
      end;
    end;
    
  
negative.code:       FEndBtnPressed := True;
        FActiveButtonRect.SetRect(0,Height-Width, Width, Height);
      end
      else if (y >= (Width + FSliderPos)) and (y <= Width + FSliderPos + FSliderLength) then
      begin
        FSliderDragging := True;
        FSliderDragPos  := y;
      end
      else if (y > Width) and (y < (Width + FSliderPos)) then
      begin
        // Clicked between Up button and Slider
        PrevAreaPressed := True;
  