Тема: OnDrawDataCell
Показать сообщение отдельно
  #1  
Старый 20.08.2009, 20:50
loki33 loki33 вне форума
Прохожий
 
Регистрация: 20.08.2009
Сообщения: 1
Репутация: 10
По умолчанию OnDrawDataCell

Схожу с ума... Пытаюсь в DBGrid-е окрасить строки в которых поле ost меньше нуля...
Код:
procedure TForm1.G_tovDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
    if  d.Tovar.FieldByName('ost').AsFloat < 0 then
        G_tov.Canvas.font.Color := clRed;
    G_tov.DefaultDrawDataCell(Rect, Field, State);
end;
Admin: Пользуемся тегами!

все просто... все соответствует exampl-ам... и НЕ РАБОТАЕТ

Кто знает что за глюк? И как с ним бороться?
Ответить с цитированием