procedure TForm1.psSetPropertyFormula(Sender: TObject);
var
ps: IPlanSwift;
itm: String;
messg: string;
begin
ps := coPlanswift.Create;
{Begin Formula Update;}
ps.BeginFormulaUpdate;
{Get The Current Selected Itm}
itm := ps.SelectedItem.GUID;
{if no Item Selected then Exit function}
if itm = nil then begin
showMessage('no Item Selected');
Exit;
end;
{Create a Description for the item}
messg := Inputbox('Enter A Description','Please enter a description','Your Description Here');
{Set Item Description}
ps.SetPropertyFormula(itm,'Description',messg);
{Make Description Property Visible}
ps.GetProperty(itm,'Description').IsInput := True;
{Show Advance Item Properties}
ps.GetItem(itm).Edit(True);
{End Update on formula}
ps.EndFormulaUpdate;
{free Planswift Interface}
ps := nil;
end; |