anchor.diff:      procedure   RepaintSlider;
       property    Position: integer read FPosition write SetPosition default 10;
       property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
  +//    property    LargeChange: Integer read FLargeChange write FLargeChange default 0;
       property    Min: integer read FMin write SetMin default 0;
       property    Max: integer read FMax write SetMax default 100;
       property    OnScroll: TScrollNotifyEvent read FOnScroll write FOnScroll;
  
positive.code:   begin
      if y <= Width then
      begin
        PositionChange(-FScrollStep);
        FStartBtnPressed := True;
        FActiveButtonRect.SetRect(0, 0, Width, Width);
      end
      else if y >= Height - Width then
      begin
        PositionChange(FScrollStep);
        FEndBtnPressed := True;
        FActiveButtonRect.SetRect(0,Height-Width, Width, Height);
  
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;
  