Gracias Neftali
revise el ejemplo.. realice todo igual.... salvo 3 cosas:
cambiar el nombre del DBGrid... y de donde se obtienen los colores.
lo demás esta igual, pero no se por que no me pinta las filas.
si compilo tu ejemplo funciona bien.. pero quizas sea un bug de esos...
lo raro es que si quiero pintar las celdas que cumplan una condición si lo hace bien (en otro dbgrid)...
este es el codigo que utilizo...
Código Delphi
[-]
procedure TTarjetas.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
num : Integer;
begin
num := Datos.AQ_AbonosVendidos.RecNo;
if ((num mod 2) = 0) then begin
DBGrid2.Canvas.Brush.Color := clMoneyGreen;
end
else begin
DBGrid2.Canvas.Brush.Color := clWindow;
end;
DBGrid2.DefaultDrawDataCell(Rect, Field, State);
end;
la proxima semana seguiré probando
Salu2
y que tengan un buen fin de semana