Me estoy volviendo loco con las Transparencias.....

Me estoy volviendo loco con las Transparencias.....

Postby jose_murugosa » 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.
User avatar
jose_murugosa
 
Posts: 1144
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Re: Me estoy volviendo loco con las Transparencias.....

Postby AIDA » Sat Jul 25, 2020 1:04 am

No eres el único con ese problema :|

no puedo poner gets transparentes en recursos :cry:

Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm

Re: Me estoy volviendo loco con las Transparencias.....

Postby karinha » Sat Jul 25, 2020 1:57 am

Holá, usted puede proporcionar un ejemplo simples, con los dialogos y fuentes para que yo pueda intentar probar? crea un .RAR ó ZIP, porfa.

Use el MegaUpload:

https://mega.nz/

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7213
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Me estoy volviendo loco con las Transparencias.....

Postby albeiroval » Tue Jul 28, 2020 2:48 pm

Hola Jose.

Debes poner el grupo como primer elemento del recurso.
Code: Select all  Expand view

RETENCION_IVA DIALOGEX DISCARDABLE 6, 18, 642, 258
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "MS Shell Dlg", 0, 0, 1
{
  CONTROL "", 4000, "Button", BS_GROUPBOX, 8, 8, 628, 212
  CONTROL "Tasa de Retencion :", 100, "Static", WS_GROUP, 16, 24, 96, 8
 
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
User avatar
albeiroval
 
Posts: 359
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

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