|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Цитата:
А в Memo должен отображаться список выделенных файлов для печати? |
#17
|
||||
|
||||
Цитата:
|
#18
|
|||
|
|||
Дело в том, что когда выводил в текстовое поле путь к выбранным в компоненте класса TShellListView объектам весь результат описывался в Memo. Вот поэтому и уточняю
|
#19
|
||||
|
||||
Печатает на принтере и выводит в Memo:
Код:
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); // Готовим принтер к печати Memo1.Clear; // Цикл печати: for i := 0 to ShellListView1.Items.Count - 1 do begin if ShellListView1.Items[i].Selected then Writeln(Prn, ShellListView1.Folders[i].PathName); Memo1.Lines.Add(ShellListView1.Folders[i].PathName); end; CloseFile(Prn); end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (23.11.2013)
|
#20
|
|||
|
|||
Вот это и имел ввиду.
Теперь все работает. В очередной раз большое спасибо |
#21
|
||||
|
||||
Цитата:
Код:
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); // Готовим принтер к печати Memo1.Clear; // Цикл печати: for i := 0 to ShellListView1.Items.Count - 1 do begin if ShellListView1.Items[i].Selected then begin Writeln(Prn, ShellListView1.Folders[i].PathName); Memo1.Lines.Add(ShellListView1.Folders[i].PathName); end; end; CloseFile(Prn); end; |