Tech Articles


Resizing a Response Window or User Object


Here is a technique you can use to resize a response window or userobject as needed. It makes use of the GetWindowLong and SetWindowLong Windows API methods. The oldest reference I found to this is from Eric Aling back in 2000.

In a nutshell, you are changing the border around the object to one which Windows allows to be resized. What's even nicer about this is the standard resize events are triggered so you can reposition/change objects within the window as well (PFC resize service for example). From Eric's original post:

"The Get function retrieves the complete definition of the window in 
a big long variable. All the bits in this long value describe the window. 
So there are bits for the type of border (which indicates if a window is 
resizable), menu, colors etc.etc. We can modify this long value, altering 
the design of the window. Using the SetWindowLong() we update the window with 
our specific modifications."

I used this in ancestor code of a userobject I use to create visible panels within the main window.

// Unicode declarations, used 'A' for ANSI
function long GetWindowLongW (long hWindow, integer nIndex) Library "user32.dll"
function long SetWindowLongW (long hWindow, integer nIndex, long dwNewLong) library "user32.dll"

// code in my post constructor event
n_cst_numerical lnv_num // PFC numeric service
long        ll_Styles
boolean        lb_Control

constant long    WS_THICKFRAME = 262144
constant long    WS_SYSMENU = 524288

ll_styles = GetWindowLongw(handle(THIS), -16)
if ll_styles <> 0 then

    ll_styles = lnv_num.of_BitWiseOr(ll_styles, WS_THICKFRAME)
// don't need control menu but leave this for reference 
//    if ab_Control then 
//        ll_styles = lnv_num.of_BitWiseOr(ll_styles, WS_SYSMENU)
//    end if

    SetWindowLongW(handle(THIS), -16, ll_styles)
end if
At first my UO cannot be resized.

Non resizable window

 

 

 

Now it can!

Resizable window

 

 

 

I've seen other references to these API calls for manipulating windows for other things but I have not investigated further.

Comments (0)
There are no comments posted here yet

Find Articles by Tag

Class Windows OS Elevate Conference Database Object DataWindow JSON Configuration DataType SQL Server Source Code Window Visual Studio PDF SqlModelMapper Source Control COM GhostScript Encoding Bug UI Themes TLS/SSL Database Painter Jenkins Charts PowerServer Mobile PowerBuilder Compiler NativePDF OAuth CrypterObject CI/CD HTTPClient PBNI Menu .NET Std Framework Error RichTextEdit Control Import JSON Azure Platform 64-bit Export JSON Model Debug PowerServer Web Resize PowerBuilder Filter OAuth 2.0 API OrcaScript SnapObjects RESTClient Text 32-bit Git UI Modernization DLL PostgreSQL TortoiseGit PDFlib WebBrowser SnapDevelop SVN Web API XML Performance TreeView PowerBuilder (Appeon) Deployment Export Import License InfoMaker WinAPI Open Source Database Profile Validation Transaction REST ODBC Testing Automated Testing Oracle SqlExecutor Branch & Merge Database Table Data PowerScript (PS) SDK Android Graph JSONParser Syntax CoderObject Interface Database Connection Debugger TFS File Trial Authentication IDE C# External Functions UI Sort PBDOM Linux OS Data Application Database Table MessageBox Expression Icon PFC SQL Database Table Schema Design OLE Service Authorization PostgreSQL ODBC driver RibbonBar DragDrop Mobile Variable PBVM Stored Procedure ActiveX Array .NET Assembly Debugging Web Service Proxy Installation Migration Windows 10 Icons RibbonBar Builder Excel Repository JSON DevOps Encryption Messagging Event Handling iOS BLOB Database Script JSONGenerator Event Event Handler .NET DataStore SOAP DataWindow Outlook