Delphi5
ListView в режиме vsReport
Перекрыт OnCustomDrawSubItem

После вызова в runtime метода Repaint не отрисовываются заголовки колонок.
В чем трабл?

Здравствуйте, topgun, Вы писали:

[]

T>После вызова в runtime метода Repaint не отрисовываются заголовки колонок.
T>В чем трабл?

Код метода — в студию...

F>Код метода — в студию...

Уже нашел решение, но может еще кто-то что-то еще подскажет!

На CustomDrawSubItem рисуются CheckBox'ы через DrawFrameControl
В конце метода заполнения ListView (проставляются галки в checkbox) вызывается Repaint
При этом заговки пропадают, т.е. на их месте серый прямоугольник.
Поборол вот таким способом:

-> ListView.Columns.BeginUpdate;
ListView.Repaint;
-> ListView.Column.EndUpdate;

Здравствуйте, topgun, Вы писали:


T>На CustomDrawSubItem рисуются CheckBox'ы через DrawFrameControl
T>В конце метода заполнения ListView (проставляются галки в checkbox) вызывается Repaint
T>При этом заговки пропадают, т.е. на их месте серый прямоугольник.
T>Поборол вот таким способом:

->> ListView.Columns.BeginUpdate;
T>ListView.Repaint;
->> ListView.Column.EndUpdate;

Я же говорю — код в студию... Тогда будет понятней, в чем может быть проблема...

F>Я же говорю — код в студию... Тогда будет понятней, в чем может быть проблема...

Спасибо за участие, но действительно проблема решена.
Больше вопросов нет, извините ...

Здравствуйте, topgun, Вы писали:



T>Спасибо за участие, но действительно проблема решена.
T>Больше вопросов нет, извините ...

Пожалей остальных, вдруг у кого-то будет подобная проблема?...
Научился сам — научи других Или уважаемый topgun против альтруизма?

Р>Пожалей остальных, вдруг у кого-то будет подобная проблема?...
Р>Научился сам — научи других Или уважаемый topgun против альтруизма?

Я написал свой контрол — аналог раздачи прав на каталог в WinNT, используя TListView.
И вызывал Repaint не ListView, а контрола, от которого отнаследовался.
Так что это мой баг и здесь учиться нечему