Tpanel con color

[carlos vargas]

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

[hmpaquito]

Un tip: Inténtalo con un brush.

Code: Select all  Expand view

oPanel:SetBrush(oBrush)

[Antonio Linares]

Carlos,

Prueba a modificar el método EraseBkGnd() de la Clase TPanel así:

Code: Select all  Expand view

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

[horacio]

Este código funciona

Code: Select all  Expand view

#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 0
 

Saludos

[carlos vargas]

Funciona, gracias horacio.
Antonio, no hubo necesidad del cambio en la clase.

[Antonio Linares]

muy bien

gracias Horacio

[James Bott]

Carlos,

I have been using oPanel:setColor() for years without problem. Here is a working example.

Code: Select all  Expand view

#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

James