Syntax

code

Procedure: IPlanswift.SetPropertyFormula(PropertyName, value: String);

Description

Sets the Items Proeprty Formula. (note) this will also create a new Property with the default a default Type as Text if the property does not exist.

Code Reference

  • 1. Create a New Forms Application
  • 2. Add a Planswift to the References (Planswift_Tlb)
  • 3. Add a button to the form
  • 4. copy code below to the onclick event of the button
  • 5. Compile and run

code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

procedure TForm1.psSetPropertyFormulaExample(Sender: TObject);

var

  ps: IPlanSwift;

  itm: IItem;

  messg: string;

begin

  ps := coPlanswift.Create;

  //Begin Formula Update;

  ps.BeginFormulaUpdate;               

  //Get The Current Selected Itm

  itm := ps.SelectedItem;

  //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

  itm.SetPropertyFormula('Description',messg);

  //Make Description Property Visible

  itm.GetProperty('Description').IsInput := True;

  //Show Advance Item Properties

  itm.Edit(true);

  //End Update on formula

  ps.EndFormulaUpdate;

  //free Planswift Interface

  ps := nil;

end;