Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Напечатать из Memo или ListBox, ...но при этом влиять на шрифты... КАК? 
:(
    Опции темы
bagira
Дата 27.2.2011, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

Репутация: нет
Всего: 123



Небольшая программа производит некие действия.
И вот - пишет результат в Memo или ListBox (выбор между ними не принципиален).

И надо напечатать это по нажатию кнопочки.

Подскажите, как сделать это, не просто напечатать, а чтобы нужным шрифтом.

Я нашла решение в DRKB, хорошее, но по нему печатается все время одним шрифтом, но начальству нужен другой.
Времени, совсем нет, начальство торопит, а у меня голова не работает, чтобы придумать правильно.

Ну помогите, пожалуйста!


--------------------
Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour 
PM MAIL WWW ICQ   Вверх
superVad
Дата 27.2.2011, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15



bagira, а если поменять шрифт в самом Мемо? Поможет?
PM MAIL   Вверх
cat512
Дата 27.2.2011, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15



Ну так установи Font принтеру и будет боссу щастье
Код

procedure test;
var F, OldFont: TFont;
begin
  F := TFont.Create;
  try
    OldFont := Printer.Canvas.Font;
    Printer.Canvas.Font := F;
    //печатаем
    Printer.Canvas,Font := OldFont;
  finally
    F.Free;
  end;
end;


Добавлено через 2 минуты и 48 секунд
Надеюсь, как инициализировать объект шрифта другими значениями ты знаешь. smile 
PM MAIL   Вверх
Данкинг
Дата 27.2.2011, 12:45 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130



Цитата(bagira @  27.2.2011,  12:17 Найти цитируемый пост)
а чтобы нужным шрифтом.

Конечно же, через отчёты. Снова-таки FastReport рулит. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 27.2.2011, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Из-за нескольких строк покупать, ставить, изучать FastReport?  smile Класс!

Добавлено через 40 секунд
а если так?
http://www.google.com/search?ie=UTF-8&...48041ec4180e82a
PM MAIL   Вверх
Данкинг
Дата 27.2.2011, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130



Ну, мне проще было бы вставить текст из Memo в отчёт, нежели вникать в тонкости TPrinter, в которые я, впрочем, никогда и не вникал.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
MetalFan
Дата 28.2.2011, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128



Цитата(bagira @  27.2.2011,  12:17 Найти цитируемый пост)
Я нашла решение в DRKB, хорошее, но по нему печатается все время одним шрифтом

и что же это за решение? нельзя его доработать под свои нужды?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
bagira
Дата 28.2.2011, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

Репутация: нет
Всего: 123



Цитата(superVad @  27.2.2011,  14:27 Найти цитируемый пост)
bagira, а если поменять шрифт в самом Мемо? Поможет? 

Это я пробовала сразу, не помогает.
Совсем никак не зависит...

Цитата(MetalFan @  28.2.2011,  13:00 Найти цитируемый пост)
и что же это за решение? нельзя его доработать под свои нужды? 

Пока не знаю, как доработать. Если подскажете, буду очень благодарна!!!
  smile

Добавлено через 2 минуты и 31 секунду
Цитата(cat512 @  27.2.2011,  14:36 Найти цитируемый пост)
Ну так установи Font принтеру и будет боссу щастье

Попробую разобраться! Спасибо!
Просто по времени не успеваю ничего.

Добавлено через 7 минут и 36 секунд
Цитата(Данкинг @  27.2.2011,  14:45 Найти цитируемый пост)
Конечно же, через отчёты. Снова-таки FastReport рулит.

Спасибо! Ну в дальнейшем-то конечно, а вот сейчас прямо - не успею все это изучить!

Добавлено через 10 минут и 13 секунд
Цитата(Akella @  27.2.2011,  16:13 Найти цитируемый пост)
а если так?

Спасибо! Пошла скачивать, изучать!

Всем-всем спасибо, кто откликнулся!!!
Пошла пробовать все варианты, потом напишу, помогло ли.
Торопят меня ....  smile 


--------------------
Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour 
PM MAIL WWW ICQ   Вверх
cat512
Дата 28.2.2011, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15



Поиском хотя бы учись пользоваться!
http://forum.codeby.net/lofiversion/index.php/t28819.html  
PM MAIL   Вверх
MetalFan
Дата 28.2.2011, 17:15 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128



Цитата(bagira @  28.2.2011,  14:31 Найти цитируемый пост)
Если подскажете, буду очень благодарна!!!

я не вижу кода, по которому можно что-то "подсказывать", а "нашла решение в DRKB", довольно размытое утверждение.

Это сообщение отредактировал(а) MetalFan - 28.2.2011, 17:20


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0889 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.