xBrowse horizontal and vertical lines colors

Maurilio Viana

Posts: 252

Joined: Tue Oct 25, 2005 02:48 PM

xBrowse horizontal and vertical lines colors
Posted: Mon Feb 12, 2007 03:55 PM

Hi!

Where I must change into xBrowse class to let us change the color of horizontal and/or vertical lines?

Regards,
Maurilio

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

xBrowse horizontal and vertical lines colors
Posted: Mon Feb 12, 2007 09:32 PM

Maurilio,

Class TXBrowse uses three pens to draw the lines:

Code: Select all Collapse

   DEFAULT ::hBtnShadowPen := CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) ),;
           ::hWhitePen     := CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNHIGHLIGHT ) )

   if ::hColPen != nil
      DeleteObject( ::hColPen )
      ::hColPen := nil
   endif

   nStyle := ::nColDividerStyle

   do case
   case nStyle == LINESTYLE_BLACK .or. nStyle == LINESTYLE_RAISED .or. nStyle == LINESTYLE_INSET
      ::hColPen := CreatePen( PS_SOLID, 1, CLR_BLACK )
   case nStyle == LINESTYLE_DARKGRAY
      ::hColPen := CreatePen( PS_SOLID, 1, CLR_GRAY )
   case nStyle == LINESTYLE_FORECOLOR
      ::hColPen := CreatePen( PS_SOLID, 1, ::nClrText )
   case nStyle == LINESTYLE_LIGHTGRAY
      ::hColPen := CreatePen( PS_SOLID, 1, CLR_LIGHTGRAY )
   end case

You may change the colors used there and/or look for LineTo() in the source code and use another pen of your own

regards, saludos

Antonio Linares
www.fivetechsoft.com

Maurilio Viana

Posts: 252

Joined: Tue Oct 25, 2005 02:48 PM

xBrowse horizontal and vertical lines colors
Posted: Tue Feb 13, 2007 10:40 AM

Thanks a lot, Antonio!!!
I changed the color and it worked fine.

Regards!
Maurilio

FiveTech Support Forums

Continue the discussion