Hi Kevin;

  My STD Framework has had this feature implemented in its base ancestor window for over a decade now. You can download the Order Entry Demo App & check out how it works.

   If you like the implementation, please feel free to use my code as the framework is free & open source. HTH

https://chrispollach.blogspot.com/2023/10/2023r2.html

Regards .... Chris. 

Hi, Kevin -

What a coincidence! I'm getting extremely close to finishing a new example PB application to be submitted in CodeXchange that already contains an ancestor window such as what you have described. As Rene has outlined, it uses the pbm_getminmaxinfo event to enforce an optional minimum and/or maximum window size percentage (100% being the window's designed size) and this feature is very easy to use. For the resizing functionality, the example app uses a stand-alone version of the window resize service taken from the PowerBuilder Foundation Class libraries.

It is a national holiday today here in the U.S., so I'm spending most of the day with family, but I anticipate finishing the new example application (named "Grid Heading" by the end of this weekend and submitting it for review and subsequent publishing. Be on the lookout for it, if you are interested.

Best regards, John

Hi Kevin,

you can't change the window size by changing the arguments of resize event. This argument are just to inform about the new size but not to change it.

You could try to resize the window by calling the Resize function (maybe you have to Post the function call!) to change the window size from the event. I've never tried this.

Another way is to use Windows API.

// external functions
subroutine GetMinMaxInfo (ref s_minmaxinfo d, long s, long l) library 'kernel32.dll' alias for "RtlMoveMemory;Ansi" 
subroutine SetMinMaxInfo (long d, s_minmaxinfo s, long l) library 'kernel32.dll' alias for "RtlMoveMemory;Ansi"


// structures
global type s_point from structure
	long		x
	long		y
end type

global type s_minmaxinfo from structure
	s_point		ptreserved
	s_point		ptmaxsize
	s_point		ptmaxposition
	s_point		ptmintracksize
	s_point		ptmaxtracksize
end type



// use it (here to set the min size)
// event getminmaxinfo with event ID pbm_getminmaxinfo in the window

//Populate the structure
GetMinMaxInfo(lstr_MinMaxInfo, al_minmaxinfo, 40)
	
//Determine the minimum size of the window (the original size)
lstr_MinMaxInfo.ptMinTrackSize.x = UnitsToPixels (il_resizeminwidth, XUnitsToPixels!)
lstr_MinMaxInfo.ptMinTrackSize.y = UnitsToPixels (il_resizeminheight, YUnitsToPixels!)
	
//Now set the Min/Max info
SetMinMaxInfo (al_minmaxinfo, lstr_MinMaxInfo, 40)