how can i change GRID Header Color
i found out
Code: Select all
Form_1.Grid_1.HeaderDYNAMICFORECOLOR( nCol ) := {|| aFColor[1] }
Form_1.Grid_1.HeaderDYNAMICBACKCOLOR( nCol ) := {|| aFColor[2] }
Moderator: Rathinagiri
Code: Select all
Form_1.Grid_1.HeaderDYNAMICFORECOLOR( nCol ) := {|| aFColor[1] }
Form_1.Grid_1.HeaderDYNAMICBACKCOLOR( nCol ) := {|| aFColor[2] }
Code: Select all
FOR a = 6 to 9 // free
SetProperty( 'Form_1','Grid_DRIVES',"ColumnDYNAMICFORECOLOR", a, {|| {255,0,255} } )
SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICBACKCOLOR", a, {|| {255,0,255} } )
NEXT
FOR a = 2 to 3 // total
SetProperty( 'Form_1','Grid_DRIVES',"ColumnDYNAMICFORECOLOR", a, {|| {0,255,0} } )
SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICBACKCOLOR", a, {|| {0,255,0} } )
NEXT
The Grid HeaderDynamicBackColor still not working...serge_girard wrote: ↑Fri Jan 10, 2020 9:03 am Jimmy,
Maybe this works for you?Code: Select all
FOR a = 6 to 9 // free SetProperty( 'Form_1','Grid_DRIVES',"ColumnDYNAMICFORECOLOR", a, {|| {255,0,255} } ) SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICBACKCOLOR", a, {|| {255,0,255} } ) NEXT FOR a = 2 to 3 // total SetProperty( 'Form_1','Grid_DRIVES',"ColumnDYNAMICFORECOLOR", a, {|| {0,255,0} } ) SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICBACKCOLOR", a, {|| {0,255,0} } ) NEXT
Serge
have not work at this "Problem" in harbour Version any more ...
Hola Jimmy,AUGE_OHR wrote: ↑Wed Apr 14, 2021 3:07 am hi,have not work at this "Problem" in harbour Version any more ...
when hover GRID / BROWSE Header you will "see" visual Effect which is "over" BACKCOLOR
i have "see" (in \SOURCE ) Ownerdraw for GRID / BROWSE Header but now work with it under harbour
same "Problem" with TAB(page) which is "paint" by System ... need Ownerdraw like in my Xbase++ App
Control_Background.JPG
hmgchang wrote: ↑Wed Apr 14, 2021 2:24 am The Grid HeaderDynamicBackColor still not working...
SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICFORECOLOR", a, {|| {0,255,0} } ) -> WORKING
SetProperty( 'Form_1','Grid_DRIVES',"HeaderDYNAMICBACKCOLOR", a, {|| {0,255,0} } ) -> NOT WORKING !!!
Pls Advise on how to make it works
Xbase++ App (Black) need Runtime so tell me where i can upload hole Stuff
Code: Select all
FUNCTION Events( hWnd, nMsg, wParam, lParam )
CASE nMsg == WM_NOTIFY
...
IF GetNotifyCode( lParam ) == NM_CUSTOMDRAW
Code: Select all
Draw Background Color
Draw Visual Style
Draw Foreground Font Color
Code: Select all
#define WM_CTLCOLORMSGBOX 0x0132
#define WM_CTLCOLOREDIT 0x0133
#define WM_CTLCOLORLISTBOX 0x0134
#define WM_CTLCOLORBTN 0x0135
#define WM_CTLCOLORDLG 0x0136
#define WM_CTLCOLORSCROLLBAR 0x0137
#define WM_CTLCOLORSTATIC 0x0138
Code: Select all
CASE nMsg == WM_CTLCOLORSTATIC
CASE nMsg == WM_CTLCOLOREDIT .OR. nMsg == WM_CTLCOLORLISTBOX