Edit a property which is and object (with ODT)

procedure CreateClasses;

var

  menu,menu_item,find_properties;





begin

  ODT.Data.Clear; 

  ODT.Classes.Clear;

  

  find_properties := ODT.Classes.Declare('FindProperties');

  find_properties.AddProperty('Prop');

  find_properties.AddProperty('Values');

  find_properties.AddProperty('Parent');

  find_properties.AddProperty('Depth'); 

  find_properties.AddMethod('GetObject','DescriptionMethodes.FindProperties_GetObject'); 

  

  menu_item := ODT.Classes.Declare('MenuItem');

  menu_item.AddProperty('Index');

  menu_item.AddProperty('Name');

  menu_item.AddPropOfArrayType('SubMenu');





  menu := ODT.Classes.Declare('Menu');

  menu.AddPropOfArrayType('Items');

  menu.AddProperty('Name');

  menu.AddPropOfClassType('Props','FindProperties');  

  





end;









procedure CreateDatas;

var

  data,arr,menu,menu_item,properties;

begin

  ODT.Data.Clear;

  data := ODT.Data.AddGroup('MenuData');

  

  arr := data.AddVarOfArrayType('Menus');

  menu := arr.AddItemOfClassType('Menu'); 

  menu.Name := 'Nom_de_mon_Menu';

  

  menu_item := menu.Items.AddItemOfClassType('MenuItem');

  menu_item.Index := 0;

  menu_item.Name := 'Ouvrir';





  menu.Properties('Props').Value.Parent := 'Georgette'; 

  menu.Properties('Props').Value.Prop := ['WndCaption','FullName','Visible'];  

  menu.Properties('Props').Value.Values := ['Nom_fenetre','Window.Truc.Machin.Bidule','True'];

  

  menu.Properties('Props').Value.Depth := 3;

                       

  EnableAllMethods(menu);  





end;