| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправить на печать все строки TMemo [D7, WinXP]
Димон © (2006-02-27 08:10:00)Добрый день мастра ! Подскажите как отправить содержимое
memo на печать ? Заранее спасибо...
Almaz (2006-02-27 09:50:00) [1]
> Довольно сложно.
Ну это смотря как делать.
> Добрый день мастра ! Подскажите как отправить содержимое
>
> memo на печать ? Заранее спасибо...
Подключаете модуль Printers, а дальше четыре строчки кода:
var
P: TextFile;
begin
AssignPrn(P);
Rewrite(P);
Write(P, Memo1.Text);
CloseFile(P);
end;
Удачи.
Defunct (2006-02-27 08:32:00) [2]Довольно сложно.
подключаем модуль Printers, читаем справку про функцию Printer и класс TPrinter.. формируем постранично Bitmap'ы и выводим с помощью Printer.BeginDoc/Printer.Canvas.Draw/Printer.EndDoc
Более подробный пример можете посмотреть в реализации методов TForm.Print, RichEdit.Print.
Димон (2006-02-27 08:20:00) [3]Я понимаю, что глупо использовать memo когда есть масса других возможностей. Просто это задача в колледж которую придумал не я,
подскажите плиииз как отправить на печать Tmemo.
Defunct (2006-02-27 08:13:00) [4]Димон, искрене советую вам вместо memo взять richedit и воспользоваться процедурой Print
| |
