anchor.diff:  
   procedure TKMTrackBar.UpdateThumbWidth;
   begin
  +  if fFixedThumbWidth then Exit;
  +  
     if AutoThumbWidth then
       ThumbWidth := Max(gRes.Fonts[SliderFont].GetTextSize(IntToStr(MaxValue)).X,
                         gRes.Fonts[SliderFont].GetTextSize(ThumbText).X)
     else
       ThumbWidth := gRes.Fonts[SliderFont].GetTextSize(IntToStr(MaxValue)).X;
   
  -  ThumbWidth := ThumbWidth + 24;
  +  ThumbWidth := ThumbWidth + THUMB_WIDTH_ADD;
   end;
   
   
  
positive.code:     fRange: TKMRangeInt;
      fThumbText: UnicodeString;
      fAutoThumbWidth: Boolean;
      procedure SetCaption(const aValue: UnicodeString);
      procedure SetPosition(aValue: Word);
      procedure SetRange(const aRange: TKMRangeInt);
  
negative.code:       stepX := (Width - ThumbWidth) / (fMaxValue - fMinValue) / Step; // width between marks
        posX := stepX * (Position / Step) + (ThumbWidth div 2); // actual marks positions on track
      end;
      if not AutoThumbWidth
        or not InRange(X - AbsLeft, posX - ThumbWidth div 2, posX + ThumbWidth div 2) then // do not update pos, if we hover over thumb
        NewPos := EnsureRange(fMinValue + Round(((X-AbsLeft-ThumbWidth div 2) / (Width - ThumbWidth - 4))*(fMaxValue - fMinValue)/Step)*Step, fMinValue, fMaxValue);
    end;
  