topic-12712

Posts: 246

Joined: Sat Mar 03, 2007 08:42 PM

TPanel with User Color Setting
Posted: Mon Sep 15, 2008 09:13 AM

Antonio,

Can you change the TPanel class so it has a user definable color. I did it like this:

//----------------------------------------------------------------------------//

CLASS TPanel FROM TControl

   METHOD New( nTop, nLeft, nBottom, nRight, oWnd, nClrPane ) CONSTRUCTOR  //PM (Added nClrPane)

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, nClrPane ) CLASS TPanel //PM (Added nClrPane)

   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;
           oWnd := GetWndDefault()
   
   DEFAULT nClrPane := GetSysColor( COLOR_BTNFACE ) //PM

   ::nTop    = nTop
   ::nLeft   = nLeft
   ::nBottom = nBottom
   ::nRight  = nRight
   ::oWnd    = oWnd
   ::nStyle  = nOr( WS_CHILD, WS_VISIBLE )
   ::lDrag   = .f.
   ::nClrPane = nClrPane //PM

   #ifdef __XPP__
      DEFAULT ::lRegistered := .f.
   #endif

   ::Register()

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
   else
      ::oWnd:DefControl( Self )
   endif

return Self

Look for the //PM code for the changes I made.

Tx!

Patrick

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

TPanel with User Color Setting
Posted: Mon Sep 15, 2008 03:28 PM

Patrick,

Of course you can always set the color using setColor().

If we are going to add color to the parameters I suggest we add both foreground and background colors to be consistant with other classes.

Code: Select all Collapse

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, nClrText, nClrPane ) CLASS TPanel

   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,; 
           oWnd := GetWndDefault() 
    
   DEFAULT nClrText := GetSysColor( COLOR_WINDOWTEXT ) ;
      nClrPane := GetSysColor( COLOR_BTNFACE )
   ...
   ::nClrText := nClrText
   ::nClrPane := nClrPane

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Patrick Mast

Posts: 246

Joined: Sat Mar 03, 2007 08:42 PM

TPanel with User Color Setting
Posted: Mon Sep 15, 2008 03:35 PM

Hello James,