No se si te servirá pero lo que puedes hacer es en el el evento onDrawCell, borrar todo el contenido de la celda con un rectangulo blanco, y despues pintar tu mismo el texto de la celda como te muestro en el siguiente codigo.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Rectangle(Rect);
If (ACol div 2)=(ACol / 2) then
TStringGrid(Sender).Canvas.Font.Style:=[]
else
TStringGrid(Sender).Canvas.Font.Style:=[fsBold];
TStringGrid(Sender).Canvas.TextOut(Rect.Left,Rect.Top, StringGrid1.Cells[ACol,ARow]);
end;
|