FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to change color of line in Header and Footer? *Work Now*
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
How to change color of line in Header and Footer? *Work Now*
Posted: Mon Dec 21, 2020 10:16 AM
I try to change ::nHeadDividerStyle but it doesn't effect.


Thank you in advance for any help and ideas.
Dutch
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)
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: How to change color of line in Header and Footer?
Posted: Tue Dec 22, 2020 11:19 PM
Dutch,

You can paint lines with any size and colors inside header and footer
The problem : these lines are NOT the column-lines I think You want to use.



just search inside samples for these functions

DrawHorz( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen )
DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen )

DrawVert( hDC, 170, 2, ::nHeaderHeight - 1, hPen )

regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to change color of line in Header and Footer?
Posted: Wed Dec 23, 2020 07:31 AM
Dear Uwe,

Thank you so much but it is quite difficult to change all xbrowse in all screens.
ukoenig wrote:Dutch,

You can paint lines with any size and colors inside header and footer
The problem : these lines are NOT the column-lines I think You want to use.



just search inside samples for these functions

DrawHorz( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen )
DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen )

DrawVert( hDC, 170, 2, ::nHeaderHeight - 1, hPen )

regards
Uwe :-)
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)
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: How to change color of line in Header and Footer?
Posted: Wed Dec 23, 2020 08:56 AM
Dutch,

will that be to much work adding these needed two lines to a xBrowse :-)
Otherwise I can create the column-solution for vertical lines related to the col-positions
calling BrwHeader(,, and BrwFooter(...

:bPaintHeader := { | brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen | BrwHeader ;
( brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen ) }

:bPaintFooter := { | brw, hDC, aCols, nLast, nGridWidth, nBrwHeight, hWhitePen, hGrayPen | BrwFooter ;
( brw, hDC, aCols, nLast, nGridWidth, nBrwHeight, hWhitePen, hGrayPen ) }


best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to change color of line in Header and Footer?
Posted: Wed Dec 23, 2020 10:17 AM
Dear Uwe,

I'm interesting, how to change? How to make BrwHeader() ?

Thanks in advance.
ukoenig wrote:Dutch,

will that be to much work adding these needed two lines to a xBrowse :-)
Otherwise I can create the column-solution for vertical lines related to the col-positions
calling BrwHeader(,, and BrwFooter(...

:bPaintHeader := { | brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen | BrwHeader ;
( brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen ) }

:bPaintFooter := { | brw, hDC, aCols, nLast, nGridWidth, nBrwHeight, hWhitePen, hGrayPen | BrwFooter ;
( brw, hDC, aCols, nLast, nGridWidth, nBrwHeight, hWhitePen, hGrayPen ) }


best regards
Uwe :-)
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)
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: How to change color of line in Header and Footer?
Posted: Wed Dec 23, 2020 05:39 PM
Dear Dutch,

before spending to much time,
can You try adding this line :-)
It seems the gray header / footer-lines will be black

WITH OBJECT oBrw
..
..
:hBtnShadowPen := CreatePen( PS_SOLID, 1, CLR_BLACK )
..
..
:CreateFromCode()
END



best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: How to change color of line in Header and Footer?
Posted: Wed Dec 23, 2020 06:05 PM
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: How to change color of line in Header and Footer?
Posted: Thu Dec 24, 2020 09:39 AM
The result using this function.
Maybe the bottomline is still missing :-)

:hBtnShadowPen := CreatePen( PS_SOLID, 4, 255) // pensize = 4 and red lines



best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to change color of line in Header and Footer?
Posted: Thu Dec 24, 2020 01:49 PM
Dear Uwe & Navarro,

It works now, I use 3rd parameter of bClrHeader as below

oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ), CLR_HGRAY } }
restaurants near carolina beach
Thank you both of you.
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)
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to change color of line in Header and Footer? *Work Now*
Posted: Fri Dec 25, 2020 04:47 PM
oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ), CLR_HGRAY } }


Right.
Regards



G. N. Rao.

Hyderabad, India
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: How to change color of line in Header and Footer? *Work Now*
Posted: Fri Dec 25, 2020 05:49 PM
Dear Master Rao,

Thanks a lot.
nageswaragunupudi wrote:
oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ), CLR_HGRAY } }


Right.
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)

Continue the discussion