Schrift Bold in bestimmten Zellen im Stringgrid? Geht das?

[himitsu]

Delphi-Quellcode:

Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); 
  Begin 
    If StringGrid1.Cells[ACol, ARow] = '1' Then Begin  {Zelleninhalt auf irrgend etwas prüfen...} 
      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;

So besser