anchor.diff:  // Send caption to render
   procedure TKMLabel.Paint;
   var
  +  t: Integer;
     col: Cardinal;
   begin
     inherited;
  
positive.code:     fCaption: UnicodeString; //Original text
      fText: UnicodeString; //Reformatted text
      fTextAlign: TKMTextAlign;
      fTextSize: TKMPoint;
      fStrikethrough: Boolean;
      fTabWidth: Integer;
  
negative.code:     property Strikethrough: Boolean read fStrikethrough write fStrikethrough;
      property TabWidth: Integer read fTabWidth write fTabWidth;
      property TextSize: TKMPoint read fTextSize;
      property TextVAlign: TKMTextVAlign read fTextVAlign write fTextVAlign;
      property Font: TKMFont read fFont write SetFont;
      procedure Paint; override;
    end;
  