Property - InheritAction - FD

var  
ps: IPlanSwift;
  itm: IItem;
  prop: IPropertyObject;
  est: IItem                
begin
 //Create planswift Interface
    ps := coplanswift.Create;
    //Get the Estimating Tab
    est := ps.Getitem('Job\Takeoff');
    //get Ps Property Example Item if exists
    itm := est.GetItem('PS Property Examples');
    //Delete It
    if not varisclear(itm) then begin
      ps.deleteItem(itm.guid);    
    end;
    //Create a new Item
    itm := est.newItem('Part','PS Property Examples');
     
    //INHERIT ACTION EXAPMLE INHERIT FORMULA
    //Create a new Property
    prop := itm.NewProperty('Inherit Action Example Formula','Inherited Formula',ptText);
    //Set Inherit Action to Store Formula
    prop.InheritAction := iaInheritFormula;
    //Set to API Group
    prop.Group := 'API EXAMPLES';
    //INHERIT ACTION EXAPMLE INHERIT RESULT
    //Create a new Property
    prop := itm.NewProperty('Inherit Action Example Result','100 + 200',ptNumber);
    //Set Inherit Action to Store Formula
    prop.InheritAction := iaInheritResult;
    //Set to API Group
    prop.Group := 'API EXAMPLES';
    //INHERIT ACTION EXAPMLE INHERIT NONE OR NORMAL
    //Create a new Property
    prop := itm.NewProperty('Inherit Action Example normal','100 + 200',ptNumber);
    //Set Inherit Action to Store Formula
    prop.InheritAction := iaNormal;
    //Set to API Group
    prop.Group := 'API EXAMPLES';
    //INHERIT ACTION EXAPMLE INHERIT FLATTEN
    //Create a new Property
    prop := itm.NewProperty('Inherit Action Example Flatten','100 + 200',ptNumber);
    //Set Inherit Action to Store Formula
    prop.InheritAction := iaFlatten;
    //Set to API Group
    prop.Group := 'API EXAMPLES';
    //INHERIT ACTION EXAPMLE INHERIT IGNORE
    //Create a new Property
    prop := itm.NewProperty('Inherit Action Example Ignore','100 + 200',ptNumber);
    //Set Inherit Action to Store Formula
    prop.InheritAction := iaIgnore;
    //Set to API Group
    prop.Group := 'API EXAMPLES';
 
    //Show The Item Properties Box
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;