TBrowseMod group header text color

[Timm]

Hi!

How can I change the text color of TBrowseMod group headers?

Best regards, Timm

[Pedro Gil]

Hi!

I'm not sure if I understood your question correctly but you have the following properties in the TBrowseMod class:

PROPERTY nClrHeaderPane
PROPERTY nClrHeaderText
PROPERTY nClrHeaderDivider
PROPERTY nClrHeaderHotPane
PROPERTY nClrHeaderHotText
PROPERTY nClrHeaderSelPane
PROPERTY nClrHeaderEditText
PROPERTY nClrHeaderEditPane
PROPERTY nClrHeaderEditTextFocus
PROPERTY nClrHeaderEditPaneFocus

Greetings!

[Timm]

Hi Pedro,

many thanks for your answer!

I am searching for something like nClrGroupHeaderEditText in order to change the color of this text:

2023-11-10 08_00_40-COPPIO.png (23.5 KiB) Visto 879 veces

I tried it with this:

Código: Seleccionar todo

METHOD BrwArtikelDrawGroupHeader( oSender, oSt, cGroup, nRecord, hDC, aRect ) CLASS TForm1

   SetTextColor( hDC, RGB( 47, 53, 65 ) )   // this does not work
   SelectObject( hDC, ::oFontBold:Handle )

RETURN Nil

Best regards, Timm

[ignacio]

Hello,

Try manipulating oBrowseMod:oSupra. Is TheaderMod control.

Regards,

[Timm]

Hi,

manipulating oBrowseMod:oSupra did not work so I modified this:

Código: Seleccionar todo

METHOD PaintGroupHeader( hDC, nItem, aRect, nRecord ) CLASS XBrwModGrid
...
         nClrT := ::nClrText
         nClrP := ::nClrPane
         lRet  := :OnDrawGroupHeader( oSt, @cGrp, nRecord, hDC, aTmp, @nClrT, @nClrP )
...
RETURN NIL

The event OnDrawGroupFooter already has the parameters nClrText and nClrPane.
Perhaps you can add them also to OnDrawGroupHeader?

Best regards, Timm

[ignacio]

Sorry. My mistake, I thought you were referring to column groupings.

I did not include those parameters on the header because I thought there were not necessary. But, no problem to include them. BTTW I prefer that hDC and aRect continue to be the last parameters even if it brakes some code (that surely will not happen). So, this will be the way that is already modified in the source code:

EVENT OnDrawGroupHeader( oSender, oSt, BYREF cGroup, nRecord, BYREF nClrText, BYREF nClrPane, hDC, aRect )

Regards

[Timm]

Thank you, Ignacio!