Antonio,
con las librerias que me has enviado el ejcmplo funciona correctamente y he probado con otros programas y también lo hace.
Pero sigo teniendo un programa en que el dobe click en el calendario no funciona, y es basicamente el único que mantengo. Hago algo tan simple como
- Code: Select all Expand view
REDEFINE CALENDAR oCalendar VAR dFecha ;
ID 11 OF oDlg DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }
y el MsgInfo() del DBLCLICK no funciona.
Pero se me ha ocurrido algo tan tonto como hacer:
- Code: Select all Expand view
REDEFINE CALENDAR oCalendar VAR dFecha ;
ID 11 OF oDlg // DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }
oCalendar:bLDblClick := {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }
y ¡¡me funciona!!
¿ Alguna explicación a esto ? ¿ No es extraño ?
Muchísimas gracias por tu ayuda
Saludos,