say transparente en ventana

[quique]

¿Como puedo tener un say transparente en una ventana?

[Loren]

Con stsay:

Por ejemplo:

redefine stsay ocartelx1 prompt evecar1 id 7003 of oDialog COLOR CLR_BLACK

... y para refrescar... debes ocultar y mostrar:
ocartelx1:hide() ; ocartelx1:show()

... y listo...

Un saludo.
LORENZO

[Silvio]

you write this

oWnd:bPainted = { || oWnd:Say( 8, 987, "Appointment Manager",,, oFont, .T., .T. ) }

[quique]

Loren: gracias, pero simplemente no funcionó, ni siquiera se ve el texto, no se si tenga algo que ver que la ventana donde quiero pintarlo es un objeto SAY, aunque también hay otro inconveniente, necesito un objeto SAY porque necesito manipularlo.

Silvio: ¿podrías decirme donde puedo conseguir esa clase?

[Silvio]

Wich class ?
you must make an paint of the window class and then you can say a say transparent

[quique]

Traté de estas maneras

Code: Select all  Expand view  RUN

   @ 0, 0 say ::oPagina prompt "quique" color 0,0xD5D2D2 of ::oWnd size 10000, 10000 pixel
   ::oPagina:bPainted := { || ::oPagina:Say( 50, 50, "Appointment Manager",,, ::oPagina:oFont, .T., .T. ) }


Code: Select all  Expand view  RUN

   @ 0, 0 say ::oPagina prompt "quique" color 0,0xD5D2D2 of ::oWnd size 10000, 10000 pixel
   ::oPagina:bPainted := { || ::oPagina:Say( 50, 50, "Appointment Manager", 0, 0xFFFFFF, ::oPagina:oFont, .T., .T. ) }


Code: Select all  Expand view  RUN

   @ 0, 0 say ::oPagina prompt "quique" color 0,0xD5D2D2 of ::oWnd size 10000, 10000 pixel
   ::oPagina:bPainted := { || ::oPagina:Say( 50, 50, "Appointment Manager",,, ::oPagina:oFont, .T., /*.T.*/ ) }


Ninguno muestra "Appointment Manager"

[Silvio]

Dear AMigos,

YOU MUST REPAINT THE OBJECT WINDOW NOT THE OBJ SAY (oPagina)

[quique]

Listo, gracias, ahora tengo algunos problemas:

¿como puedo borrar un texto?
¿hay manera de detectar los movimientos del ratón sobre el texto?

[Silvio]

yes but you must create a class
see rollover on btnbmp class

[JmGarcia]

Yo uso esto:

Code: Select all  Expand view  RUN

oWnd:GetDC()                                // Se pide "permiso" a la ventana/dialogo
SetBkMode(oWnd:hDC,1)                       // Se especifica trasparente
TextOut(oWnd:hDC,15,10,"Texto trasparente") // Se pinta
oWnd:ReleaseDC()                            // Se devuelve el control

Siendo oWnd el handle de la ventana o dialogo.

Saludos.

[quique]

Gracias, ya vi que también es una buena opción, también ya vi que la opción de silvio no necesariamente tiene que ser llamada en bPainted, personalmente me inclino mas por la opción de silvio, ya que solo utiliza una línea y puedo seleccionar el font, pero ahora el problema que tengo con ambas es que necesito poder controlarlas como controles, y que se borran al mover algo sobre los textos

[ruben Dario]

¿Como puedo tener un say transparente en una ventana?

Yo la hago asi y me funciona

REDEFINE SAY oSay ID 201 OF oDlg01 FONT oFnt01 ;oSay:lTransparent = .T.

[quique]

El problema con esa manera es que el fondo del say de arriba oculta el texto del say de abajo, si el de arriba es una cadena de espacios no se ve el texto del de abajo