anchor.diff:      function GetClass: string;
       function GetControlFlags: UINT;
       function GetInterface(pstrName: string): Pointer;
  -    function GetLinkContent(iIndex: Integer): CDuiString;
  +    function GetLinkContent(iIndex: Integer): string;
       procedure DoEvent(var event: TEventUI);
       function EstimateSize(szAvailable: TSize): TSize;
       procedure PaintText(hDC: HDC);
  
positive.code:     procedure SetVisibleTag(_IsVisible: Boolean);
      function GetVisibleTag: Boolean;
      procedure SetItemText(pstrValue: string);
      function GetItemText: CDuiString;
      procedure CheckBoxSelected(_Selected: Boolean);
      function IsCheckBoxSelected: Boolean;
      function IsHasChild: Boolean;
  
negative.code:   Delphi_TreeNodeUI_SetItemText(Self, PChar(pstrValue));
  end;
  
  function CTreeNodeUI.GetItemText: string;
  begin
    Result := Delphi_TreeNodeUI_GetItemText(Self);
  end;
  