Добрый день.
Цитата:
А как сделать что бы остальная строка то же закрашивалась?
Используйте проверку if Params.Row = DBGridEh1.Row then ...
Код:
procedure TForm1.DBGridEh1AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
var Params: TColCellParamsEh; var Processed: Boolean);
begin
if (Sender.SumList.RecNo mod 2 = 1) then
Params.Background := clMenu;
if (gdCurrent in Params.State) then
begin
Params.Background := clRed;
Params.Font.Color := clYellow;
Params.SuppressActiveCellColor := True;
end else if Params.Row = DBGridEh1.Row then
begin
Params.Background := ApproximateColor(clRed, clWindow, 200);
end;
Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
Processed := True;
end;
Вложение:
sshot-48.png [ 26.6 KiB | Просмотров: 1013 ]
Цитата:
Будет ли дорабатываться/исправляться процедура DefaultDrawColumnCell?
В ближайшее время подобную доработку выполнить не получится.