Cambio de color en texto de grillas

[patoaballay]

hola a todos... queria hacerles la siguiente consulta...tengo una grilla de datos que muestra el resultado de una consulta, por defecto el color de la letra es negro, y al seleccionar una fila la misma se pinta de azul y el texto de blanco para poder visualizar mejor...ahora yo puedo cambiar el color del texto de las filas segun algun criterio, pero al seleccionar una fila, por ejemplo donde el texto es de color rojo, al pintarse de azul, no se distingue nada...lo que quisiera es que cuando seleccione una fila el texto se pinte de blanco pero al salir siga siendo rojo...

alguien puede ayudarme???

[Loviedo]

Prueba esto a ver si te sirve.

Código Delphi [-]
procedure TFLdiario1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DM.Query4TITULO.Text = 'Deudores' then
    TDBGrid(Sender).Canvas.Font.Color := clRed
  else if DM.Query4COMUNES.Text = 'X' then
    TDBGrid(Sender).Canvas.Font.Color := clBlue;
  if gdSelected in State then
    if (DM.Query4TITULO.Text = 'Deudores') or (DM.Query4COMUNES.Text = 'X')then
      TDBGrid(sender).Canvas.Font.Color := clYellow;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

saludos.

[patoaballay]

Muchas gracias!!!!

Es justo lo que necesitaba...me faltaba tener en cuenta la ultima parte....
saludos, pato.