Cambiar de color una celda de dbgrid

[zeta2]

Muchachos, se que este tema se trató en otras publicaciones, sólo quiero una ayudita...

Quiero hacer lo siguiente: Tengo un dbgrid que me muestra el contenido de una tabla. Hay un campo llamado 'Hora de Entrada' (una columna), quiero que si el contenido de esa celda es antes de las 12 del mediodía sea de un color, y es despues sea de otro...

Tengo un código el cual funciona muy bien, pero funciona con enteros no con horas, le quise cambiar el ".asfloat" por ".astime" pero no me funciona. Donde Dice "Numero" iría el nombre del campo del tipo Time "Hora de Entrada"

El código va en el evento OnDrawColumnCell es el siguiente:

inherited;

if (Column.Index = 1) and (Column.Field.Dataset.FieldbyName('Numero').AsFloat < 12) then
 Begin
  TDrawGrid(sender).canvas.Brush.Color := clGreen;
  TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
 end;

Espero que puedan ayudarme.

Muchas gracias por su tiempo.

Saludos.

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

Revisa la función HourOf de DateUtils (y el resto de funciones de esa unit). con eso deberías poder extraer la hora del campo y con ese valor comparar para saber el color a utilizar.

[zeta2]

Le busco la vuelta pero nada funciona... Si le pongo "Asstring" el sistema levanta pero me marca cualquier cosa.

El campo es del tipo TTime y debería funcionar el "AsDateTime" pero no funciona. La verdad no se que ponerle...

Saludos.

[ecfisa]

Hola zeta2.

Código Delphi [-]
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  CCOLOR : array [Boolean] of TColor = (clLime, clMoneyGreen);
begin
  with Sender as TDBGrid do
  begin
    if Column.Field.FieldName = 'Hora_de_Entrada' then  // Nombre del campo DateTime
      Canvas.Brush.Color := CCOLOR[Frac(Column.Field.AsDateTime) > 0.5];
    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Saludos.

[zeta2]

Lo probe y funciona, sólo que me marca todos los campos con contenido de un color y los nulos de otro... donde especifico que quiero pintar las celdas que tienen antes de las 12:00:00? donde dice "> 0.5"?

Gracias por ayudarme...

Saludos.

[ecfisa]

Hola.

Había entendido que querías de un color las celdas de valor menor al mediodia y de otro las que eran despues.

Si se trata de pintar sólo las de valor menor 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) < 0.5 then
        Canvas.Brush.Color := clMoneyGreen;
    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Saludos.

[zeta2]

AHí lo entendí bien y funciona de maravilla, ahoralo que quiero saber es que significa "> 0.5", modificando eso puedo cambiar el horario de la condición? Un ejemplo si quiero que en lugar de las 12 del medio día sea las 16:00 Hs, como sería?

Saludos y gracias por tu tiempo.

[ecfisa]

Empezado por zeta2

AHí lo entendí bien y funciona de maravilla, ahoralo que quiero saber es que significa "> 0.5", modificando eso puedo cambiar el horario de la condición? Un ejemplo si quiero que en lugar de las 12 del medio día sea las 16:00 Hs, como sería?

Hola.

El tipo TDateTime está declarado como Double, la parte entera representa la fecha y la fraccionaria la hora. Esta última se manifiesta como la fracción transcurrida del día, por ejemplo:

6  h  = (1/4) => 0.25 * 24 
12 h  = (1/2) => 0.5  * 24
16 h  = (2/3) => 0.666666666666667 * 24

Saludos

[zeta2]

Ecfisa, todo funcionó perfecto, tuve que hacer el cálculo de cada hora para pasarlo a double, pero es una regla de 3 simple...

Ahora me ha surgido otro problema con el mismo código.

Este código momifica toda la columna, le pone un color a la celda si el horario es antes de las 12 y otro color si es después de las 12... Todo operando con mismo valor:

Código Delphi [-]
 if Frac(Column.Field.AsDateTime) < 0.5 then

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?

Que la operación de cada registro sea independiente, no un valor para toda la columna...

Me explico?

Si no se entiende me dicen y busco la manera de explicarlo de nuevo.

Espero que puedan ayudarme.

Atte. Marco.