Cambiar de color una celda de dbgrid

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

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