FiveTech Software tech support forums

Posted: **Wed Nov 28, 2018 5:02 pm**

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

Posted: **Wed Nov 28, 2018 5:22 pm**

Un tip: Inténtalo con un brush.

Code: Select all

oPanel:SetBrush(oBrush)

Posted: **Wed Nov 28, 2018 5:28 pm**

Carlos,

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

Code: Select all

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

Posted: **Wed Nov 28, 2018 5:57 pm**

Este código funciona

Code: Select all

#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

Posted: **Wed Nov 28, 2018 10:39 pm**

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

Posted: **Thu Nov 29, 2018 8:27 am**

muy bien

gracias Horacio

Posted: **Thu Dec 13, 2018 1:22 am**

Carlos,

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

Code: Select all

#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

FiveTech Software tech support forums

Tpanel con color

Tpanel con color

Re: Tpanel con color

Re: Tpanel con color

Re: Tpanel con color

Re: Tpanel con color

Re: Tpanel con color

Re: Tpanel con color