How to set Header and Footer TXbrowse:nColDividerStyle

[dutch]

Dear All,

I cannot define Header and Footer ::nColDividerStyle. I show different color from ::aCols:nColDividerStyle
This below is define for TXbrowse in the picture. How can I change Header and Footer?

Thanks in advance.

Code: Select all

    oBrw:lMultiSelect       := .F.
   oBrw:nMarqueeStyle      := MARQSTYLE_HIGHLROW
   oBrw:nColDividerStyle   := LINESTYLE_LIGHTGRAY
   oBrw:lHScroll           := .F.
   oBrw:lVScroll           := .T.
   oBrw:nStretchCol        := STRETCHCOL_LAST
   oBrw:lAllowRowSizing    := .F.
   oBrw:lColDividerComplete:= .T.

   oBrw:nRowDividerStyle   := LINESTYLE_NOLINES
   oBrw:nHeadDividerStyle  := LINESTYLE_NOLINES
   oBrw:nHeaderHeight      := 30
   oBrw:nRowHeight         := 28    
   oBrw:lFullGrid           := .T.
   oBrw:SetStyle( 2015 )
   
   oBrw:bClrStd                 := { ||{ FONTTHEME, nXBckGrd( oBrw ) }}
   oBrw:bClrSel            := oBrw:bClrStd // { ||{ CLR_WHITE, nRGB(  0, 123, 176 ) } } //   nRGB( 80, 80, 80 )
   oBrw:bClrSelFocus       := { ||{ CLR_WHITE, GetSysColor( 13 ) } } //   nRGB( 80, 80, 80 )

   oBrw:lDrawBorder         := .T.
   oBrw:nClrBorder          := CLR_HGRAY
   oBrw:lFlatStyle          := .T.

[RAMESHBABU]

Hi Mr.Dutch,

You can do it like this:

Code: Select all

ACTIVATE DIALOG oDlg ON INIT (oBrw:hColPen := CreatePen(PS_SOLID, oBrwr:nSizePen, CLR_HGRAY),;
                                                oBrw:hRowPen := CreatePen(PS_SOLID, oBrw:nSizePen, CLR_HGRAY),;
                                                oBrw:Paint())
 

-Ramesh Babu P

[dutch]

Dear Rameshbabu,

It doesn't change anything.

Thanks

Hi Mr.Dutch,

You can do it like this:

Code: Select all

ACTIVATE DIALOG oDlg ON INIT (oBrw:hColPen := CreatePen(PS_SOLID, oBrwr:nSizePen, CLR_HGRAY),;
                                                oBrw:hRowPen := CreatePen(PS_SOLID, oBrw:nSizePen, CLR_HGRAY),;
                                                oBrw:Paint())
 

-Ramesh Babu P