How to set Header and Footer TXbrowse:nColDividerStyle

Board index FiveWin for Harbour/xHarbour How to set Header and Footer TXbrowse:nColDividerStyle

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

How to set Header and Footer TXbrowse:nColDividerStyle
Posted: Thu Oct 08, 2020 07:38 AM

Dear All,

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

Thanks in advance.

Code (fw): Select all Collapse

    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.

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

RAMESHBABU

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: How to set Header and Footer TXbrowse:nColDividerStyle
Posted: Fri Oct 09, 2020 01:53 AM

Hi Mr.Dutch,

You can do it like this:

Code (fw): Select all Collapse

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

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Re: How to set Header and Footer TXbrowse:nColDividerStyle
Posted: Fri Oct 09, 2020 02:57 PM

Dear Rameshbabu,

It doesn't change anything.

Thanks

RAMESHBABU wrote:Hi Mr.Dutch,

You can do it like this:

Code (fw): Select all Collapse

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

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

FiveTech Support Forums

Continue the discussion