anchor.diff:    CaptionWidth := -1;
   
     Step := 1;
  -  AutoThumbWidth := False;
  +  fAutoThumbWidth := False;
  +  fFixedThumbWidth := False;
   
     UpdateThumbWidth;
   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: 
  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 + THUMB_WIDTH_ADD;
  end;
  
  
  