Clase TFolder en FWH 2.7
Posted: Thu Dec 20, 2007 1:31 pm
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
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