Holas,
estoy definiendo algunos controles, y no se como puedo hacerlos transparentes, por ejemplo he probado que el control sea una simple linea, pero igual el area del control no que da transparente, el :ltransparent := .T. no tiene efecto, o tengo que hacerlo de otra manera.
El control lo estoy derivando de la clase Tcontrol
alguna idea?
saludos
Marcelo
Marcelo,
Estas usando temas de XP ?
Antonio,
no, no estoy utilizando temas de XP
saludos
Marcelo
Prueba a asignarle un brush "NULL" al control:
<oControl>:SetBrush( TBrush():New( "NULL" ) )
Eso hará que se dibuje transparente
#include "fivewin.ch"
FUNCTION main()
LOCAL oDlg, ofig1, ofig2, s1
DEFINE WINDOW oDlg FROM 10,10 TO 40,60
SetGridSize( 5, 5 )
@ 15,15 say s1 PROMPT "HOLA" of odlg COLOR CLR_RED SIZE 100,20 DESIGN
s1:lTransparent := .T.
ofig1 := tfig():new(1,1,25,25, oDlg )
ofig1:setBrush( tbrush():new("NULL"))
ofig2 := tfig():new(25,25,45,55, oDlg )
ofig2:setBrush( tbrush():new("NULL"))
ACTIVATE WINDOW oDLg
RETURN( NIL )
//----------------------------------------------------------------------------//
CLASS Tfig FROM TControl
CLASSDATA lRegistered AS LOGICAL
METHOD New( nRow, nCol, nHeight, nWidth, oWnd ) CONSTRUCTOR
METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0
METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg )
METHOD Paint()
ENDCLASS
//----------------------------------------------------------------------------//
METHOD New( nRow, nCol, nHeight, nWidth, oWnd ) CLASS tfig
::nTop := nRow
::nLeft := nCol
::nBottom := ::nTop + nHeight
::nRight := ::nLeft + nWidth
::oWnd := oWnd
::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPSIBLINGS )
::lCaptured := .F.
::lDrag := .T.
::lDesign := .T.
::lUpdate := .T.
::lRegistered := .f.
::ltransparent := .T.
::Register()
::Create()
::oWnd:AddControl( Self )
::CheckDots()
return SELF
//----------------------------------------------------------------------------//
METHOD Paint() CLASS tfig
LOCAL hBrush, hOldBrush
moveTo( ::hDC, 1, 1 )
LineTo( ::hDC, ::nWidth, ::nHeight )
return Super:Paint()
Antonio,
no me queda claro la idea de transparencia, si te das cuenta, el SAY no permite que se vea parte de la linea, asi mismo, cuando sobrepones las lineas, en funcion del orden de creacion claro esta, el area del control (linea) se sobrepone a la otra, en ese sentido no podria formar una cruz (+) con dos de estos controles, salvo que sus diemsiones sean de 1 pixel, habra la forma de hacerlo?, no se si esta clara mi pregunta.
Desde ya muchas gracias por tu tiempo
saludos
Marcelo
METHOD Paint() CLASS tfig
... copiar la imagen que hay debajo del control al hDC de este control...
moveTo( ::hDC, 1, 1 )
LineTo( ::hDC, ::nWidth, ::nHeight )
return nil#include "fivewin.ch"
FUNCTION main()
LOCAL oDlg, ofig1, ofig2, s1
DEFINE WINDOW oDlg FROM 10,10 TO 40,60 COLOR "W/G"
SetGridSize( 5, 5 )
@ 15,15 say s1 PROMPT "HOLA" of odlg COLOR CLR_RED SIZE 100,20 DESIGN
s1:lTransparent := .T.
ofig1 := tfig():new(1,1,25,25, oDlg )
ofig2 := tfig():new(25,25,45,55, oDlg )
ACTIVATE WINDOW oDLg
RETURN( NIL )
//----------------------------------------------------------------------------//
CLASS Tfig FROM TControl
CLASSDATA lRegistered AS LOGICAL
METHOD New( nRow, nCol, nHeight, nWidth, oWnd ) CONSTRUCTOR
METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0
METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg )
METHOD Paint()
METHOD EraseBkGnd() VIRTUAL
ENDCLASS
//----------------------------------------------------------------------------//
METHOD New( nRow, nCol, nHeight, nWidth, oWnd ) CLASS tfig
::nTop := nRow
::nLeft := nCol
::nBottom := ::nTop + nHeight
::nRight := ::nLeft + nWidth
::oWnd := oWnd
::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPSIBLINGS )
::lCaptured := .F.
::lDrag := .T.
::lDesign := .T.
::lUpdate := .T.
::lRegistered := .f.
// ::ltransparent := .T.
::Register()
::Create()
::oWnd:AddControl( Self )
::CheckDots()
return SELF
//----------------------------------------------------------------------------//
METHOD Paint() CLASS tfig
ParentImage( ::hWnd, ::hDC )
moveTo( ::hDC, 1, 1 )
LineTo( ::hDC, ::nWidth, ::nHeight )
return nil
//----------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( PARENTIMAGE ) // hControl, hDC
{
HWND hWnd = ( HWND ) hb_parnl( 1 );
HDC hDC = ( HDC ) hb_parnl( 2 );
HDC hDcParent = GetDCEx( GetParent( hWnd ), NULL, DCX_PARENTCLIP );
RECT rct;
POINT pt;
GetWindowRect( hWnd, &rct );
pt.y = rct.top;
pt.x = rct.left;
ScreenToClient( GetParent( hWnd ), &pt );
BitBlt( hDC, 0, 0, rct.right - rct.left, rct.bottom - rct.top, hDcParent,
pt.x, pt.y, SRCCOPY );
ReleaseDC( GetParent( hWnd ), hDcParent );
}
#pragma ENDDUMPAntonio,
gracias, por lo visto es mas complicado de lo que pense, mas aun cuando hay may de dos controles sobrepuestos, la solucion para este caso particular de figuras geometricas seria utilizar algo como hizo Paco Garcia tiempo atras, buscare el fuente que es para 16 bits
Muchas gracias por tu tiempo, sin embargo, le echo mano a tu ejemplo y veo que sale
un abrazo
Marcelo
Marcelo y Antonio:
¿ Y no seria mas facil hacerlo por el BKMode ?
En el proceso de pintado de controles, bastarÃa con cambiar el SetBkMode del contexto de dispositivo, por ejemplo:
hDc := oDlg:GetDC()
SetBkMode(hDc, 1) // no recuerdo si la transparencia es 0 o 1
Y a continuación pintar, con un TextOut() por ejemplo, se pintarÃa transparentado con el fondo
El caso es que creo que Marcelo quiere pintar DEPUES de hacer control, lo cual si que está complicado con el SAY de FiveWin, porque ese hereda del LABEL API de Windows, ignoro si el LABEL internamente cambia el BKMode, serÃa mas facil que se hiciera su propio SAY mandando llamar al BKmode haciendolo transparente y luego pintando el texto.
René,
Gracias por la sugerencia, pero no cambia la situación. El problema no es al pintar la lÃnea sino que el fondo que hay debajo del control (no de la lÃnea) sea visible.
Usando temas se consigue copiando el fondo del padre, que es lo mismo que hace la función en C que le he mostrado, pero por alguna causa, no lo está haciendo bien
Rene,
gracias por contestar, ya probe antes con el SetBkMode(hDc, 1) y todo lo demas que pude averiguar y por eso pregunte en el foro.
Actualmente tengo corriendo en 32 bits un paint que creo lo hizo Paco Garcia, ya que estoy con tiempito, lo que deseo hacer es un generador de codigo para la clase tprint, veremos que sale, aun falta mucho 
saludos
Marcelo