В DBGrid проблема с выделением строки...

← →
Купец (2003-03-06 11:17) [0]

Мастера, помогите.
такой код:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if //условие then TDBGrid(Sender).Canvas.Brush.Color := clRed else TDBGrid(Sender).Canvas.Brush.Color := clGreen; TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); end;
Когда условие не выполняется, то все ОК, но
когда выполняется условые, то цвет не становится красным, а в строке рисуется только первое поле со значением, а остальные пустые.
Что может так глючить? Помогите.... Есть формы где лежат компоненты EhLib, может они как-то влияют?

← →
Купец (2003-03-06 14:08) [1]

Мастера, помогите...

← →
Grom (2003-03-06 14:30) [2]

if ..условие..and (not (State = [gdSelected,gdFocused])) then
begin
with (Sender as TwwDBGrid)do
begin
Canvas.Brush.Color:= clRed;
Canvas.Font.Color := clWhite;
DefaultDrawDataCell(Rect,Field,State);
end;
end;

В DBGrid проблема с выделением строки... Найти похожие ветки