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

Board index FiveWin para Harbour/xHarbour Me estoy volviendo loco con las Transparencias.....

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Me estoy volviendo loco con las Transparencias.....
Posted: Wed Mar 08, 2006 05: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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Me estoy volviendo loco con las Transparencias.....
Posted: Sat Jul 25, 2020 01: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ǝ

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Me estoy volviendo loco con las Transparencias.....
Posted: Sat Jul 25, 2020 01: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

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: Me estoy volviendo loco con las Transparencias.....
Posted: Tue Jul 28, 2020 02:48 PM

Hola Jose.

Debes poner el grupo como primer elemento del recurso.

Code (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion