anchor.diff:      begin
         FSliderDragging := True;
         FSliderDragPos  := y;
  +    end
  +    else if (y > Width) and (y < Width + FSliderPos) then
  +    begin
  +      // Clicked between Up button and Slider
  +      PrevAreaPressed := True;
  +      PositionChange(-(FScrollStep * 5))
  +    end
  +    else if (y < (Height - Width)) and (y > (Width + FSliderPos + FSliderLength)) then
  +    begin
  +      // Clicked between Down button and Slider
  +      NextAreaPressed := True;
  +      PositionChange(FScrollStep * 5);
       end;
     end
     else
  
positive.code:       FSliderPos := Trunc(area * ((FPosition - FMin) / mm));
    end;
  
    if Orientation = orVertical then
    begin
      Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btnIsEmbedded]);
  
negative.code:   FStartBtnPressed  := False;
    FEndBtnPressed    := False;
    FSliderDragging   := False;
    
    if PrevAreaPressed then
    begin
      PrevAreaPressed := False;
      WasPressed := True;
    end
    else if NextAreaPressed then
    begin
      NextAreaPressed := False;
      WasPressed := True;
    end;
  
    if WasPressed then
      HandlePaint;
  end;
  