Código Delphi
[-]
if not PVentaCheck then
if (Column.Index = 3) and (State=[]) then begin
gridFac.Canvas.Brush.Color := clBlue; FillRect(gridFac.Canvas.Handle, Rect, gridFac.Canvas.Brush.Handle);
gridFac.Canvas.Font.Color := clRed; gridFac.Canvas.TextOut(Rect.left + 2, Rect.top + 2, Column.Field.AsString);
PVentaCheck:=true;
end;
Cambie el Estado de la Celda y el número de Columna que quiero que me cambie de Color, Agregue el Código que me proporciono MFCORRAL para pintar la Celda Si me funciona Corrrectamente pero si abro un Nuevo registro me la DESPINTA y vuelve a su estado normal, es lo que quiero evitar que haga eso, quiero que quede el Color que le pongo al cumplirse la condición, siendo que la condicion la hago en el evento OnColExit de la Columna #3.