Group Header Font Style

[Jay_Eisenstock]

I can't figure out how to bold the group header using AdvStringGrid.  Any ideas would be most appreciated

[tms_Nancy]

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; ARow,

  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);

begin

  if AdvStringGrid1.IsNode(arow) then

  begin

     AFont.Style := [fsBold];

   end;

end;

[Jay_Eisenstock]

Did not work...could it be that I am also merging cells?  Here is my code

         Group(0);
         for i := 1 to RowCount - 1 do
            if IsNode(i) then
               MergeCells(1,i,ColCount,1);

[brunofierens]

We cannot see a problem here. This is the test code applied to a default TAdvStringGrid:

procedure TForm4.AdvStringGrid1GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
if advstringgrid1.IsNode(ARow) then
AFont.Style := [fsBold];
end;

procedure TForm4.FormCreate(Sender: TObject);
var
i: integer;
begin
advstringgrid1.RandomFill(false,4);
advstringgrid1.Group(1);

for i := 1 to AdvStringGrid1.RowCount - 1 do
if AdvStringGrid1.IsNode(i) then
AdvStringGrid1.MergeCells(1,i,AdvStringGrid1.ColCount,1);
end;

and this works fine.