FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Refrescar Say Transparentes
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 04:46 PM

Compañeros:

Estoy utilizando la clase TSTSay Version 5.0 Sep/1/2004, de nuestro maestro
Manuel Mercado, para hacer SAYs transparentes.

redefine stsay ocartelx1 prompt c1 id 4010 of ocama

Me lo muestra perfectamente. El problema está al cambiar el valor de C1, que refresco pero la transparencia se pierde...

¿ Como consigo mantenerla ?
Mil gracias.
LORENZO

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 05:13 PM

ocartelx1:VarPut(NuevoSay)
ocartelx1:Refresh()

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 08:50 PM

Karina, gracias por contestar, pero sigue igual

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 09:00 PM
Loren wrote:Karina, gracias por contestar, pero sigue igual



Muestre via codigo, como estais haciendo.

Ejemplo:

La VARIABLE C1, no puede seer LOCAL, ó és ESTATICA ó MEMVAR.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 10:21 PM

karina, aquí esta el codigo

Public c1:=""

c1=eventos->cartel1
define dialog ....
redefine bitmap oBmp resource 'CARTEL' ID 4008 OF ocama transparent
redefine stsay ocartelx1 prompt c1 id 4011 of ocama
redefine listbox ..... on change newsay()

...
activate dialog

funct newsay()
c1=eventos->cartel1
ocartelx1:cCaption(c1) && tambien probé con ocartelx1:varPut(c1)
ocartelx1:refresh()
return


Cuando lo muestra la 1º vez funciona perfecto... pero cuando se refresca pierde la transparencia.
Mil gracias.

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM

Re: Refrescar Say Transparentes

Posted: Thu Feb 21, 2008 10:53 PM
Hola Lorenzo:
Loren wrote:Me lo muestra perfectamente. El problema está al cambiar el valor de C1, que refresco pero la transparencia se pierde...
Haz lo siguiente:
ocartelx1:Hide()
C1 := "Nuevo Texto"
ocartelx1:Show()
Si lo haces desde una función, debes pasar C1 por referencia o Declararla en ámbito Private o Public

Saludos

Manuel Mercado

PD muy próxima la versión 6.0 (Pre-Release) de TSButton para FWH/(x)Harbour
manuelmercado at prodigy dot net dot mx
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Refrescar Say Transparentes

Posted: Fri Feb 22, 2008 06:10 PM

Mil gracias maestro.... funcionó de maravilla. Era exáctamente lo que necesitaba.

Mil gracias de nuevo.
LORENZO

Continue the discussion