judoboy
16-05-2003, 13:27:27
Pues eso, que como puedo hacer para que me pinte las lineas de uno u otro color dependiendo de una condición.
Si el DBGrid se alimenta de un TTable, lo hago en el envento
OnDrawColumnCell
y pongo lo siguiente
if ModuloDatos.Calendario.DataSet.FieldByName('TIPO').AsString = 'BAJA' then
begin
DBGCALENDARIO.Canvas.Brush.Color :=clRed;//color de fondo
DbgCalendario.Canvas.Font.Style:=[fsBold];
DBGCalendario.Canvas.Font.Color:=ClBlack;
DBGCalendario.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;
Si el DBGrid se alimenta de un TTable, lo hago en el envento
OnDrawColumnCell
y pongo lo siguiente
if ModuloDatos.Calendario.DataSet.FieldByName('TIPO').AsString = 'BAJA' then
begin
DBGCALENDARIO.Canvas.Brush.Color :=clRed;//color de fondo
DbgCalendario.Canvas.Font.Style:=[fsBold];
DBGCalendario.Canvas.Font.Color:=ClBlack;
DBGCalendario.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;