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:   CaptionWidth := -1;
  
    Step := 1;
    AutoThumbWidth := False;
  
    UpdateThumbWidth;
  end;
  
negative.code:     fRange: TKMRangeInt;
      fThumbText: UnicodeString;
      fAutoThumbWidth: Boolean;
      fFixedThumbWidth: Boolean;
      procedure SetCaption(const aValue: UnicodeString);
      procedure SetPosition(aValue: Word);
      procedure SetRange(const aRange: TKMRangeInt);
  