DBLCLICK en TCALeNDAR no funciona

[Antonio Linares]

José Luis,

Nosotros usamos bcc7 también y funciona ok

Te envío por email las libs de FWH más recientes

[José Luis Sánchez]

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  RUN

  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  RUN

  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,

[José Luis Sánchez]

Creo que el error que estaba teniendo debería venir de algún .ch que tengo en ese programa en concreto que machacaba el original de FWH, voy a investigar a ver si encuentro algo.
Saludos,

[karinha]

Creo que el error que estaba teniendo debería venir de algún .ch que tengo en ese programa en concreto que machacaba el original de FWH, voy a investigar a ver si encuentro algo.
Saludos,

creo que no. con FWH1905, tú ejemplo también no funciona el doble click.

Regards, saludos.

[Antonio Linares]

José Luis,

Creo que es tan simple como cambiar esto:

DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }

por

DBLCLICK ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() )



gracias por tu feedback

[karinha]

José Luis,

Creo que es tan simple como cambiar esto:

DBLCLICK {|| ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() ) }

por

DBLCLICK ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() )



gracias por tu feedback

Maestro Antonio, tampoco funciona. El problema es que DOBLE CLICK() no activa ninguna acción.

Gracias.

Regards, saludos.

[Antonio Linares]

Querido Joao,

[ DBLCLICK <bLDblClick> ] se preprocesa en [\{|Self| <bLDblClick>\}] por eso no podemos pasarle un bloque de código ya que el preprocesador crea el bloque de código.

Con los últimos cambios pienso que puede que le funcione bien a Jose Luis

[karinha]

Querido Joao,

[ DBLCLICK <bLDblClick> ] se preprocesa en [\{|Self| <bLDblClick>\}] por eso no podemos pasarle un bloque de código ya que el preprocesador crea el bloque de código.

Con los últimos cambios pienso que puede que le funcione bien a Jose Luis

Bien, amado maestro. Pero hubo un error, lo hubo. jajajajajajajaja broma, broma.

Regards, saludos.

[José Luis Sánchez]

Antonio,

Code: Select all  Expand view  RUN

  REDEFINE CALENDAR oCalendar VAR dFecha ;
      ID 11 OF oDlg DBLCLICK ( MsgInfo('Dobleclick'), lOk := .T., oDlg:End() )

funciona correctamente.
Muchas gracias otra vez