anchor.diff:    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;
  
positive.code:       FSliderPos := Trunc(area * ((FPosition - FMin) / mm));
    end;
  
    if Orientation = orVertical then
    begin
      Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btnIsEmbedded]);
  
negative.code:     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;
  