Yo eso lo tengo en un TstringGrid de la siguiente forma;
if (Pos('DIFERENTE', Sgrid1.cells[0,row]) > 0) then
begin
Sgrid1.canvas.brush.Color := clred;
Sgrid1.canvas.fillrect(rect);
Sgrid1.canvas.textrect(rect, rect.left, rect.top, Sgrid1.Cells[col,row]);
end;
Espero te pueda ayudar o guiar.
;-)
|