in StringGrid in jeder Zeile eine andere Zelle einfärben?

[Delphi-Coder]

Hallo DP'ler,

wie kann ich in einem StringGrid in jeder Zeile eine andere Zelle rot einfärben? Ich hab schon einiges versucht, aber entweder es wird die ganze Spalte eingefärbt, oder nur die entsprechende Zelle in der letzten Zeile!

Vielen Dank schonmal!

MfG
Delphi-Coder

[s14]

Hallo

mit diesem Beispiel kannst Du eine bestimmte Zelle einfärben, vielleicht hilfts ja weiter

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s: String;
begin
  if (ACol = 2) and (ARow = 3) then
  with Sender as TStringGrid do
  begin
    s := Cells[ACol, ARow];
    Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
    DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT);
  end;
end;

Der Code muss in das Ereignis OnDrawCell eingefügt werden.

Gruß
s14

[Delphi-Coder]

Danke für die Antwort! Das hat funktioniert! Bei meinem Code hatte ich nur eine if-Anweisung falsch gesetzt!