No se porque en el siguiente ejemplo no puedo escribir dentro del get
Hasta la version 11.11 del 30/noviembre funcionaba perfectamente.
Ha sido ahora con la versión del 04/diciembre cuando ha dejado de funcionar.
Rc:
Sin embargo si quito la definición del botón ya me permite escribir ( "Redefine Button Id 1 OF oDlg Action oDlg:End()" )
Hasta la version 11.11 del 30/noviembre funcionaba perfectamente.
Ha sido ahora con la versión del 04/diciembre cuando ha dejado de funcionar.
#include "FiveWin.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 "Dialogo 1" Action ps_Dialog1(oWnd)
EndMenu
return oMenu
static proc ps_Dialog1( oWnd )
local oDlg, oGet, cVar
DEFINE DIALOG oDlg Title "Dialogo 1" Resource "MSGGET"
cVar := Space(20)
Redefine Get oGet Var cVar ID 102 OF oDlg UPDATE
Redefine Button Id 4 OF oDlg Action oDlg:End()
ACTIVATE DIALOG oDlg Centered
returnRc:
MSGGET DIALOGEX DISCARDABLE 6, 18, 243, 50
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU
CAPTION "Dialog"
FONT 8, "MS Sans Serif", 0, 0, 1
{
CONTROL "Editbox", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 10, 234, 12
CONTROL "Aceptar", 4, "Button", WS_TABSTOP, 99, 30, 45, 15
}Sin embargo si quito la definición del botón ya me permite escribir ( "Redefine Button Id 1 OF oDlg Action oDlg:End()" )
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
