xBrowse horizontal and vertical lines colors

[Maurilio Viana]

Hi!

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

Regards,
Maurilio

[Antonio Linares]

Maurilio,

Class TXBrowse uses three pens to draw the lines:

Code: Select all  Expand view

   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

[Maurilio Viana]

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

Regards!
Maurilio