Page Comparison

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');
 
   //User Hidden
    //Create a new Property
    prop := itm.NewProperty('User Hidden Example','Property Is Locked',ptText);
    //Set so it is hidden
    prop.UserHidden := true;
    //Show Message for user to show all properties
    ShowMessage('Select Show: All from the propertie editor tool bar to see hidden property');
                                                          
    //Show The Item Properties Box
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;