Syntax

code

Function: SystemHidden: Boolean;


Description

Returns True if the property is Hidden by the system.


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

procedure pshiddenlocked;

var

  ps: IPlanSwift;

  itm: IItem;

  i: Integer;

  prop: IPropertyObject;

  txt: string;

  sh: string;

  sl: string;

begin

  //Create Planswift Interface

  ps := coplanswift.create;

  //Get the selected Item

  itm := ps.SelectedItem;

  //Check if item is not empty

  if varisclear(itm) then begin

    showMessage('Please Select a Item');

    ps := nil;

    Exit;

  end;

  //Get the Parent Item

  itm := itm.parentItem;

  //Cycle through all properties and get system hidden and locked values

  for i := 0 to itm.PropertyCount - 1 do  begin

    prop := itm.PropertyItem[i];

    //if hidden return "True" else Return "False"

    if prop.SystemHidden then sh := 'True' else sh := 'False';

    //if Locked return "True" else Retrun "False

    if prop.SystemLocked then sl := 'True' else sl := 'False';

    //Set string to hold value

    txt := txt + Prop.name + ': System Hidden = ' + sl + ' System Locked: ' + sh + #13#10;

  end;

  //Show message with Results

  ShowMessage(txt);

  //Free Planswift Interface

  ps := nil;

end;