Отработка события DrawColumnCell

[KBO]

Доброе время суток уважаемые форумчане,
Помогите новичку пожалуйста. В компоненте DBGrid есть событие DrawColumnCell, которое отрабатывает допустим при нажатии dbNavigator "связанного" с dbGrid и все замечательно (переход на другую строку состоялся). Но стоит выбрать стоку в dbGrid с помощью мышки, то событие DrawColumnCell зацикливается, и работает, пока в delphi не выберешь "Program Reset". Так вот, я не понимаю в чем причина зацикливания этого события и как с ним бороться. В Help я по поводу этого зацикливания ничего не нашел.
C уважением.

[VadikV]

покажи код обработчика события.
ты в конце не забываешь вызывать обработчик по умолчанию: DefaultDrawColumnCell?

[KBO]

Да, забыл. Но если у меня что-то не получается, то я смотрю на боле простом коде, например:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  showmessage('dataCol ='+ IntToStr(DataCol));
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); {<- вставил строку}
end;

И все равно такая же фигня получается (при щелчке мышкой на dbGrid - цикл). Может, я че-то не так делаю?


У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[rdama]

Ну тут для начала вопрос а что делаем то?
Для чего пытаемся приспособить DrawColumnCell?

[new player]

Я использовал DrawColumnCell для отображения иконок в ячейках. Насколько я понимаю это отображение было "зациклено", как, наверное, и любое событие в рамках этого свойства.

[Gulik]

Это событие DrawColumnCell возникает каждый раз когда перерисовывается ячейка в DBGrid.
Я как понял тебе нужно выполнять некий код при переходе на следующую (предыдущую) строку. Если так то используй событие DataSet`а AfterScroll

[KBO]

Просто стало понятно, что в собитии "DrawColumnCell", стоит выполнять только действия по перерисовке grid, я же в этот обработчик еще запрос к БД влепил.
А код был простой:

{простое приложение с одним обработчиком}
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 showmessage('dataCol ='+ IntToStr(DataCol)); {<-только вместо этой строки запрос}
end;

и щелканье мышкой по самому dgGrid в процессе выполнения приложения, все-таки приводит к непонятному зацикливанию, т.е. начанает выдаваться сообщение "dataCol = ..." (само сообщение grid не накрывает, так что ему перерисовыватся не зачем), пока в delphi не выберешь "Program Reset".
Я то сам думал, что этот код будет выполнятся только столько раз, сколько видимых ячеек в сетке (dbGriid), и оказался не прав.
Но видимо что-то вызывает "invalidate" или "repaint", как подсказали.

[Аватар]

Ну вывалилось твое сообщение, после его удаления с экрана форма перерисовывается вместе с гридом и опять отрабатывает DrawColumnCell для ячеек - вот и зациклилось

[KBO]

Спасибо всем за разъяснения.
Но ведь я немного поправлюсь. Цикл получается при непосрдственном переходе с строки на строку (при щелчке мышки на bdGrrid). А если использовать DBNavigator (как переход с строки на строку), то цикла НЕТ (т.е. сообщение вывалется определенное количество раз). Но я думаю это уже из другой "оперы".

[KBO]

Сообщение от Gulik

Это событие DrawColumnCell возникает каждый раз когда перерисовывается ячейка в DBGrid.
Я как понял тебе нужно выполнять некий код при переходе на следующую (предыдущую) строку. Если так то используй событие DataSet`а AfterScroll

Я бы последовал(ю) совету "Gulik", но мне тогда придется использовать глобальную переменную (чтобы передать параметр из AfterScroll в DrawColumnCell), что мне не хотелось делать.
Я вообщето против, применения глобальных переменных в приложениях.