anchor.diff:  begin
     //fHint := StringReplace(aHint, '|', ' ', [rfReplaceAll]); //Not sure why we were need to replace | here...
     fHint := aHint;
  -end;
  -
  -
  -procedure TKMControl.SetHintBackColor(const aValue: TKMColor3f);
  -begin
  -  // Do nothing
   end;
   
   
  
positive.code: end;
  
  
  function TKMControl.GetHintBackColor: TKMColor3f;
  begin
    Result := COLOR3F_BLACK;
  end;
  
  
  
negative.code:     function KeyEventHandled(Key: Word; Shift: TShiftState): Boolean; virtual;
      function CanChangeSelection: Boolean; virtual;
    public
      procedure SetTopIndex(aIndex: Integer; aStayOnList: Boolean); overload;
      property ItemIndex: Integer read GetItemIndex write SetItemIndex;
      property TopIndex: Integer read GetTopIndex write SetTopIndex;
  