Stringgrid DrawCell

[hansklok]

Ich habe es selbst hinbekommen. Es hätte so aussehen müssen:

Delphi-Quellcode:

var
 i: Integer;
...
with tTabelle do
  begin
      for i:= 1 to tTabelle.RowCount-1 do
        begin
          if tTabelle.Cells[3, ARow] = 'Nein' then
          begin
         Canvas.Font.Color := clRed;
         Canvas.Brush.Style:= bsSolid;
         Canvas.TextRect(Rect, Rect.Left + 2,
                         Rect.Top + 2, Cells[ACol, ARow]);
         end
      end;
   end;