Property - ListShow1Level - 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');
 
    //TREE LIST EXAMPLE
    //Create Property for tree list
    prop := itm.NewProperty('Tree List Example','Select an item',ptText);
    //Set List Type to Tree List
    prop.ListType := ltTreeList;
    //Set the list to point to sample assemblies
    prop.List := '\Storages\Local\Templates\Assemblies\Sample Assemblies';
    //Set list to use FullPath
    prop.ListFromProperty := False;
    //Set Items to be shown in the list
    prop.ListVisibleColumnsInDropdown := 'Name' + #13#10 + 'Type';
    //Set additional properties in the list
    prop.ListPropertiesToSet := 'Name'+ #13#10 + 'Type';
    //To only show a certian item we would set this to the
    //type of the item we are looking for i.e Area,linear,count,etc...
    prop.ListShowOnlyTypes := '';
    //Returns the full path to the item we selected
    prop.ListReturnFullPath := True;
    //shows on 1 level at a time for faster loading
    prop.ListShow1Level := True;
    //Set the property Group
    prop.Group := 'API EXAMPLES';
 
    //Show The Item Properties Box
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;