Nuevo FWH 18.07

[Antonio Linares]

viewtopic.php?f=16&t=36115

[nageswaragunupudi]

Please download revised build.

[Ariel]

Hola,

Los controles COMBOBOX, CHECKBOX ( y no se si otros tambien ), no evaluan el codeblock bWHEN cuando cambia en ejecucion. de momento lo he solucionado modificando control.prg (gracias a la ayuda de Cristobal), en el metodo :

METHOD ForWhen() CLASS TControl
/*
#ifdef REVN1807
::oContainerWnd:AEvalWhen()
#else
*/
::oWnd:AEvalWhen()
//#endif

El ambiente en que me sucede es : Ventana MDI - Ventana MDICHILD - DIALOG dentro de la MDICHILD con sus controles.
Comentando esas lineas funciona correctamente.

Saludos.

[Antonio Linares]

Ariel,

Muchas gracias por tu ayuda y tu paciencia en la resolución de este bug

[nageswaragunupudi]

Mr Ariel

Thank you very much for bringing this important bug to our notice.

Los controles COMBOBOX, CHECKBOX ( y no se si otros tambien ), no evaluan el codeblock bWHEN cuando cambia en ejecucion

This bug effects all other controls also in your situation.

de momento lo he solucionado modificando control.prg

Glad you adopted this workaround. A simpler and more straightforward workaround is to comment out the #define REVN1807 at line 4 of control.prg like this

Code: Select all  Expand view  RUN

// #define REVN1807
 

This is the purpose for which we provided this define.

El ambiente en que me sucede es : Ventana MDI - Ventana MDICHILD - DIALOG dentro de la MDICHILD con sus controles.
Comentando esas lineas funciona correctamente.

This bug affects not only dialogs set in mdichild windows but controls created directly in mdichild windows also. In other words, this bug affects all mdichild windows.

We extremely regret the inconvenience.

We have now fixed the bug finally.
We shall be glad if you can test the fix and confirm if it solves your issue.

Please take the original unmodified control.prg (without the above temporary change).

CORRECT FIX:
Please locate this at line 946:

Code: Select all  Expand view  RUN

      do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil
 

Please replace this line with

Code: Select all  Expand view  RUN

      do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. !::hContainerWnd:IsKindOf( "TMDICHILD" ) .and. ::hContainerWnd:oWnd != nil
 

We will highly appreciate your feedback.

[Ariel]

Mr Rao,

Tomando el control.prg original, NO funciona poniendo :
do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. !::hContainerWnd:IsKindOf( "TMDICHILD" ) .and. ::hContainerWnd:oWnd != nil
en linea 946.

Saludos.

[Ariel]

Mr. Rao,

alguna novedad sobre el tema???