@ 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.*/ ) }
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
quique wrote:¿Como puedo tener un say transparente en una ventana?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 43 guests