Проблема с рисованием на канве TDBGrid

← →
madmech © (2010-08-31 14:33) [0]

Проблема такова. Работаю со стандартным TDBgrid, на заголовках которого вручную рисую стрелки или др. объекты в случае сортировки по этим заголовкам. Все работает нормально до поры до времени, но как только курсор попадает на "белое", незанятое информацией (записями) пространство грида ровно под сортировочным столбцом (полем), графический объект начинает "плыть" и моргать. При отведении курсора с сортировочного столбца мигание исчезает.
В чем может быть загвоздка? Раньше работал на D7 или на BDS2006, этого недоразумения не возникало, а как только перешел на D2010, появилось. Скрины грида я по необходимости предоставлю.
Сразу оговорюсь: другие компоненты и библиотеки типа EhLib можете не предлагать, т.к. я изменил до неузнаваемости имеющийся грид, добавив к нему множество своих возможностей, учитывающих специфику поставленной задачи, по сути, создав свой компонент. Мне проще было работать "с нуля", с чистого листа, взяв за основу самый простой компонент.

← →
Юрий Зотов © (2010-08-31 19:28) [1]

> В чем может быть загвоздка?

Похоже, когда курсор попадает в эту зону, начинается непрерывная перерисовка. А почему она начинается - это надо код смотреть.

← →
Игорь Шевченко © (2010-08-31 21:08) [2]

> В чем может быть загвоздка?

в обработке сообщения WM_MOUSEMOVE

← →
madmech © (2010-09-27 18:12) [3]

Проблема по-прежнему актуальна, я наконец-то завершил всю рутинную работу, которая не давала мне сосредоточть свое внимание на этой ошибке.
Привожу код отрисовки объекта:

procedure TMainForm.FIODBGridDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin with FIODBGrid do begin ... DefaultDrawDataCell(Rect, Field, State); // Отрисовка сортировочных стрелок на заголовках при сортировке // Рисуем только в случае, когда нет сортировки по EE if FlagM_EE = 0 then begin if DM1.MCDS.IndexName = "IndexFIO1" then if Field.Index = 4 then DM1.TitleImList.Draw(Canvas, Rect.Left, 0, 0); if DM1.MCDS.IndexName = "IndexFIO2" then if Field.Index = 4 then DM1.TitleImList.Draw(Canvas, Rect.Left, 0, 1); end; ... end; end;

> Похоже, когда курсор попадает в эту зону, начинается непрерывная
> перерисовка. А почему она начинается - это надо код смотреть.
>

Отключил все перерисоки, какие только можно, оставив только ту, код которой привел выше. Все равно "моргание" осталось.

> в обработке сообщения WM_MOUSEMOVE

Я его не обрабатываю.

Может быть, есть еще какие-нибудь едеи? Кто-нибудь сталкивался с такой же или похожей проблемой?

Если что, DM1.TitleImList - это компонент TImageList, лежащий в модуле данных.

Проблема с рисованием на канве TDBGrid Найти похожие ветки