anchor.diff:      Step: Byte; //Change Position by this amount each time
       ThumbText: UnicodeString;
       ThumbWidth: Word;
  +    CaptionWidth: Integer;
   
       constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth: Integer; aMin, aMax: Word);
   
  
positive.code:   TextColor: array [Boolean] of TColor4 = ($FF888888, $FFFFFFFF);
  var
    ThumbPos, ThumbHeight: Word;
  begin
    inherited;
  
    if fCaption <> '' then
      TKMRenderUI.WriteText(AbsLeft, AbsTop, Width, fCaption, fFont, taLeft, TextColor[fEnabled]);
  
    TKMRenderUI.WriteBevel(AbsLeft+2,AbsTop+fTrackTop+2,Width-4,fTrackHeight-4);
    ThumbPos := Round(Mix (0, Width - ThumbWidth - 4, 1-(Position-fMinValue) / (fMaxValue - fMinValue)));
  
negative.code:   Position := (fMinValue + fMaxValue) div 2;
    Caption := '';
    ThumbWidth := gRes.Fonts[fFont].GetTextSize(IntToStr(MaxValue)).X + 24;
    CaptionWidth := -1;
  
    Font := fnt_Metal;
    Step := 1;
  