Estimados, como puedo asignar un color a un panel?
como este hereda de tcontrols intento usar oPanel:SetColor(CLR_BLACK, CLR_BLACK) y no me funciona, necesito que al inicio el tpanel se muetre en negro
METHOD EraseBkGnd( hDC ) CLASS TPanel
if ::oWnd != nil .and. IsAppThemed() .and. ;
Upper( ::oWnd:ClassName() ) $ "TFOLDER,TFOLDEREX,TREBAR,TGROUP,TPANEL"
DrawPBack( ::hWnd, hDC )
return 1
else
::PaintBack( hDC )
endif
return 1#include "fivewin.ch"
Static oWnd
Static oPnl
//----------------------------------------------------------------------------//
Function Main()
Define Window oWnd //Pixel
@ 10, 10 Panel oPnl Size 500, 500 Of oWnd
oPnl : SetColor( 0, 0 )
oPnl : nOpacity := 255
Activate Window oWnd Maximized
Return 0Funciona, gracias horacio.
Antonio, no hubo necesidad del cambio en la clase.
muy bien
gracias Horacio 
#include "fivewin.ch"
#include "colors.ch"
Function Main()
Local oWnd
Define window oWnd
oPanel:= TPanel():new()
oPanel:setColor(CLR_BLACK, CLR_BLACK)
oWnd:oClient:= oPanel
Activate window ownd
Return nil