Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
ВнизПомогите - 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c