Lo de los colores es que no me sirve ese método, sólo puedo usar el típico claro/oscuro, no más.
Sin embargo, lo de la raya sí que está muy bien y funciona perfectamente porque se controla un campo/dato del propio registro, por ejemplo que la línea sea el 1, así no hay problema.
Además el código es mínimo:
Código Delphi
[-]
procedure TForm24.gr1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName('LINEAASIENTO').AsInteger=1 then
begin
gr1.Canvas.Pen.Color:=clNavy;
gr1.Canvas.Pen.Width:=3;
gr1.Canvas.MoveTo(Rect.Left, Rect.Top+1);
gr1.Canvas.LineTo(Rect.Right, Rect.Top+1);
end;
end;
Por lo que seguramente lo implemento también y en otros grids más que tengo por ahí.
Muchísimas gracias por la ayuda
