PlanSwift

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;