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
;