Cambiar de color una celda de dbgrid

[ecfisa]

Empezado por zeta2

...
Ahora, que pasa si necesito que el valor varíe según el registro. Es decir, en el registro tengo 2 campos:

Hora_de_Entrada (Hora en la que el sistema registró su entrada)
Hora_Oficial_de_Entrada (Hora oficial establecida por la empresa, el cual no se puede pasar por que indicaría tardanza)

Se puede hacer que ese 0.5 sea reemplazado por el valor de Hora_Oficial_de_Entrada y así en cada registro?
...

Hola Marco.

Si no entendí mal lo que solicitas arriba, sería:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    if Column.Field.FieldName = 'Hora_de_Entrada' then
      if Frac(Column.Field.AsDateTime) < Frac(DataSource.DataSet.FieldByName('Hora_Oficial_de_Entrada').AsDateTime) then
        Canvas.Brush.Color := clMoneyGreen;
    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Saludos

[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;