When I designed my application, the monitors were less than 800x600 resolution and now my windows are small in the resolution of current displays.
Is there any function that automatically increase the size of windows and fonts in these cases or have to adjust them one by one?
Thanks,
This function does not work for me.
The ideal would be something like the RESIZE16 that increases everything on the screen size, buttons, fonts, etc.
Oscar,
Isn't RESIZE16 fine ?
ACTIVATE WINDOW oWndChild ;
ON INIT ( oDlg:Move( 0,0, oWndchild:nWidth, oWndchild:nHeight, .T. ),oLbx:SetFocus(), ;
oWndChild:bResized := {|| _ReSizeUm( oDlg,oWndChild,oLbx) }, ;
oDlg:refresh(.t.),oLbx:SetFocus());
VALID ( IIF( !lOK, ExitPgm(.T., oRsFreq,oWndChild,@lOk ), .F. ))
RETURN( .T. )
//------------------------------
Static Func _ReSizeUm( oDlg,oWndChild,oLbx )
oDlg:SetSize( oWndChild:nWidth, oWndChild:nHeight, .t. ) // frame and dialog link
// dialog controls
oDlg:bResized = { | nSizeType, nWidth, nHeight | ResizeControls( nSizeType, nWidth, nHeight, oDlg ) }
Return(nil)
//-------------------------
Static Func ResizeControls( nSizeType, nWidth, nHeight, oDlg )
*xBrowse(oDlg:aControls)
if nSizeType = 0 //SIZE_MAXIMIZED
// 100 100
oDlg:aControls[ 1 ]:SetSize( nWidth - 140, nHeight - 68 ) //txbrowse
endif
Return(nil)