Не создаются группы в ListView.

[Артист]

Совершенно одинаковый код, в тестовом проекте и основном.
Даже в тестовом так же поток сделал.

Не создаются и всё тут:
1.jpg
А в тестовом всё нормально:
2.jpg

Тестовый проект: ChekBox to ListView.rar
Основной проект: Find Copy File.rar

Кто может посмотреть?
2-й день не могу найти причину, всё перепроверил...

П.с. в основном проекте нужно указать папку с 2-мя пустыми текстовыми файлами, и нажать старт.

[Артист]

Создал 3 кнопки на форме с ListView:
Безымянный.jpg

И всё равно не работает.

procedure TForm2.Button1OnClick(Sender: TObject); // Добавить итем
begin
  ListItem := ListView1.Items.Add;
  ListItem.GroupID := GroupID;
  ListItem.Caption := 'Итем №' + IntToStr(ListItem.Index); // Первая колонка
end;
 
procedure TForm2.Button2OnClick(Sender: TObject); // Добавить группу
begin
  Inc(GroupID);
  ListGroup := ListView1.Groups.Add;
  ListGroup.Header := 'Группа №' + IntToStr(GroupID);
  ListGroup.GroupID := GroupID;
end;
 
procedure TForm2.Button3OnClick(Sender: TObject); // Очистить
begin
  ListView1.Clear;
end;

Все свойства ListView выставлены:

GridLines = True
GroupView = True
ViewStyle = vsReport

Даже проверил, может из-за количества колонок, но нет:
2.jpg

[Артист]

Опытным путём выяснил, что группы не создаются из-за настроек проекта.
Только я их не менял, убрал только пару хинтов о том что функция только под винду.
Подключал рабочую форму - не работало.
Пробовал в тестовом через 2ю форму выводить - работало.

[Sciv]

Во-первых, запустил Ваш проект - группы создаются.
Во-вторых, у Вас как-то не очень корректно организована работа с двумя формами: 1) если в первый раз вторую форму со списком дублей закрыть - программа при выходе выдаст ошибку "Недопустимый дескриптор окна";
2) при повторном старте вторая форма не открывается;
3) вторая форма открывается не как модальная, несмотря на ShowModal;
4) если вторая форма открыта и нажать "Старт" - увидите интересную картину: все файлы в форме задвоятся. Потом затроятся, зачетверятся и т.д. при каждом старте.

Подозреваю, что это последствия того, что Вы работаете с компонентами VCL прямо из потока без синхронизации.

[Артист]

Спасибо. ))
Да, ошибки были, перенёс и показ 2й формы и заполнение ListView в синхронизацию, все они исчезли.
А группы не создавались из-за того, что я файл Find_Duplicate.res удалял.
После установки старых компонентов, у меня сложилось мнение, что при каком либо изменении нужно удалять файлы *.dcu, а заодно и те, что создаются автоматически.
Пересоздал проект - всё работает, и даже прогрессбар начал отображаться. ))

[Sciv]

Сообщение от Артист

что при каком либо изменении нужно удалять файлы *.dcu

Не нужно их удалять, они всё-равно ребилдятся каждый раз. В крайнем случае можно делать Compile - Build.

[Артист]

Буду знать теперь, спасибо. ))