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