Me estoy volviendo loco con las Transparencias.....
Posted: Wed Mar 08, 2006 5:15 pm
No digo que sean bugs, quizá el bug esté en mi cerebro, pero se me ha complicado enormemente lo de las transparencias, por una parte no puedo hacer un page transparente, no obstante puedo asignarle un brush y aunque queda como un parche, está mas o menos potable.
Pero: ahora tengo un problema cuando uso un grupo.
Tengo un block de codigo que arma la dialog hija de la page que les decía
dependiendo de cual sea la base en uso (el armado de la dialog está en una función denominada "D_"+Nombre Db...
mascara:=&("{|oDbf, oPage|"+"D_" + UPPER(cNom_dbf) + "(oDbf, oPage)}") //ejecuta la función que pone la máscara que debe llamarse "D_" + el nombre de la base de datos.
Eval(mascara,oDbf,oPage) //carga máscara de ingreso
oPage:aDialogs[1]:aControls[1]:SetFocus()
Ahora supongamos que la base es MOTIVOS
FUNCTION D_Motivos( oDbf, oPage)
LOCAL oGrp, oSayp, oGetp
REDEFINE GROUP oGrp PROMPT "Motivos de Decomiso" ID 102 OF oPage:aDialogs[1] TRANSPARENT
REDEFINE GET oGetp VAR oDbf[1]:Descrip ID 101 OF oPage:aDialogs[1] update
REDEFINE SAY oSayp PROMPT "Descripción:" ID 103 OF oPage:aDialogs[1] TRANSPARENT
RETURN nil
Con este codigo si pongo el Get dentro del group en el recurso (se cargan las dlgs desde una Dll) no lo veo queda transparente (cosa que no debería suceder, en cambio si muevo el grupo para que los elementos say y get queden en la dialog pero no dentro del grupo, el get se ve.
Por otra parte no logro con nada que el Say quede transparente, siempre lo veo Gris.
Me está volviendo loco!!!!
Estas rutinas funcionaban OK antes de intentar colocar transparencias y brush.
Por favor, si pueden aportar luz a mi ignorancia, estaré ampliamente agradecido.
Pero: ahora tengo un problema cuando uso un grupo.
Tengo un block de codigo que arma la dialog hija de la page que les decía
dependiendo de cual sea la base en uso (el armado de la dialog está en una función denominada "D_"+Nombre Db...
mascara:=&("{|oDbf, oPage|"+"D_" + UPPER(cNom_dbf) + "(oDbf, oPage)}") //ejecuta la función que pone la máscara que debe llamarse "D_" + el nombre de la base de datos.
Eval(mascara,oDbf,oPage) //carga máscara de ingreso
oPage:aDialogs[1]:aControls[1]:SetFocus()
Ahora supongamos que la base es MOTIVOS
FUNCTION D_Motivos( oDbf, oPage)
LOCAL oGrp, oSayp, oGetp
REDEFINE GROUP oGrp PROMPT "Motivos de Decomiso" ID 102 OF oPage:aDialogs[1] TRANSPARENT
REDEFINE GET oGetp VAR oDbf[1]:Descrip ID 101 OF oPage:aDialogs[1] update
REDEFINE SAY oSayp PROMPT "Descripción:" ID 103 OF oPage:aDialogs[1] TRANSPARENT
RETURN nil
Con este codigo si pongo el Get dentro del group en el recurso (se cargan las dlgs desde una Dll) no lo veo queda transparente (cosa que no debería suceder, en cambio si muevo el grupo para que los elementos say y get queden en la dialog pero no dentro del grupo, el get se ve.
Por otra parte no logro con nada que el Say quede transparente, siempre lo veo Gris.
Me está volviendo loco!!!!
Estas rutinas funcionaban OK antes de intentar colocar transparencias y brush.
Por favor, si pueden aportar luz a mi ignorancia, estaré ampliamente agradecido.
