Ver Mensaje Individual
  #1  
Antiguo 17-04-2013
Avatar de zeta2
zeta2 zeta2 is offline
Miembro
 
Registrado: feb 2007
Posts: 95
Reputación: 18
zeta2 Va por buen camino
Cambiar de color una celda de dbgrid

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:

Código:
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.
Responder Con Cita