Скачать: CL | DM;

Помогите - ListView !!!   Найти похожие ветки 

← →
BAHO ©   (2002-05-04 04:20) [0]

Подскажите как в ListView со столбцами разукрасить ячейки...
но так чтобы при изменении в них текста небыло видно перерисовки...!(мелькания)
я делаю так::

procedure TCCS.ListView1CustomDrawSubItem(Sender:TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
const
NoConCol=tcolor($AAAAFF);
YeConCol=tcolor($AFFAAA);
begin
PatBlt(ccs.Canvas.Handle,0,0,ccs.ClientWidth,ccs.ClientHeight,WHITENESS);//это для того чтобы не переполнялся Canvas
case subitem
of
1:if ListView1.Canvas.Brush.color<>NoConCol
then ListView1.Canvas.Brush.color:=NoConCol;
2:
begin
if ListView1.Canvas.Brush.color<>YeConCol
then ListView1.Canvas.Brush.color:=YeConCol;
end;
end;
end;:

подскажите чего я делаю не так...
Заранее спасибо...:

---

← →
BAHO ©   (2002-05-07 02:50) [1]

HELP

---

← →
Кулюкин Олег ©   (2002-05-07 08:28) [2]

RTFM
TListItems.BeginUpdate,
TListItems.EndUpdate

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c