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:                        aFont: TKMFont; aTextAlign: TKMTextAlign; aPaintLayer: Integer = 0); overload;
      constructor Create(aParent: TKMPanel; aLeft,aTop: Integer; const aCaption: UnicodeString; aFont: TKMFont;
                         aTextAlign: TKMTextAlign; aPaintLayer: Integer = 0); overload;
  
      function HitTest(X, Y: Integer; aIncludeDisabled: Boolean = False; aIncludeNotHitable: Boolean = False): Boolean; override;
      procedure SetColor(aColor: Cardinal);
  
      property AutoWrap: Boolean read fAutoWrap write SetAutoWrap;  //Whether to automatically wrap text within given text area width
      property AutoCut: Boolean read fAutoCut write SetAutoCut;     //Whether to automatically cut text within given text area size
      property Caption: UnicodeString read fCaption write SetCaption;
  