Einzelne Zellen im Grid markieren ??

[himitsu]

Wusste nicht mehr, das Schrift auch schon vor dieser Routine hingeschrieben wurde.
(hatte das nur mit einem leeren StringGrid getestet)

Also muss diese auch noch gezeichnet werden.

Delphi-Quellcode:

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