// PlanSwift Code:
Result := '';
MyItem := PlanSwift.GetItem(ItemPath);
if not VarIsClear(MyItem) then
begin
Result := MyItem.Name;
end;
// FreshDesk code:
procedure TForm1.psCompileDenyWrite(Sender: TObject);
var
ps: IPlanSwift;
est: IItem;
itm: IItem;
prop: IPropertyObject;
begin
//Create the Planswift Interface
ps := coPlanswift.Create;
//Get the Takeoff item (Estimating Tab)
est := ps.GetItem('Job\Takeoff');
//Create a New Part Item
itm := est.NewItem('Part','Complie Read Write Deny Example');
//Create a new Example Property and set its type to text
prop := itm.NewProperty('Example Property','Hello World',ptText);
//Deny Compile Actions
prop.CompileDenyRead := True;
prop.CompileDenyWrite := True;
prop.CompileDenyOLE := True;
//Show Message Showing that the compile actions have been set to true
ShowMessage('Deny Read: ' + booltostr(prop.CompileDenyRead) + ' Deny Write: ' + booltostr(prop.CompileDenyWrite) + ' Deny OLE: ' + booltostr(prop.CompileDenyOLE));
itm.Edit(true);
ps := nil;
end; |