Functions - System Locked - FD

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;