Cita:
Empezado por kaeltas
Hola a todos mis queridos amigos expertos del clubdelphi !!!
Pues aquí estoy con una pequeña consulta, estoy haciendo un pequeño programa de mantenimiento y resulta que muestro los datos de mi base de datos en un dbgrid
El punto es que los mantenimientos se realizan cada determinadas fechas y me gustaria saber si es posible, pintar o cambiar el color de la "fila" en un "dbgrid" en caso de que el registro excediera una fecha???
Estuve buscando y probando varias opciones pero sin resultado
Me podrían dar un tip o un consejo por favor??
Gracias de antemano
|
Código Delphi
[-]
procedure TFrCancFAc.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState); begin
if Field.Text = 'Cancelada' then
(Sender as tDBGrid).Canvas.Font.Color := $000F09FF;
(Sender as tDBGrid).Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,Field.AsString);
end;
este lo utilizo para mostrar en un dbDrid las facturas canceladas en rojo, por defecto las demas van en negro, solo es de modificarlo un poco...
Propiedad de dbgrid defaulfdrawing=false;