Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ShellListView, надо упорядочить... 
:(
    Опции темы
Monty
  Дата 1.5.2003, 01:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
Вот я мучаюсь с упорядочиванием файлов в ShellListView при нажатии на Column (табулятор что ли :-)
Здешние факи я читал, ни чего не работает sad.gif , а больше я не нашел sad.gif .


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
&-ray
Дата 1.5.2003, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет
Я работаю с ListView, но надо полагать - это предок твоего ShellListView.
Если так, то у него есть свойство:
ListView.SortType:=stText (сортирует по caption)


--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
Monty
  Дата 1.5.2003, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
Не , не работает sad.gif , а вот это получается , но нет результата при нажатии...


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
Monty
Дата 2.5.2003, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
и мне ни кто не поможет ? вотвы какие smile.gif


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
&-ray
Дата 3.5.2003, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет
а не пробовал обновить после всего этого дела:

lv1.updateitems(0,lv1.items.count-1)


--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
&-ray
Дата 3.5.2003, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет
Тот пример у меня тоже не идет.
Предлагаю альтернативу, причем попроще (по моему мнению):
Код

//вводим переменную
ColumnToSort: integer;

//заполняем как в том примере
procedure TForm1.Button1Click(Sender: TObject);
var sr:tsearchrec;
Item: TListItem;
begin
if FindFirst('c:\*.*',faAnyFile, sr) = 0 then repeat
   if (sr.Attr and faDirectory) <> sr.Attr then
   begin
     item:=lv1.items.add;
     item.Caption:=sr.name;
     Item.SubItems.Add(datetimetostr(filedatetodatetime(sr.time)));
   end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
ColumnToSort := Column.Index; //фиксируем индекс колонки на которой был клик
(Sender as TCustomListView).AlphaSort; //сортируем список, чтобы вызвать метод OnCopare
end;

procedure TForm1.lv1Compare(Sender: TObject; Item1, Item2: TListItem;
 Data: Integer; var Compare: Integer);
begin
 case columntosort of
 0: Compare := CompareText(Item1.Caption,Item2.Caption); //сортируем по имени файла
 1: begin
    //сравниваем дату создания файлов и присваиваем соответствующее значение переменной compare
    if strtodatetime(Item1.SubItems[0])<strtodatetime(Item2.SubItems[0]) then Compare:= -1;
    if strtodatetime(Item1.SubItems[0])=strtodatetime(Item2.SubItems[0]) then Compare:= 0;
    if strtodatetime(Item1.SubItems[0])>strtodatetime(Item2.SubItems[0]) then Compare:= 1;
    end;
 end;
end;



--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
Monty
  Дата 6.5.2003, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
спасибо, но неработает с ShellListView sad.gif
у тебя точно в ShellListView это работало?


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
i...
Дата 6.5.2003, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 6.5.2003

Репутация: нет
Всего: нет
А как отсортировать в ListView по файлам и папкам так, чтобы сперва шли папки отсортированные по алфавиту, а потом файлы тоже по алфавиту. (короче также, как и у ShellListView)
PM MAIL   Вверх
Monty
Дата 6.5.2003, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
вот это глянь


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
&-ray
Дата 6.5.2003, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет
Цитата
спасибо, но неработает с ShellListView
у тебя точно в ShellListView это работало?


Я работаю только в ListView. А ShellListView в D5 нет, так что ничего подсказать не смогу.


--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
Monty
  Дата 7.5.2003, 01:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Advanced Lamer
****


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

Репутация: нет
Всего: 27
Цитата
Я работаю только в ListView. А ShellListView в D5 нет, так что ничего подсказать не смогу
спасибо за помощь smile.gif

может я перейду на ListView, когда ShellListView окончательно достанет biggrin.gif

PS у тебя есть исходник чтоб ListView превратить в проводник ;)


--------------------
...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!
PM MAIL ICQ   Вверх
i...
Дата 7.5.2003, 07:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 6.5.2003

Репутация: нет
Всего: нет
Цитата(Monty @ 7.5.2003, 01:39)
Цитата
может я перейду на ListView, когда ShellListView окончательно достанет biggrin.gif

PS у тебя есть исходник чтоб ListView превратить в проводник ;)

Лучше сейчас переходи, чем на готовом сидеть.

Точно такой же, как Проводник? Он же получается, если скрестить ShellTreeView, ShellComboBox и ShellListView

У меня есть самописный файловый менеджер с использованием ListView...
PM MAIL   Вверх
&-ray
Дата 7.5.2003, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет
Цитата
может я перейду на ListView, когда ShellListView окончательно достанет 

PS у тебя есть исходник чтоб ListView превратить в проводник ;)


Сейчас нету, но в принципе здесь ничего сложного нет:
я делал так:
в ListView делал список файлов, а структуру каталогов делал в TreeVeiw


--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
smoogue
Дата 8.12.2022, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.11.2022

Репутация: нет
Всего: нет
<a href=https://bestcialis20mg.com/>cheapest cialis</a> 6 days ago reddit
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1693 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.