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.