Sucede en la versión 11.12, en la versión 11.11 funciona correctamente.
Ejemplo:
- Code: Select all Expand view
- #include "FiveWin.ch"
#include "xBrowse.ch"
function Main()
local oWnd
Define Window oWnd Title "Principal" Mdi Menu ps_Menu(oWnd)
Activate Window oWnd MAXIMIZED Valid MsgYesNo('Desea salir')
return nil
static func ps_Menu(oWnd)
local oMenu
Menu oMenu
MenuItem "Child" Action ps_Child(oWnd)
EndMenu
return oMenu
static proc ps_Child( oWnd )
local oChild
Define Window oChild MdiChild Title 'Child' of oWnd
Activate Window oChild On Init ps_Dialog(oChild)
return
static proc ps_Dialog( oChild )
local oDlg, aGet[8], aVar[8]
DEFINE DIALOG oDlg Resource "Dialogo" OF oChild Gradient { { 1, RGB(0, 255, 255), RGB(255, 255, 255) } }
aVar[1] := space(2)
Redefine Get aGet[1] Var aVar[1] Id 102 Update Message 'Indique el código del usuario' Of oDlg
aVar[2] := space(50)
Redefine Get aGet[2] Var aVar[2] Id 103 Update Message 'Indique el nombre del usuario' Of oDlg
aVar[3] := space(50)
Redefine Get aGet[3] Var aVar[3] Id 104 Update Message 'Indique el código de la empresa' Of oDlg
aVar[4] := space(50)
Redefine Get aGet[4] Var aVar[4] Id 105 Update Message 'Indique el nombre de la empresa' Of oDlg
ACTIVATE DIALOG oDlg NoWait On Init ps_Incrus( oChild, oDlg ) Valid .F.
return
static proc ps_Incrus(oChild, oDlg)
local nWidth, nHeight
oDlg:Move(0, 0,,, .T.)
nWidth := oDlg:nWidth + 7
nHeight := oDlg:nHeight + 33
oChild:SetSize(nWidth, nHeight, .T.)
oChild:Center()
return
Con Rc:
- Code: Select all Expand view
- DIALOGO DIALOG DISCARDABLE 0, 0, 332, 86
STYLE WS_CHILD|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
CONTROL "123", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 89, 31, 39, 12
CONTROL "123456", 103, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 136, 31, 146, 12
CONTROL "12", 104, "Edit", WS_BORDER|WS_TABSTOP, 89, 58, 32, 12
CONTROL "1", 105, "Edit", WS_BORDER|WS_TABSTOP, 136, 58, 105, 12
CONTROL "Usuario:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 50, 33, 31, 12
CONTROL "Empresa:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 50, 60, 31, 12
}
Uploaded with ImageShack.us
