Schrift Bold in bestimmten Zellen im Stringgrid? Geht das?

[himitsu]

siehe Einzelne Zellen im Grid markieren ??

Delphi-Quellcode:

Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
  Begin
    If (ACol = 4) and (ARow = 2) Then Begin  {Zelle auswählen}
      StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.Font := StringGrid1.Font;
      StringGrid1.Canvas.Font.Style := [fsBold];
      StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,
        StringGrid1.Cells[ACol, ARow]);
    End; 
  End;