powerbuilder resize 3

global type gf_resize from function_object
end type

forward prototypes
global function integer gf_resize (any variable_array, any constant_array)
end prototypes

global function integer gf_resize (any variable_array, any constant_array);/*
NAME:smaina
ISSUE:ZMES-317
DATE:18/08/15
*/
str_constant constants [] 
st_variable resizables []
constants =constant_array
resizables = variable_array
integer index_c,index_r 
/*
used to get all the graphical objects that are to remain at a relative similar position
as before resizing
*/
for index_c=1 to UpperBound(constants)
	choose case typeOf(constants[index_c].constant_ob )
		case CommandButton!
			CommandButton cb
			cb=constants[index_c].constant_ob
			cb.move(constants[index_c].x,constants[index_c].y)
		case CheckBox!
			CheckBox chb
			chb=constants[index_c].constant_ob
			chb.move(constants[index_c].x,constants[index_c].y)
	end choose
next
/*
used to get all the graphical objects that are to be resized
*/
for index_r=1 to UpperBound(resizables)
choose case typeOf(resizables[index_r].variable_ob)
	case DataWindow!
		DataWindow dw
		dw=resizables[index_r].variable_ob
		dw.resize(resizables[index_r].x,resizables[index_r].y)
		end choose
next

return 1
end function