Ayuda. Como coloreo un dbgrid

[OscarBravo]

Saludos a todos.

Solicito su ayuda en lo siguiente:

Tengo un dbgrid en el cual utilizo tres colores uno para las filas pares, otro para las impares y el último para el cursor (para saber en donde estoy ubicado). Utilizo el siguiente codigo

Código Delphi [-]
procedure TFrmHelpEmpre_Est.DBGridBusquedaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  If (Dm.cdsEmpre_Est.RecNo Mod 2)=0 Then
      DBgridBusqueda.Canvas.Brush.Color:= $00FAF5F1
  else DBGridBusqueda.Canvas.Brush.Color:= $00FFFFFF;
  If (gdFocused in State) Then  
         DbGridBusqueda.Canvas.Brush.Color:= $000C95F;
 
  DbGridBusqueda.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Este codigo me funciona, pero cuando el DbGrid Pierde el foco, el color del cursor del dbgrid se pierde y cuando hago clic en el dbgrid vuelve a aparecer a pesar de que la propiedad dgAlwaysShowSelection esta True

Estando dgRowSelect en True el cursor solo se mueestra en la primera de 2 columnas que contiene el dbgrid

¿Como mantengo siempre el cursor visible en el DbGrid ?

¿Como muestro el cursor como una linea que cubra todas las columnas mas no una sola columna?

Gracias por leer este mensaje.

[Neftali [Germán.Estévez]]

Creo que no está perdiend el foco, sino que al repintando lo estás "machacando" y dejas de verlo.
Creo que en ese procedimiento deberías tener en cuenta también el estado gdSelected del DBGrid.

[[Lepe]]

además de gdAlwaysShowSelection, para que no pierda el foco, usa la propiedad HideSelection a false.

Saludos