Buenas noches
Sigo migrando poco a poco mi aplicación a 32 bits y una de los objetivos prioritarios para mi era utilizar en la medida de lo posible las clases incluidas en fivewin "standard", y no utilizar las que tengo yo modificadas para evitar la revisión de las mismas en función de las distintas versiones que voy adquiriendo.
Llevo tiempo dándole vueltas a este tema y no consigo encontrar la solucion.
Estoy utilizando cuadros de diálogos en DLL por lo que utilizo la claúsula RESIZE16 pero me encuentro con el siguiente problema: cuando utilizo diálogos en un folder dentro de una mdichild (no en otro diálogo) no consigo que dichos diálogos aparezcan con el tamaño correcto (RESIZE16).
Hay alguna solución sin modificar la clase FOLDER?
Qué se me está pasando por alto?
METHOD Default() CLASS TFolder
...
for nLen = 1 to Len( ::aDialogs )
oDlg = ::aDialogs[ nLen ]
#ifdef __CLIPPER__
ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT ( oDlg:Move( nHeight + 2, 3 ) ) ;
VALID .f. // to avoid exiting pressing Esc !!!
#else
if ::oWnd:IsKindOf( "TDIALOG" )
if ! ::oWnd:lResize16
ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT oDlg:Move( nHeight - 1, 1 ) ;
VALID .f. // to avoid exiting pressing Esc !!!
else
ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT oDlg:Move( nHeight - 1, 1 ) ;
VALID .f. RESIZE16 // to avoid exiting pressing Esc !!!
endif
else
ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT oDlg:Move( nHeight - 1, 1 ) ;
VALID .f. // to avoid exiting pressing Esc !!!
endif
#endif
Creo que el problema está ahí por lo que tendría que modificar la clase
Utilizo FWH1203
Un saludo y gracias anticipadas