Refrescar Say Transparentes

[Loren]

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

[karinha]

ocartelx1:VarPut(NuevoSay)
ocartelx1:Refresh()

[Loren]

Karina, gracias por contestar, pero sigue igual

[karinha]

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.

[Loren]

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.

[mmercado]

Hola Lorenzo:

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

Haz lo siguiente:

Code: Select all  Expand view  RUN

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

[Loren]

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

Mil gracias de nuevo.
LORENZO