ccPortalApplication.Objects

procedure ShowObjectPaths(RootObject);
begin
  ccScriptEngine.Log(ccLog_Info,'ShowObjectPaths');

  for i:=0 to RootObject.Count-1 do
  begin
    ccScriptEngine.Log(ccLog_Info,RootObject.Items[i].Path);
    ShowObjectPaths(RootObject.Items[i]);
  end;
end;

procedure ShowObjectProperties(Object);
begin
  ccScriptEngine.Log(ccLog_Info,'ShowObjectProperties');

  ccScriptEngine.Log(ccLog_Info,Object.Name);
  ccScriptEngine.Log(ccLog_Info,Object.Path);
  ccScriptEngine.Log(ccLog_Info,Object.C4Path);
  ccScriptEngine.Log(ccLog_Info,Object.Script);

  ccScriptEngine.Log(ccLog_Info,Object.Properties.Count);
  ccScriptEngine.Log(ccLog_Info,Object.Properties.Items['Testing']);
end;