Clase TFolder en FWH 2.7

[fespinoza]

Al migrar a FWH un dialogo que tengo con un Folder con 4 pestañas, no me funciona bien; solo aparece el primer dialogo y no se muestran las pestañas para visualizar los otros 3 dialogos; esto funcionaba muy ben en FW.

El código que uso es el siguiente:

DEFINE DIALOG oDlgALIN RESOURCE "ALINEACION" OF VENT
REDEFINE FOLDER oFld ID 101 OF oDlgALIN ;
PROMPTS EQLOC, EQVIS, "Penales errados", "Observaciones" ;
DIALOGS "ALIN_LOCAL", "ALIN_VISITA", "ALIN_PENERR", "ALIN_OBSER"
* Datos del equipo local
REDEFINE GROUP oGrp ID 8101 OF oFld:aDialogs[1]
REDEFINE RADIO oRad[1] VAR TDIL ID 8102,8103 OF oFld:aDialogs[1] ON CHANGE CambioRad(GLOC,1)
REDEFINE LISTBOX oLbx[1] VAR JSEL ITEMS LOC ID 8105 OF oFld:aDialogs[1] ON DBLCLICK {|| IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN))} UPDATE
REDEFINE BUTTON oBut[1] ID 8106 OF oFld:aDialogs[1] MESSAGE "Selecciona otro jugador" ACTION IF(OtroJugad(1,oDlgALIN,1),IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN)),)
REDEFINE BUTTON oBut[2] ID 8107 OF oFld:aDialogs[1] MESSAGE "Ingresa jugador debutante" ACTION IF(NombreDeb(oDlgALIN,1,1),IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN)),)

Y continúa ....

Alguna idea, sobre en que estoy fallando, o hay que poner algo adicional en FWH.

Fernnado Espinoza

[ADBLANCO]

EDITA TU ARCHIVO DE RECURSOS Y SUSTITUYE EN LOS CONTROLES TFOLDER POR "SYSTABCONTROL32"

POR EJEMPLO:

CONTROL "TFolder", 501, "SYSTABCONTROL32", 0 | WS_CHILD | WS_VISIBLE, 0, 81, 399, 148

ESTE ES UN 'DETALLITO' QUE ME ENCONTRÉ CUANDO MIGRÉ HACIA LAS NUEVAS VERSIONES DE FIVEWIN

Felicidad, Paz, Prosperidad y Salud
Angel Blanco
Venezuela