VPF::ListView - Форум программистов

Alexeis

Дата 15.6.2006, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

ZBugz,

Цитата(ZBugz @ 15.6.2006, 14:32

)

И ето отоже написал.

Описано что не работает в вашем коде, а не в нашем. В режиме Report - у меня вообще все представленные варианты работают.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ZBugz

Дата 15.6.2006, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Код как код.
я уже не знаю как еще спросить. smile

Multiselect:=True, vsReport.

Имею к примеру 5 строк и 5 столбцов.

Выделяю первую строчку полность и третью. Пришу ListView.DeleteSelected, он строки удаляет, но они остаются выделенными и пустыми.
Т.Е. получается, что при удалении они не убираются вообще, а остаются. Мне нужно чтоб они вообще проопали.

Получается, что типа:
Строка
1-пусто
2-Данные
3-пусто
4-данные
5-данные

А нужно чтоб, после удаления было так:
1-данные
2-данные
3-данные

skyboy

Дата 15.6.2006, 16:07 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

ZBugz, у тебя "рабочий" проект? попробуй провернуть в пустом приложении(где только и есть, что listview на форме... ну, и кнопка ещё - и больше ничего), потом, если не заработает, закинь все файлы проекта в архив и прикрепи к посту. Посмотрим, что там не так...

Alexeis

Дата 15.6.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Я немного переделал код
Matematik,
и у меня получилось так как вы хотели

Код


procedure TForm1.btn1Click(Sender: TObject);
var
 j:integer;
begin
  for j:= lv1.Items.Count - 1 downto 0 do
  if lv1.Items[j].Selected
  then
    lv1.items.delete(j)
end;

--------------------

ZBugz

Дата 15.6.2006, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Спасибки.

Код


procedure TForm1.btn1Click(Sender: TObject);
var
 j:integer;
begin
  for j:= lv1.Items.Count - 1 downto 0 do
  if lv1.Items[j].Selected
  then
    lv1.items.delete(j)
end;

Все заработало.

smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »