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