|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с накопителями
Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для печати списка выделенных объектов файловой системы. Спасибо за внимание! |
#2
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#3
|
|||
|
|||
Хочу, чтобы исходя из данной формы приложения производилась печать списка выделенных объектов файловой системы. (см.вложение)
|
#4
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#5
|
|||
|
|||
Как заставить печатать выделенные объекты?
|
#6
|
||||
|
||||
Цитата:
Как распечатывать содержимое Memo здесь уже описано. Поэтому я пока не пойму чем отличаются эти задания. |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#7
|
||||
|
||||
Тэкс, имеем не умение задавать вопросы, и не умение понять простой вопрос от избытка знаний
Вы хотите получить список имен файлов, каталогов выделенных в левом окне или же вам нужно еще и содержимое каталогов распечатать? И в каком виде вы хотите это распечатать, как снимок левой части экрана, или просто как список. А может вам нужно содержимое файла, что скрыто под ярлыком распечатать? Во сколько вопросов встречных появилось. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#8
|
|||
|
|||
Цитата:
Я хочу распечатать только список выделенных объектов. |
#9
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#10
|
|||
|
|||
Цитата:
Да, конечно. |
#11
|
||||
|
||||
Цитата:
|
#12
|
|||
|
|||
Cписок файлов, которые выделены в ShellListView
|
#13
|
||||
|
||||
Цитата:
Код:
uses Printers; procedure TForm1.Button2Click(sender: tobject); var Prn: TextFile; i: integer; begin if ShellListView1.SelCount = 0 then raise Exception.Create('Ничего не выделено'); AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер Rewrite(Prn); // Готовим принтер к печати // Цикл печати: for i := 0 to ShellListView1.Items.Count - 1 do begin if ShellListView1.Items[i].Selected then Writeln(Prn, ShellListView1.Folders[i].PathName); end; CloseFile(Prn); end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#14
|
|||
|
|||
А как выделить несколько элементов файловой системы?
|
#15
|
||||
|
||||
Цитата:
Если речь идёт о ShellListView, то ещё нужно у него установить свойство MultiSelect в True. |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|