I have set the background and foreground color of the Browse.
However I could not change the same of the Header. It remains Black and white.
How to change it ?
Moreover I wish to highlight some cell. I could achieve the same using OnDrawCell event.
But even after setting lHighLite to .T., I could not make it Bold. How can I make it Bold ?
TIA
Milan.
How to change Browse Header Foreground and Background Color
-
- Mensajes: 134
- Registrado: Dom Dic 27, 2009 9:54 am
- ignacio
- Site Admin
- Mensajes: 9256
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: How to change Browse Header Foreground and Background Color
Código: Seleccionar todo
//------------------------------------------------------------------------------
METHOD ArrayBrowse1Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite, hDC, aRect ) CLASS TForm1
SelectObject( hDC, ::oFontBold:Handle )
RETURN Nil
//------------------------------------------------------------------------------
METHOD FormInitialize( oSender ) CLASS TForm1
::oFontBold := ::oFont:Clone()
::oFontBold:lBold := .T.
RETURN Nil
//------------------------------------------------------------------------------
METHOD FormDestroy( oSender ) CLASS TForm1
::oFontBold:End()
RETURN Nil
Regards,