GridTester();
function GridTester()
{
	// 
	// A demonstration of the Grid Control on a Custom Property Set.
	// Controls on the Property Page demonstrate the OM API that 
	// can be used to change the values and even size of the Grid Control
	// based on Property Page Logic code.
	//
	var oPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "GridTester" ) ;
	var oGridParam = oPSet.AddGridParameter( "TestGrid" ) ;
	// Set up some initial size
	oGridParam.Value.RowCount = 3 ;
	oGridParam.Value.ColumnCount = 2 ;
	// Add the Edit boxes and other controls that will
	// be used to get information from the user
	oPSet.AddParameter3( "DimRows", siInt2, 3,null,null,false ) ;
	oPSet.AddParameter3( "DimCols", siInt2, 2,null,null,false ) ;
	oPSet.AddParameter3( "CellRow", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "CellCol", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "CellValue", siString, "New Value" ) ;
	oPSet.AddParameter3( "RowToChange", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "RowValue", siString, "New Value" ) ;
	oPSet.AddParameter3( "ColToChange", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "ColValue", siString, "New Value" ) ;
	oPSet.AddParameter3( "RowLabelToChange", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "RowLabel", siString, "New Row Label" ) ;
	oPSet.AddParameter3( "ColLabelToChange", siInt2, 0,null,null,false ) ;
	oPSet.AddParameter3( "ColLabel", siString, "New Column Label" ) ;
	oPSet.AddParameter3( "Batch", siBool,false,null,null,false ) ;
	oPSet.AddParameter3( "ColHeaderMode", siInt2, 0,null,null,false) ;
	oPSet.AddParameter3( "RowHeaderMode", siInt2, 0,null,null,false) ;
	oPSet.AddParameter3( "Width", siInt4, 0,null,null,false ) ;
	oPSet.AddParameter3( "Height", siInt4, 0,null,null,false ) ;
	oPSet.AddParameter3( "ColWidths", siString, "45;30;50" ) ;
	oPSet.AddParameter3( "ROCols", siString, "0;1" ) ; // second column read-only be default
	// Organize the controls on the PPG
	var oLayout = oPSet.PPGLayout
	var oPPGItem = oLayout.AddItem( "TestGrid", "",siControlGrid ) ;
	oPPGItem.SetAttribute( "NoLabel", true  ) ;
	oLayout.AddGroup( "Change Contents Via OM" ) ;
		oLayout.AddGroup( "Dimensions" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "DimRows", "Rows", 50) ;
			AddNonSliderItem( oLayout, "DimCols", "Columns", 50) ;
			oLayout.AddButton( "DimUpdate", "Update" ) ;
		oLayout.EndRow() ;
		oLayout.EndGroup();
		oLayout.AddGroup( "Cell value" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "CellRow", "Row", 75 ) ;
			AddNonSliderItem( oLayout, "CellCol", "Column", 75 ) ;
		oLayout.EndRow() ;
		oLayout.AddRow() ;		
			oLayout.AddItem( "CellValue", "Value" ) ;
			oLayout.AddButton( "CellValueUpdate", "Update" ) ;
		oLayout.EndRow() ;		
		oLayout.EndGroup();
		oLayout.AddGroup( "Row Values" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "RowToChange", "Row", 50 ) ;
			oLayout.AddItem( "RowValue", "Value" ) ;
			oLayout.AddButton( "RowUpdate", "Update" ) ;
		oLayout.EndRow() ;
		oLayout.EndGroup();
		oLayout.AddGroup( "Column Values" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "ColToChange", "Column", 50 ) ;
			oLayout.AddItem( "ColValue", "Value" ) ;
			oLayout.AddButton( "ColUpdate", "Update" ) ;
		oLayout.EndRow() ;
		oLayout.EndGroup();
		oLayout.AddGroup( "Row Label" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "RowLabelToChange", "Row", 50 ) ;
			oLayout.AddItem( "RowLabel", "Label" ) ;
			oLayout.AddButton( "RowLabelUpdate", "Update" ) ;
		oLayout.EndRow() ;
		oLayout.EndGroup();
		oLayout.AddGroup( "Column Label" ) ;
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "ColLabelToChange", "Column", 50 ) ;
			oLayout.AddItem( "ColLabel", "Label" ) ;
			oLayout.AddButton( "ColLabelUpdate", "Update" ) ;
		oLayout.EndRow() ;
		oLayout.EndGroup();
		AddPushButton( oLayout, "Batch", "Batch Edit" ) ;
	oLayout.EndGroup();
	oLayout.AddGroup( "Change Layout" ) ;
		oLayout.AddRow() ;
			var headerModes = new Array( "Normal", 0, "None", 1, "Locked", 2) ;					
			var oItem = oLayout.AddEnumControl( "ColHeaderMode", headerModes ) ;
			oItem.SetAttribute( siUICX, 75 ) ;
			oItem = oLayout.AddEnumControl( "RowHeaderMode", headerModes ) ;
			oItem.SetAttribute( siUICX, 75 ) ;
		oLayout.EndRow();			
		oLayout.AddRow() ;
			AddNonSliderItem( oLayout, "Height", "Height",75 ) ;
			AddNonSliderItem( oLayout, "Width", "Width",75 ) ;
		oLayout.EndRow() ;
		oLayout.AddItem( "ColWidths" ) ;
		oLayout.AddItem( "ROCols", "Read Only Columns" ) ;
		oLayout.AddButton( "Refresh", "Full Refresh" ) ;
	oLayout.EndGroup();
	// Inject the event code
	oLayout.Language = "JScript" ;	
	oLayout.SetAttribute( "HelpFile", "www.yahoo.com" ) ;
	oLayout.SetAttribute( "LogicPrefix", "GridTester_" )	
	oLayout.Logic = GridTester_OnInit.toString() +	
			GridTester_TestGrid_OnChanged.toString() +	
			GridTester_DimUpdate_OnClicked.toString() +
			GridTester_CellValueUpdate_OnClicked.toString() +
			GridTester_RowUpdate_OnClicked.toString() +
			GridTester_ColUpdate_OnClicked.toString() +
			GridTester_RowLabelUpdate_OnClicked.toString() +
			GridTester_ColLabelUpdate_OnClicked.toString() +
			GridTester_Height_OnChanged.toString() +
			GridTester_Width_OnChanged.toString() +
			GridTester_Batch_OnChanged.toString() +
			GridTester_ColHeaderMode_OnChanged.toString() +
			GridTester_RowHeaderMode_OnChanged.toString() +
			GridTester_Refresh_OnClicked.toString() + 
			GridTester_ColWidths_OnChanged.toString() + 
			GridTester_ROCols_OnChanged.toString() ;
	InspectObj( oPSet ) ;
}
//Helper function to create a button rather than a check box
//for showing a boolean parameter
function AddPushButton( in_oLayout, in_ParamName, in_Label )
{
	var oPPGItem = in_oLayout.AddItem( in_ParamName, "", "dscontrol" ) ;
	oPPGItem.SetAttribute( "Caption", in_ParamName );
	oPPGItem.SetAttribute( "Class", "Button" );
	oPPGItem.SetAttribute( "CX", 200 );		
	oPPGItem.SetAttribute( "Style", 0x00001003 );//(BS_AUTOCHECKBOX|BS_PUSHLIKE)
	oPPGItem.SetAttribute( "NoLabel", true ) ;
}
// By default numeric params have a slider, but
// if we hide the slider the control takes up less horizontal space
function AddNonSliderItem( in_oLayout, in_strParamName, in_strLabel, in_width )
{
	var oPPGItem = in_oLayout.AddItem( in_strParamName, in_strLabel ) ;
	oPPGItem.SetAttribute( siUINoSlider, true ) ;
	// Set a small width
	oPPGItem.SetAttribute( siUICX, in_width ) ;
	oPPGItem.WidthPercentage = 20 ;
	oPPGItem.LabelPercentage = 20 ;
	oPPGItem.LabelMinPixels = 20 ;	
}
//Logic Code for GridTester
function GridTester_OnInit()
{
//Force the logic code to run for setting the Column Widths to the 
//default values
	GridTester_ColWidths_OnChanged()
	GridTester_ROCols_OnChanged()
}
function GridTester_TestGrid_OnChanged()
{
	// This is never called if the change to the grid
	// if provoked by changes to the grid caused
	// by the logic code itself.  It is only called
	// if the cell contents are changed manually or by
	// an external script that uses the Object Model.
	logmessage( "Callback called for contents of TestGrid changing" ) ;
	var oGridData = PPG.TestGrid.value ;
	//Update the dimensions items based on the current size
	PPG.DimRows.Value = oGridData.RowCount ;
	PPG.DimCols.Value = oGridData.ColumnCount ;
}
function GridTester_DimUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value ;
	//Bracket with BeginEdit/EndEdit 
	//so we only do a single update
	oGridData.BeginEdit() ;
	oGridData.RowCount = DimRows ;
	oGridData.ColumnCount = DimCols ;
	oGridData.EndEdit() ;
	Logmessage( "Calling GridData.RowCount = " + DimRows ) ;
	Logmessage( "Calling GridData.ColumnCount = " + DimCols ) ;
	// Notice that no call to PPG.Refresh is necessary
}
function GridTester_CellValueUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value ;
	oGridData.SetCell( 
				PPG.CellCol.Value, 
				PPG.CellRow.Value, 
				PPG.CellValue.Value ) ;
	Logmessage( "Calling GridData.SetCell" ) ;
}
function GridTester_RowUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value ;
	//All items in the row will have the same value
	var newValue = PPG.RowValue.Value ;
	var aRowValues = new Array( oGridData.ColumnCount ) ;
	for ( var i = 0 ; i < aRowValues.length ; i++ )
	{
		aRowValues[i] = newValue ;
	}
	oGridData.SetRowValues( PPG.RowToChange.Value, aRowValues ) ;
	Logmessage( "Calling GridData.SetRowValues" ) ;
}
function GridTester_ColUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value
	var newValue = PPG.ColValue.Value ;
	var aColValues = new Array( oGridData.RowCount ) ;
	for ( var i = 0 ; i < aColValues.length ; i++ )
	{
		aColValues[i] = newValue ;
	}
	oGridData.SetColumnValues( PPG.ColToChange.Value, aColValues ) ;
	Logmessage( "Calling GridData.SetColumnValues" ) ;
}
function GridTester_RowLabelUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value ;	
	oGridData.SetRowLabel( PPG.RowLabelToChange.Value, PPG.RowLabel ) ;
	Logmessage( "Calling GridData.SetRowLabel" ) ;
}
function GridTester_ColLabelUpdate_OnClicked()
{
	var oGridData = PPG.TestGrid.value ;
	oGridData.SetColumnLabel( PPG.ColLabelToChange.Value, PPG.ColLabel ) ;
	Logmessage( "Calling GridData.SetColumnLabel" ) ;
}
function GridTester_Batch_OnChanged()
{
	var oGridData = PPG.TestGrid.value ;
	// Demonstrate the ability to do multiple
	// updates without forcing a refresh
	if ( PPG.Batch.Value == 0 )
	{
		logmessage( "Calling GridData.EndEdit" ) ;
		oGridData.EndEdit() ;
	}
	else
	{
		// Button pushed in
		logmessage( "Calling GridData.BeginEdit" ) ;
		oGridData.BeginEdit() ;
	}
}
function GridTester_Refresh_OnClicked()
{
	// Does a complete refresh of the Property Page
	// Normal updates to the Grid should not require this
	PPG.Refresh() ;
	Logmessage( "Calling PPG.Refresh" ) ;
}
function GridTester_Height_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	if ( PPG.Height.Value != 0 ) 
	{
		oPPGItem.SetAttribute( "CY", PPG.Height.Value ) ;
	}
	else
	{
		// When no attribute is set control will resize to fit the data
		oPPGItem.SetAttribute( "CY", null ) ;
	}
	// Attribute changes don't appear until there is a complete refresh
	PPG.Refresh() ;
}
function GridTester_Width_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	if ( PPG.Width.Value != 0 ) 
	{
		oPPGItem.SetAttribute( "CX", PPG.Width.Value ) ;
	}
	else
	{
		oPPGItem.SetAttribute( "CX", null ) ;
	}
	PPG.Refresh() ;
}
function GridTester_ColWidths_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	if ( PPG.ColWidths.Value != "" )
	{
		oPPGItem.SetAttribute( "ColumnWidths", PPG.ColWidths.Value ) ;
	}
	else
	{
		oPPGItem.SetAttribute( "ColumnWidths", null ) ;
	}
	PPG.Refresh() ;	
}
function GridTester_ROCols_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	if ( PPG.ColWidths.Value != "" )
	{
		oPPGItem.SetAttribute( "ReadOnlyColumns", PPG.ROCols.Value ) ;
	}
	else
	{
		oPPGItem.SetAttribute( "ReadOnlyColumns", null ) ;
	}
	PPG.Refresh() ;	
}
function GridTester_ColHeaderMode_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	//Locked only makes sense if you set an explicit Height to the control
	oPPGItem.SetAttribute( "LockColumnHeader", PPG.ColHeaderMode.Value == 2 ) ;
	oPPGItem.SetAttribute( "HideColumnHeader", PPG.ColHeaderMode.Value == 1 ) ;
	PPG.Refresh()
	if ( PPG.ColHeaderMode.Value == 2 )
	{
		Logmessage( "Setting LockColumnHeader attribute on Layout" ) ;
	}
	else if (  PPG.ColHeaderMode.Value == 1 )
	{
		Logmessage( "Setting HideColumnHeader attribute on Layout" ) ;
	}
}
function GridTester_RowHeaderMode_OnChanged()
{
	var oLayout = PPG.PPGLayout
	var oPPGItem = oLayout.Item( "TestGrid" )
	oPPGItem.SetAttribute( "LockRowHeader", PPG.RowHeaderMode.Value == 2 ) ;
	oPPGItem.SetAttribute( "HideRowHeader", PPG.RowHeaderMode.Value == 1 ) ;
	PPG.Refresh()
	if ( PPG.RowHeaderMode.Value == 2 )
	{
		Logmessage( "Setting LockRowHeader attribute on Layout" ) ;
	}
	else if (  PPG.RowHeaderMode.Value == 1 )
	{
		Logmessage( "Setting HideRowHeader attribute on Layout" ) ;
	}
}

// Example of using GridData as a convenient way
// to deal with 2D arrays from JScript
//
// ClusterProperties are widely used in scripting
// and their data is represented as a 2D array.  E.g.
// there is a row for each component and each component
// has multiple values (e.g. RGBA or UVW) which
// are the column values.  Even a Weight map is represented
// this way, even though there is only 1 value per component
//
// JScript has no 2D support.  Normally it is necessary to 
// convert to a 1D array using the VBArray.toArray method.
// However if the data is transfered into a DataGrid object
// it is then possible to access the data via a more convenient
// API, for example Row by Row or setting values at a precise
// Row/Column coordinate.  This is demonstrated here:
var oGrid = ActiveSceneRoot.AddGeometry( "Grid", "MeshSurface" ) ;
oGrid.subdivu = 1 ;
oGrid.subdivv = 1 ;
SelectObj( oGrid ) ;
CreateVertexColorSupport(null, "Vertex_Color", null, null);
var oClusterProp = oGrid.ActivePrimitive.Geometry.Clusters(0).Properties( "Vertex_Color" ) ;
var oGridData = XSIFactory.CreateGridData()
// Example 1: Read the vertex color values
// By transfering into GridData.  
// There are 4 Columns - R,G,B, and A 
// and there is 1 Row for each vertex.
oGridData.Data = oClusterProp.Elements.Array
LogMessage( "Blue Component on Vertex 0: " + oGridData.GetCell( 2, 0 ) ) ;
LogMessage( "Red Component on Vertex 2: " + oGridData.GetCell( 0, 2 ) ) ;
// Example 2: Change the vertex color values
for ( var i = 0 ; i < oGridData.RowCount ; i++ )
{
	// Set RGBA value on each vertex
	oGridData.SetRowValues( i, Array( i * 0.10, 0.50, 0.75, 0.1 ) ) ;
}
// We MUST put the changed data back into the cluster property if we
// want our changes to take effect
oClusterProp.Elements.Array = oGridData.Data
// Example 3: Display the values in custom pset
var oPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ClusterPropContents" ) ;
var oParam1 = oPSet.AddGridParameter( "mygrid" ) ;
var oLayout = oPSet.PPGLayout
var oPPGItem = oLayout.AddItem( "mygrid", "",siControlGrid ) ;
oPPGItem.SetAttribute( "NoLabel", true  ) ;
//Copy data from our free floating 
//GridData object to the one on the Custom Property
var oGridDataOnPSet = oParam1.Value ;
oGridDataOnPSet.Data = oGridData.Data ;
// Set up labels so the user knows what the data is
oGridDataOnPSet.SetColumnLabel(0, "R" ) ;
oGridDataOnPSet.SetColumnLabel(1, "G" ) ;
oGridDataOnPSet.SetColumnLabel(2, "B" ) ;
oGridDataOnPSet.SetColumnLabel(3, "A" ) ;
for ( i = 0 ; i < oGridData.RowCount ; i++ )
{
	oGridDataOnPSet.SetRowLAbel( i, "Vertex " + i.toString() ) ;
}
// Now you can change the data by using the labels
// (this doesn't change the copy of the data inside oGridData)
oGridDataOnPSet.SetCell( "G", "Vertex 2", 0.99 ) ;
InspectObj( oPSet ) ;