Cita:
Empezado por AzidRain
Espero te sirva este snippet de codigo que tenia por ahi, hace precisamente lo que quieres, aunque en este caso se sobreescribe el metodo GetCellParams para dibujar las filas con los colores que se requieran segun corresponda.
Código Delphi [-]
procedure TFMasterList.GridCobranzaGetCellParams(Sender: TObject;
Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if Odd( SQLData.ZMaster.RecNo ) then begin
If Not Highlight Then Begin
BackGround:=clCream; AFont.Color:=clBlack; end
else
Begin
BackGround:=clCream; AFont.Color:=clBlack; end;
end;
end;
Como ves es sencillo y la ventaja es que solo necesitas cambiar lo indispensable pues el resto del dibujo de la fila lo hace con los colores por defecto. Puedes jugar con condiciones para pintar una fila segun los datos del registro actual. Recuerda que el evento se ejecuta por cada registro visible en la grilla.
Espero te sirva aunque yo ya no lo uso pues ahora uso las DevExpress que estan mas fáciles de personalizar.
Saludos
|
Buenas Tardes AzidRain:
No sé si leerás esto o no... pero tío, MUCHAS GRACIAS POR ESTE CÓDIGO porque tras 7 horas buscando buscando.... topamos con este código y nos lo solucionó, que nos ha abierto las puertas del cielo JAJAJAJAJAJAAJAJA
Guardaré la pistola para otro día.... xD
Muchas gracias de nuevo