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');
    
    //DATA LIST EXAMPLE
    //Create Property for Data list
    prop := itm.NewProperty('Data List Example','Select an Item',ptText);
    //Set its list type to list
    prop.ListType := ltList;
    //Set the list property to point to a table
    prop.List := '\List\My Test Database\My Table 1';
    //Set the Result Column to the Data list Example property
    prop.ListResultColumn := 'Data List Example';
    //Show the Search bar in the list
    prop.ListShowSearch := true;
    //SHow Items that are visible in the dropdown
    prop.ListVisibleColumnsInDropdown := 'Name' + #13#10 + 'Description';
    //make columns show full with of dropdown
    prop.ListColumnAutoWidth := true;
    //Set and additonal properties
    prop.ListPropertiesToSet := 'Description' + #13#10 + 'Item #';
    //Add to API group
    prop.Group := 'API EXAMPLES';
 
    //Show The Item Properties Box
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;