OnGetCellParams и OnDrawColumnCell

[Vert0let]

Прошу помочь с DBGridEh

Требуется изменить стиль выделения строки в гриде
свойство dgRowSelect = true
код:

procedure TCertificationForm.dbgrdh3GetCellPa rams(Sender: TObject;
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
If Column.Field.dataset.FieldByName('C _Status').AsString='Член НП' then Background:=$00E1FFE1;
if gdSelected in State then AFont.Style:=[fsBold];
end;

выделяет жирным только первый столбец в гриде

а вот такой код выделяет цветом всю строку

procedure TCertificationForm.dbgrdh2DrawColum nCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
IF gdSelected IN State Then
Begin
TDBGridEh(Sender).Canvas.Brush.Colo r:= $CC5555;
TDBGridEh(Sender).Canvas.Font.Color := $FFFFFF;
TDBGridEh(Sender).Canvas.FillRect(r ect);
End;
TDBGridEh(Sender).DefaultDrawColumn Cell(Rect,DataCol,Column,State);
end;

почему в первом случае [gdSelected in State] только для ячейки первой колонки а во втором случае для всех колонок?

лично мне первый вариант нравится больше из-за того что остается родная рамка выделения со скруглёнными углами и градиентом (а во втором варианте рисуется прямоугольник поверх ячейки просто). но этот первый вариант корректно не отрабатывает почему-то

или как внести изменения в стиль отрисовки грида? (DbGridEhStyle)

[Аватар]

gdSelected - The cell is currently selected

Выбранная ячейка только одна, а не все в строке и не обязательно только первая колонка

[Vert0let]

Сообщение от Аватар

Выбранная ячейка только одна, а не все в строке и не обязательно только первая колонка

dgRowSelect - включено.
т.е. выделяется вся строка в гриде
и во втором примере отрабатывает нормально

в первом примере не работает для всей строки. и отрабатывает только для ПЕРВОЙ колонки, даже если кликать на другие колонки

[Аватар]

Типа такого? Для убедительности ещё и fsItalic засунул. Д7, EhLib 2.5

procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if ClientDataSet1i.AsInteger=1 then Background:=$00E1FFE1;
  if gdSelected in State then AFont.Style:=[fsBold,fsItalic];
end;

[Vert0let]

да. типа такого
rad studio XE7 + ehlib8
ни в какую не хочет

procedure TCertificationForm.dbgrdh6GetCellPa rams(Sender: TObject;
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if CertQr.FieldByName('CertExpDate').A sDateTime >= IncDay(Now,60) then Background:=$00E1FFE1
else If CertQr.FieldByName('CertExpDate').A sDateTime > Now then Background:=$E1FFFF
else Background:=$00F2F3FF;
if gdSelected in State then Afont.Style:=[fsBold];
end;

[Аватар]

Чего-то поменяли значит. Обойдешься, строка и так выделена, зачем еще жирным выделять? Указал бы сразу в 1-ом посте версию EhLib я бы и не лез с подсказками, нет у меня ehlib8