METHOD New( nTop, nLeft, nBottom, nRight, cTitle, nStyle, oMenu, oWnd,;
oIcon, lVScroll, nClrFore, nClrBack, oCursor, oBrush,;
lPixel, lHScroll, nHelpId, cBorder, lSysMenu, lCaption,;
lMin, lMax, nMenuInfo, lUnicode ) CLASS TMdiChild
local lMaximize := .f.
DEFAULT cTitle := "MDI Child " + AllTrim( Str( Len( oWnd:oWndClient:aWnd ) + 1 ) ),;
lVScroll := .f., lHScroll := .f.,;
oWnd := GetWndFrame(),;
nClrFore := oWnd:oWndClient:nClrText,;
nClrBack := oWnd:oWndClient:nClrPane,;
nStyle := 0,;
cBorder := "SINGLE", lSysMenu := .t., lCaption := .t.,;
lMin := .t., lMax := .f., lPixel := .f., ;
lUnicode := FW_SetUnicode()
::lUnicode := lUnicode
if oWnd:lChildAutoSize .and. ;
If( Empty( oWnd:oWndClient:aWnd ), IsZoomed( oWnd:hWnd ), IsZoomed( oWnd:oWndClient:GetActive():hWnd ) )
lMaximize := .t.
endif
if nStyle == 0
IF lDesligaMax // := .T. // En: MENUPRINC.PRG
// Desliga: WS_MAXIMIZEBOX
lMax := .F. // MODIFICADO EN: 16/12/2021 - Joao.
ENDIF
nStyle = nOr( WS_CLIPCHILDREN, WS_VISIBLE, ;
If( cBorder == "NONE", 0, 0 ),;
If( cBorder == "SINGLE", WS_THICKFRAME, 0 ),;
If( lCaption, WS_CAPTION, 0 ),;
If( lSysMenu .and. lCaption, WS_SYSMENU, 0 ),;
If( lMin .and. lCaption, WS_MINIMIZEBOX, 0 ),;
If( lMax .and. lCaption, WS_MAXIMIZEBOX, 0 ),;
If( lVScroll, WS_VSCROLL, 0 ),;
If( lHScroll, WS_HSCROLL, 0 ),;
If( lMaximize, WS_MAXIMIZE, 0 ) )
endif
::nTop = If( nTop != nil, nTop * If( ! lPixel, MDIC_CHARPIX_H, 1 ), CW_USEDEFAULT ) // 16
::nLeft = If( nLeft != nil, nLeft * If( ! lPixel, MDIC_CHARPIX_W, 1 ), CW_USEDEFAULT ) // 8
::nBottom = If( nBottom != nil, nBottom * If( ! lPixel, MDIC_CHARPIX_H, 1 ), CW_USEDEFAULT ) // 16
::nRight = If( nRight != nil, nRight * If( ! lPixel, MDIC_CHARPIX_W, 1 ), CW_USEDEFAULT ) // 8
::oWndClient = oWnd:oWndClient
::oWnd = oWnd
::nStyle = nStyle
::oIcon = oIcon
::lVisible = .t.
::aControls = {}
::nHelpId = nHelpId
::cCaption = cTitle
::lKeepMenu = .f.
::nMenuInfo = nMenuInfo
if ValType( oIcon ) == "C"
if File( oIcon )
DEFINE ICON oIcon FILENAME oIcon
else
DEFINE ICON oIcon RESOURCE oIcon
endif
::oIcon = oIcon
else // MODIFICADO EM: 17/12/2021 - Joao
DEFINE ICON oIcon NAME "ICONE01" // EM IMAGENS.RES
::oIcon = oIcon
endif
::oCursor = oCursor