TbsSkinStringGrid

[Alejandro73]

Estimados

Estoy trabajando con una Grilla (TbsSkinStringGrid), es similar a StringGrid, se dibuja correctamente con sus respectivos títulos en las columnas, pero al momento de realizar una selección de un rango de celdas el texto que tiene cada una no se visualiza (el color del fondo es blanco y el texto negro), pude observar que cambiando el color de fondo a rojo el texto seleccionado en el rango se visualiza blanco, pero necesito que al momento de la selección el fondo quede azul y el texto blanco.

Adjunto el código cuando dibuja la celda

procedure F_CPL.grillapDrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Grid : TbsSkinStringGrid;
Texto : String;
begin

Grid := TbsSkinStringGrid(Sender);


IF (ARow < Grid.FixedRows) or (ACol < Grid.FixedCols) then
begin
Grid.Canvas.Brush.Color := clBtnFace;
Grid.Canvas.Font.Color := clBlack;
Grid.Canvas.Font.Style := [fsBold];
end
else
begin
Grid.Canvas.Brush.Color := clWhite;
Grid.Canvas.Font.Color := clBlack;
Grid.Canvas.Font.Style := [];
end;

Grid.Canvas.FillRect(Rect);
Texto:=Grid.Cells[ACol,ARow];
DrawText( Grid.Canvas.Handle,PChar(Texto),StrLen(PChar(Texto)),Rect,DT_WORDBREAK);
end;