AnnSetUser example for Delphi

// This example is also for:
AnnSetVisible method
procedure TForm1.Button1Click(Sender: TObject);
begin
   //hide the selected objects
   LEADAnn1.AnnSetVisible ( LEADAnn1.AnnContainer, False, ANNFLAG_RECURSE + ANNFLAG_SELECTED, '' );
   //set the selected objects to belong to user XXX
   LEADAnn1.AnnSetUser ( LEADAnn1.AnnContainer, '', 'xxx', True);
end;