TbsSkinStringGrid

[ecfisa]

Hola Alejandro73.

Desconozco el componente que mencionas pero, por si te sirve de ayuda, con un TStringGrid sería:

Código Delphi [-]
// Evento OnDrawCell
procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdSelected in State then
    with TStringGrid(Sender) do
    begin
      Canvas.Brush.Color := clBlue;  // color fondo
      Canvas.Font.Color  := clWhite; // color letra
      Canvas.FillRect(Rect);
      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
    end;
end;

Saludos.

[Alejandro73]

Gracias ecfisa, funciono perfectamente...