Dialogos dentro de un Folder (Resize16)

Dialogos dentro de un Folder (Resize16)

Postby cnavarro » Tue Dec 04, 2012 9:27 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 57 guests