|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.04.2008, 18:42 | #1 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
Печать TMemo
Подскажите пожалуйста как сделать чтобы по нажатии на кнопку "Печать" выводилось такое окно как у стандартного блокнота в Windows, и печаталось так же как и написано в TMemo? Я сам над этим думал... но вот все, чего я смог добится:
Код:
Последний раз редактировалось Патрон; 30.04.2008 в 18:45. |
30.04.2008, 19:26 | #2 |
Пользователь
Регистрация: 18.04.2008
Сообщений: 70
|
Похожее окно на то что в блокноте получается.....
кидаешь на форму TPrintDialog с панели Dialogs.. А в своем коде сразу после Begin добавь if PrintDialog1.Execute then begin .. .. ну и естественно end; |
30.04.2008, 19:54 | #3 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
А что от этого изменилось? только бумагу перевел мне нужно чтобы мой блокнот печатал также как и стандартный блокнот в Windows, а тут строки разбиты, и шрифт мелкий
|
30.04.2008, 20:06 | #4 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
Шрифт задаётся в Tmemo, хотя лучше использовать RichEdit, можно положение текста регулировать вот так:
Код:
Карп преодолевший водопад становится драконом.
|
30.04.2008, 21:05 | #5 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
скажите ПОЖАЛУЙСТА функцию НОРМАЛЬНОЙ печати текста в TMemo!
Последний раз редактировалось Патрон; 30.04.2008 в 22:00. |
01.05.2008, 08:58 | #6 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
Вот ещё один метод:
Код:
Карп преодолевший водопад становится драконом.
|
01.05.2008, 14:44 | #7 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
ну уже со строками все впорядке, но шрифт по-прежнему мелкий
Последний раз редактировалось Патрон; 01.05.2008 в 14:50. |
01.05.2008, 14:48 | #8 | ||
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
Цитата:
Цитата:
Карп преодолевший водопад становится драконом.
|
||
01.05.2008, 17:24 | #9 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
|
01.05.2008, 21:00 | #10 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
в примере от nickel добавить
printer.canvas.fornt.size:=20; или любое другое число
программа — запись алгоритма на языке понятном транслятору
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TMemo | Valera | Помощь студентам | 14 | 04.08.2008 10:56 |
TMemo | terminadoor | Помощь студентам | 10 | 23.07.2008 19:41 |
Фон в TMemo | BlackOmen | Общие вопросы Delphi | 3 | 18.06.2008 22:34 |
Tmemo | BlackOmen | Общие вопросы Delphi | 2 | 16.03.2008 21:03 |