Cambiar de color una celda de dbgrid

[Muriel]

Hola amigos del foro.

Tengo un problema ayuden me por favor.

Es el siguiente tengo un DBGrid de color verde que me muestra el contenido de una tabla y las letras son blancas asta ahí todo bien el problema es cuando quiero modificar algo la celda se pone blanco y ya no se ve lo que escribo, como ago para que la celda donde esta el foco se mantenga verde o de otro color que no sea blanco.

Saludo y gracias.

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

A ese código tendrás que añadirle algo, para tener en cuenta el Estado en que se encuentra la fila del grid.
Para esto tienes el parámetro State, que te llega en el evento.

Aquí tienes un ejemplo de cómo usarlo:
http://www.clubdelphi.com/foros/showthread.php?t=68474

[pacopenin]

Buenas.

A través del parámetro State: TGridDrawState puedes controlar el estado de la celda. Toma los valores (gdSelected, gdFocused, gdFixed).

Y por favor, revisa la ortografía y la forma de plantear la pregunta antes de enviarla....

[pacopenin]

Veo que mientras preparaba la respuesta se me han adelantado. Mira el ejemplo que enlaza Neftali.

[[rretamar]]

En LAZARUS lo hago de esta forma:

Código Delphi [-]
procedure TFAbm_Estudios.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;  Column: TColumn; AState: TGridDrawState);   // Colorización de celdas
Var
  Finalizado, Reservado, Informado, Transcripto, Revisado: Boolean;
begin
  With Sender As TDBGrid Do
    Begin
       Finalizado := DataSource.DataSet.FieldByName('TECNICO').AsInteger > 0;
       Reservado := (DataSource.DataSet.FieldByName('MEDICO').AsInteger > 0) And DataSource.DataSet.FieldByName('FECHA_INFORME').IsNull;
       Informado := (DataSource.DataSet.FieldByName('MEDICO').AsInteger > 0) And (Not DataSource.DataSet.FieldByName('FECHA_INFORME').IsNull);
       Transcripto := DataSource.DataSet.FieldByName('TRANSCRIPCION').AsInteger > 0;
       Revisado := DataSource.DataSet.FieldByName('REVISION').AsInteger > 0;
       //
       If Revisado Then
         Begin
           Canvas.Brush.Color := Panel8.Color; // Estudio terminado de corregir y listo para entregar (celeste)
           Canvas.Font.Color := ClBlack;
           Exit;
         end;
       If Transcripto Then
         Begin
           Canvas.Brush.Color := Panel7.Color; // Transcripción terminada (verde)
           Canvas.Font.Color := ClBlack;
           Exit;
         end;
       If Informado Then
         Begin
           Canvas.Brush.Color := Panel6.Color; // Estudio terminado de informar (celeste)
           Canvas.Font.Color := ClBlack;
           Exit;
         end;
       If Reservado Then
         Begin
           Canvas.Brush.Color := Panel9.Color; // Estudio reservado por un médico para informar
           Canvas.Font.Color := ClBlack;
           Exit;
         end;
       If Finalizado Then
         Begin
           Canvas.Brush.Color := Panel5.Color; // Estudio finalizado (gris)
           Canvas.Font.Color := ClBlack;
           Exit;
         end;
    End;
end;