Setting the Size of Graph Windows Associated with Graph Layout Objects for More WYSIWYG Behavior

// To get WYSIWYG behavior in a page layout, the size of each graph object in the layout
// must match, or at least be close to, the size of the associated graph window.
//
// The SetLayoutGraphsWidthAndHeight procedure allows you to set the size of the graph
// window associated with each layout graph object in a particular layout window.
//
// For example, assume you have a layout containing some number of graph objects
// and you want to set the associated graph windows to be 6.5 inches by 6.5 inches
// without changing the top/left position of the graph windows on the screen.
// You can execute:
//	SetLayoutGraphsWidthAndHeight("Layout0", 72*6.5, 72*6.5)	// Convert from inches to points
// The factor of 72 converts from inches to points. To convert from centimeters
// to points, use 182.88.

// SetWindowWidthAndHeight(windowName, width, height)
// Sets a windows width and height without moving its top/left corner.
// Width and height are in points.
// Example:
//	SetWindowWidthAndHeight("Graph0_PCM", 72*6.54, 72*6.39)	// Convert from inches to points
Function SetWindowWidthAndHeight(windowName, width, height)
	String windowName		// e.g., "Graph0_PCM"
	Variable width, height	// In points
	
	GetWindow $windowName, wsize
	MoveWindow /W=$windowName  V_left, V_top, V_left+width, V_top+height
End

// SetLayoutGraphsWidthAndHeight(layoutName, width, height)
// Sets the width and height of the graph windows associated with each
// graph object in a layout.
// Width and height are in points.
// Example:
//	SetLayoutGraphsWidthAndHeight("Layout0", 72*6.54, 72*6.39)	// Convert from inches to points
Function SetLayoutGraphsWidthAndHeight(layoutName, width, height)
	String layoutName		// e.g., "Layout0"
	Variable width, height	// In points
		
	if (WinType(layoutName) != 3)
		Abort "Expected name of a layout window"
	endif
	
	Variable debug = 1
	
	if (debug)
		DoWindow /F $layoutName
	endif
	
	Variable numGraphs = 0

	String info
	Variable objectNumber = 0
	do
		// Get information about the next object in the layout
		String objectIdentifier
		sprintf objectIdentifier, "%d", objectNumber
		info = LayoutInfo(layoutName, objectIdentifier)
		if (strlen(info) == 0)
			break
		endif
		
		// Get the object's type
		String typeStr = StringByKey("TYPE", info)
		if (CmpStr(typeStr,"GRAPH") != 0)
			objectNumber += 1
			continue				// We want graphs only
		endif
		
		// Get the object's name which will be the graph name
		String name = StringByKey("NAME", info)
		
		if (debug)
			DoWindow /F $name
		endif
		
		// Set the graph window's width and height
		SetWindowWidthAndHeight("Graph0_PCM", width, height)
		
		numGraphs += 1
		objectNumber += 1
	while(1)
	
	Printf "Set the size of %d graphs\r", numGraphs
	
	return 0
End