Page Comparison

DEFINE PRIVATE VARIABLE oUltraTreeColumnResizeHelper AS UltraTreeColumnResizeHelper NO-UNDO.

/* Initialize resizing for NodeColumnSets */
oUltraTreeColumnResizeHelper = NEW UltraTreeColumnResizeHelper (THIS-OBJECT:ultraTree1,
																175,
																"PropertyLabel":U).

/*------------------------------------------------------------------------------
	Purpose: Displays the properties of the passed in object in the property grid
	Notes:
	@param poObject The object to visualize
	@param poTreeNodes The parent nodes collection to add the object properties to
------------------------------------------------------------------------------*/
METHOD PROTECTED VOID DisplayObjectProperties (poObject AS Progress.Lang.Object,
											   poTreeNodes AS TreeNodesCollection):
	&IF DEFINED (AblReflection) NE 0 &THEN
	DEFINE VARIABLE oProperty AS Progress.Reflect.Property NO-UNDO .
	DEFINE VARIABLE oProperties AS Progress.Reflect.Property NO-UNDO EXTENT .
	DEFINE VARIABLE i AS INTEGER NO-UNDO .
	DEFINE VARIABLE cType AS CHARACTER NO-UNDO .
	DEFINE VARIABLE cValue AS CHARACTER NO-UNDO .
	DEFINE VARIABLE cName AS CHARACTER NO-UNDO .
	DEFINE VARIABLE oValue AS Progress.Lang.Object NO-UNDO .
	DEFINE VARIABLE oNode AS UltraTreeNode NO-UNDO .
	DEFINE VARIABLE iIndex AS INTEGER NO-UNDO .
	DEFINE VARIABLE oItemNode AS UltraTreeNode NO-UNDO .
	
	IF VALID-OBJECT (poTreeNodes:ParentNode) THEN
		oUltraTreeColumnResizeHelper:InitializeColumnResizing (poTreeNodes:ParentNode:Level + 1).
	
	oProperties = poObject:GetClass ():GetProperties(Progress.Reflect.Flags:Public:SetFlag (Progress.Reflect.Flags:Instance)) .
	
	DO i = 1 TO EXTENT (oProperties):


		ASSIGN oProperty = oProperties [i]
			   cValue = ?
			   cName = oProperty:Name
				   oValue = ?.


		/* Skip Next-Sibling and Prev-Sibling */
		IF oProperty:Name = "Next-Sibling":U OR oProperty:Name = "Prev-Sibling":U THEN
			NEXT .


		IF VALID-OBJECT (oProperty:DataType) AND oProperty:DataType <> Progress.Reflect.DataType:Object THEN
			ASSIGN cType = STRING (oProperty:DataType) .
		ELSE
			ASSIGN cType = oProperty:DataTypeName .


		CASE oProperty:DataType:
			WHEN Progress.Reflect.DataType:Object THEN DO ON ERROR UNDO, THROW:


				oValue = oProperty:Get (poObject) .


				IF VALID-OBJECT (oValue) THEN
					ASSIGN cName = SUBSTITUTE ("&1 : &2":U, cName, oValue:GetClass():TypeName)
						   cValue = oValue:ToString () .
				ELSE
					cValue = "<invalid object reference>":U .


				CATCH err AS Progress.Lang.Error :
					cValue = SUBSTITUTE ("Error: &1":U, err:GetMessage (1)) .
				END CATCH.
			END .
			OTHERWISE DO ON ERROR UNDO, THROW:


				cValue = STRING (oProperty:Get (poObject)) .


				CATCH err AS Progress.Lang.Error :
					cValue = SUBSTITUTE ("Error: &1":U, err:GetMessage (1)) .
				END CATCH.
			END.
		END CASE .


		oNode = poTreeNodes:Add (GUID) .
		oNode:Cells ["PropertyLabel":U]:Value = cName .
		oNode:Cells ["PropertyValue":U]:Value = cValue .


		IF oProperty:DataTypeName > "":U AND VALID-OBJECT (oValue) THEN
			THIS-OBJECT:DisplayObjectProperties (oValue, oNode:Nodes) .


		/* Iterate IEnumerable, but not TableModel as that would dump all records */
		IF VALID-OBJECT (oValue) AND TYPE-OF (oValue, IEnumerable) AND NOT TYPE-OF (oValue, TableModel) THEN DO:
			ASSIGN iIndex = 1 .


			{Consultingwerk/foreachABL.i Progress.Lang.Object oItem in oValue}


				oItemNode = oNode:Nodes:Add (GUID) .


				IF NOT VALID-OBJECT (oItem) THEN DO:


					oItemNode:Cells ["PropertyLabel":U]:Value = STRING (iIndex) .


					oItemNode:Cells ["PropertyValue":U]:Value = "<invalid object reference>":U .
				END.
				ELSE DO:
					DO ON ERROR UNDO, THROW:


						ASSIGN cValue = oItem:ToString () .


						CATCH err AS Progress.Lang.Error :
							cValue = err:GetMessage (1) .
						END CATCH.
					END.


					oUltraTreeColumnResizeHelper:InitializeColumnResizing (oNode:Level + 1).


					oItemNode:Cells ["PropertyLabel":U]:Value = SUBSTITUTE ("&1 : &2":U, iIndex, oItem:GetClass():TypeName) .


					oItemNode:Cells ["PropertyValue":U]:Value = cValue .


					/* Avoid infinite recursion caused by objects referencing themselves (circular references) */
					IF oNode:Level < 25 THEN
 						THIS-OBJECT:DisplayObjectProperties (oItem, oItemNode:Nodes) .
				END.
			END.
		END.
	END.
	&ENDIF
END METHOD .