|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.06.2008, 06:58 | #1 |
Регистрация: 27.06.2008
Сообщений: 5
|
Третий день мучаюсь в поисковиках, помогите!
Сделал вариант TotalCommander'а с использованием двух ShellListView. Но возникла проблема с сортировкой по столбцам при нажатии на заголовок. Проверку на нажатие и выбор соответствующего заголовка сделал, а вот с помощью какой процедуры реализуется сама сортировка - не знаю. Код проверки нвжатия на заголовок столбца и выдача названия этого столбца: if Column = ShellListView1.Column[0] then begin Label5.Caption:=ShellListView1.Colu mn[SortColumn].Caption; end и так по каждому столбцу ... Слышал про сортировку как в обычном ListView, но она просто не запускается. Код процедуры: function SortFirstSubItemAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall; begin Result := 0; if AnsiUpperCase( Item1.SubItems[0] ) > AnsiUpperCase( Item2.SubItems[0] ) then Result := ParamSort else if AnsiUpperCase( Item1.SubItems[0] ) < AnsiUpperCase( Item2.SubItems[0] ) then Result := -ParamSort; end; ParamSort - направление сортировки Вызывается так: if Column = ShellListView1.Column[0] then begin ShellListView1.CustomSort(@SortCapt ionAsString,Sorts) end ... и это не работает. Может я что-то неправильно делаю? Подскажите! Очень нужно и срочно! До конца июля! Необходимо сделать подобие проводника (хорошего проводника!) и добавить в него из dll функции по работе с дискетами и флешками для защиты данных студентов от перемещения их данных (которые копируют, с работами, типа курсовых и контрольных) от распространения между студентами. Сама dll с набором функций уже готова. Осталось написать оболочку. Помогите! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ShellListView | SiAlex | Компоненты Delphi | 8 | 28.05.2014 21:42 |
Как создать фильтр в ShellListView? | LeoN | Компоненты Delphi | 5 | 05.07.2010 09:11 |
Маска в ShellListView | SANTA_KLAUD | Общие вопросы Delphi | 4 | 30.05.2008 12:29 |
ShellListView | ant_f_moro | Компоненты Delphi | 0 | 06.01.2008 22:42 |
EXECнуть ITEM от ShellListView | ЧИЖ | Компоненты Delphi | 6 | 02.07.2007 09:43 |