Se me ocurre que tendrías que dibujar las celdas tú misma en el evento OnDrawCell. Algo así (no lo he probado):
procedure TForm1.StringGrid1DrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do begin
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
end;
end;
Espero que te sirva.
Ernesto D'Spirito
[email protected]
http://www.latiumsoftware.com/es/