驴Como puedo tener un say transparente en una ventana?
Saludos
Quique
Quique
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour say transparente en ventana
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
you write this
oWnd:bPainted = { || oWnd:Say( 8, 987, "Appointment Manager",,, oFont, .T., .T. ) }
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
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?
Saludos
Quique
Quique
Wich class ?
you must make an paint of the window class and then you can say a say transparent
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Trat茅 de estas maneras
Ninguno muestra "Appointment Manager"
@ 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. ) } @ 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. ) } @ 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"
Saludos
Quique
Quique
Dear AMigos,
YOU MUST REPAINT THE OBJECT WINDOW NOT THE OBJ SAY (oPagina)
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Listo, gracias, ahora tengo algunos problemas:
驴como puedo borrar un texto?
驴hay manera de detectar los movimientos del rat贸n sobre el texto?
Saludos
Quique
Quique
yes but you must create a class
see rollover on btnbmp class
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Yo uso esto:
Siendo oWnd el handle de la ventana o dialogo.
Saludos.
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 controlSiendo oWnd el handle de la ventana o dialogo.
Saludos.
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
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
Saludos
Quique
Quique
quique wrote:驴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.
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
Saludos
Quique
Quique