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

Вниз

ListView и CheckBox   Найти похожие ветки 

 
Yuri Btr ©   (2002-07-02 09:37) [0]

Ув. мастера, как заставить СheckBox"ы появляться рядом с каждым Items в ListView?
У меня стоит ViewStyle:=vsReport и Chekboxes:=True, так же все Items имеют свойство checked:=true
Т.е. все условия из Help выполнены, но chekbox"ы так и не появляются...


 
Yuri Btr ©   (2002-07-02 11:02) [1]

И ещё вопрос в догонку..
Свойство ListItem - Count - Доступно только когда ListView.OwnerData=True ? В других случаях count = 0, а мне нужно перебрать все Items в ListView.


 
MBo ©   (2002-07-02 12:45) [2]

1) ViewStyle:=vsReport и Chekboxes:=True все работает нормально, чекбоксы есть
2) listview1.Items.Count при ListView1.OwnerData=False (как стоит по умолчанию) выдает количество элементов.

так что смотри, что у тебя не в порядке


 
Yuri Btr ©   (2002-07-02 13:10) [3]

to Mbo
Эта процедура срабатывает только при вызове её из ListView1.OnAdvancedCustomDraw, тогда она возвращает правильное количество Items. А во всех других случаях (например при нажатии кнопки) - LV4.Items.Count=0.

procedure CheckHotListView;
var
i:smallint;
begin
for i:=0 to Form1.LV4.Items.Count-1
do
begin
if Form1.LV4.Items.Item[i].Checked=false
then
Form1.LV4.Items.Item[i].ImageIndex:=50
else
Form1.LV4.Items.Item[i].ImageIndex:=51
end;
end;

может что-то с самим ListView?


 
MBo ©   (2002-07-02 13:23) [4]

у меня вот так все работает

procedure CheckHotListView;
var
i:integer;
begin
for i:=0 to Form1.Listview1.Items.Count-1
do
begin
if Form1.Listview1.Items.Item[i].Checked=false
then
Form1.Listview1.Items.Item[i].ImageIndex:=0
else
Form1.Listview1.Items.Item[i].ImageIndex:=1
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=inttostr(listview1.Items.Count);
CheckHotListView;
end;


 
Yuri Btr ©   (2002-07-02 13:35) [5]

to MBo
А вы попробуйте CheckHotListView вызвать напрмер из OnFormCreate, или расположить кнопку, на другой странице PageControl - результат почему то отрицательный.
Заранее спасибо.


 
MBo ©   (2002-07-02 13:47) [6]

и OnFormCreate
и для PageControl
результат положительный ;)


 
Yuri Btr ©   (2002-07-02 13:51) [7]

Всё! я понял - ReadOnly должно быть False! чтобы корректно выдавать количество Items. Правда никакой логики я не вижу в этом.
А checkbox"ы так и не появились :-(

Большое спасибо за сочуствие...



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

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

Наверх




Память: 0.48 MB
Время: 0.01 c
1-47439
Dinara
2002-06-30 14:07
2002.07.15
Как в ShellTreeView раскрыть дерево нужной папки?


1-47403
sokoloff
2002-07-02 16:13
2002.07.15
record в property


3-47111
Oleon
2002-06-21 17:17
2002.07.15
Как в процедуре вставить много записей в таблицу?


6-47639
Sergey_001
2002-05-03 14:52
2002.07.15
У меня к вам два вопроса.


4-47886
strel
2002-05-13 18:25
2002.07.15
Ошибка при выполнении (