Syntax

code

Property: ScriptLanguage: ScriptLanguages;

Description

Gets or Sets the ScriptLanguage attribute for this property.
 

  • slPascal = 0
  • slBasic = 1
  • slExecute = 2


  • Code Reference


    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

    30

    31

    32

    33

    34

    35

    36

    37

    38

    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');

     

        //PROPERTY SCRIPT FUNCTIONS

        //Create Fromula String

        formula :=  'ShowMessage(' + chr(39) + 'Script has been Executed' + chr(39) + ');';

        //Create Property

        prop := itm.NewProperty('Execute Script Example',formula,ptscript);

        //Set Script Type to method

        prop.ScriptType := stMethod;

        //Set Script Language to Pascal

        prop.ScriptLanguage := slPascal;

        //Execute Script

        prop.ExecuteScript('');

        //set to API group

        prop.Group := 'API EXAMPLES';

     

        //Show The Item Properties Box

        itm.Edit(true);

        //Free the planswift interface

        ps := nil;

    end