Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

Ошибка в ListView на onCustomDrawItems   Найти похожие ветки 

 
TYB   (2006-04-14 12:02) [0]

Замучал вот такой глюк, сначала код:
procedure TForm1.OnCustomDrawItem(Sender: TCustomListView;
 Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If Item <> nil Then
If  Условие Then
with TCustomListView(Sender) Do
 begin
 Canvas.Font.Style :=[fsBold]
end;
end;

Т.е. при определенном условии пункты в ListView отображаются
жирным шрифтом.
Так вот когда присутсвует код выше происходит по сути
полный сбой программы она зависает, компоненты на форме
не отрисовываются.
Когда ремарю эту строчку Canvas.Font.Style :=[fsBold]
все работает как часы.

Сбой точно из-за строки выше, но вот почему не пойму.
Может кто сталкивался с этим?


 
Gero ©   (2006-04-14 16:49) [1]

Я сталкивался с подобным. Дело наверняка в кривой реализации VCL. Проблема решилась только отказом от использования VCL-customdraw и отлове NM_CUSTOMDRAW, где и производилась прорисовка.


 
kilkennyCat ©   (2006-04-14 18:25) [2]

with TListView(FindComponent("...." + inttostr((Sender as Tcomponent).tag))) do
 Font.style...

Жутко выглядит, но у меня так заработало.


 
kilkennyCat ©   (2006-04-14 18:25) [3]

гм... прошу прощения, это не для итема....



Страницы: 1 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
10-1119957904
An
2005-06-28 15:25
2006.05.28
DDE


15-1146112390
Карелин Артем
2006-04-27 08:33
2006.05.28
Нужны программисты в Самаре на полный день.


15-1146300488
Petr V. Abramov
2006-04-29 12:48
2006.05.28
Ну наконец-то :)


2-1146014409
DimonS
2006-04-26 05:20
2006.05.28
MS SQL в ХР и 2000 Вмндоусе. Почему работает по разному?


2-1147118420
Vitalik__
2006-05-09 00:00
2006.05.28
функции