Главная страница
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.022 c
14-47761
Gu
2002-06-11 18:03
2002.07.15
Разгон монитора с 15 до 17


1-47327
Алибаба
2002-07-01 11:55
2002.07.15
Интерфейс


1-47467
Dave
2002-07-03 16:08
2002.07.15
Системная палитра Windows


3-47139
jaric
2002-06-18 16:14
2002.07.15
Как испоьз в одном запросе 2 dbf-ки из разных каталогов


4-47878
Марина
2002-05-13 12:08
2002.07.15
GetUserName и Win95