TAtkObject

type TAtkObject = object(TGObject)

  description: Pgchar;

  name: Pgchar;

  accessible_parent1: PAtkObject;

  role: TAtkRole;

  relation_set: PAtkRelationSet;

  layer: TAtkLayer;

  function add_relationship();

  function get_accessible_id;

  function get_attributes;

  function get_description;

  function get_index_in_parent;

  function get_n_accessible_children;

  function get_name;

  function get_object_locale;

  function get_parent;

  function get_role;

  procedure initialize();

  procedure notify_state_change();

  function peek_parent;

  function ref_accessible_child();

  function ref_relation_set;

  function ref_state_set;

  function remove_relationship();

  procedure set_accessible_id();

  procedure set_description();

  procedure set_name();

  procedure set_parent();

  procedure set_role();

end;

TAtkObject

TGObject