nColorPane

[zeasoftware]

Alguien sabe y propdria compartir con un servidor, como hacer que un TBevel
u otro control tenga el color que toma el TFolder?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[jfgimenez]

Ramón,
> Alguien sabe y propdria compartir con un servidor, como hacer que un
> TBevel u otro control tenga el color que toma el TFolder?
Añade esto a tu programa:
//---------------------------------------------------------- --------------------
CLASS TBevel FROM XBevel
METHOD WMPaint()
ENDCLASS
//---------------------------------------------------------- --------------------
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
XA_FUNC_STATIC( TBEVEL_WMPAINT )
{
PHB_ITEM Self = hb_stackSelfItem();
HWND hWnd = GetHandleOf( Self );
HTHEME hTheme = OpenThemeData( hWnd, L"Tab" );
CONTROLPAINT cp;
RECT rect;
if ( XA_ControlBeginPaint( Self, hWnd, &cp, (HDC) hb_parnl( 1 ) ) )
{
GetClientRect( hWnd, &rect );
if( hTheme )
{
DrawThemeBackground( hTheme, cp.hDC, TABP_BODY, 0, &rect, NULL );
CloseThemeData( hTheme );
}
else
XA_DrawControlBackground( Self, cp.hDC, &rect );
}
hb_retnl( XA_ControlEndPaint( Self, hWnd, &cp ) );
}
#pragma ENDDUMP
//---------------------------------------------------------- --------------------
--
Un saludo,
José F. Giménez
http://www.xailer.com

[zeasoftware]

Excelente mil gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

te molesto con otra duda,
por que un tgroupbox no toma el color del tbevel?
anexo imagen.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/


Attached files

[jfgimenez]

Ramón,
> te molesto con otra duda,
> por que un tgroupbox no toma el color del tbevel?
Añade esta línea a la declaración de la clase TBevel:
METHOD WMPrintClient() EXTERN TBevel_WMPaint()
--
Un saludo,
José F. Giménez
http://www.xailer.com