anchor.diff:      fCaption: UnicodeString; //Original text
       fText: UnicodeString; //Reformatted text
       fTextAlign: TKMTextAlign;
  +    fTextVAlign: TKMTextVAlign;
       fTextSize: TKMPoint;
       fStrikethrough: Boolean;
       fTabWidth: Integer;
  
positive.code:     property Strikethrough: Boolean read fStrikethrough write fStrikethrough;
      property TabWidth: Integer read fTabWidth write fTabWidth;
      property TextSize: TKMPoint read fTextSize;
      property Font: TKMFont read fFont write SetFont;
      procedure Paint; override;
    end;
  
negative.code:   if fEnabled then col := FontColor
                else col := $FF888888;
  
    t := 0;
    if Height > 0 then
    begin
      case fTextVAlign of
        tvaNone,
        tvaTop:     ;
        tvaMiddle:  t := (Height - fTextSize.Y) div 2;
        tvaBottom:  t := Height - fTextSize.Y;
      end;
    end;
  
    TKMRenderUI.WriteText(AbsLeft, AbsTop + t, Width, fText, fFont, fTextAlign, col, False, False, False, fTabWidth, PaintingBaseLayer);
  
    if fStrikethrough then
      TKMRenderUI.WriteShape(TextLeft, AbsTop + fTextSize.Y div 2 - 2, fTextSize.X, 3, col, $FF000000);
  