Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

Как напечатать выделенный кусок текста?   Найти похожие ветки 

 
Andrey007   (2003-11-17 16:36) [0]

В свойствах TPrintDialog"а я нашёл poSelection, которому надо присваивать True, чтобы пользователь мог выбрать печать выделенного фрагмента текста. А вот при реализации самой печати как найти это самое выделение?
Вот:
procedure TMessag.PrintClick(Sender: TObject);
var PrintText: TextFile; {declares a file variable}
begin
try
if PrintDialog.Execute then
begin
AssignPrn(PrintText);
ReWrite(PrintText);
Printer.Canvas.Font:=Memo.Font;
Printer.Canvas.Pen:=Canvas.Pen;
Printer.Canvas.Brush:=Canvas.Brush;
if PrintDialog.PrintRange=prAllPages then WriteLn(PrintText,Memo.Text)
else WriteLn(PrintText,Memo.Text); // вот тут-то и надо что-то исправить
CloseFile(PrintText)
end
except
on E: Exception do ShowMessage(E.Message)
end
end;


 
Anatoly Podgoretsky ©   (2003-11-17 16:40) [1]

Надо скопировать выделенный текст в переменную и уже ее распечатать.


 
Murad ©   (2003-11-17 16:54) [2]

1.TPrintDialog.Options := TPrintDialog.Options + [poSelection]
2.TMemo.SelText - выделеный текст



Страницы: 1 вся ветка

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
14-90053
tytus
2003-11-06 10:49
2003.11.27
WindowsXP SP2


6-90023
Sirus
2003-10-01 15:07
2003.11.27
Как организовать докачку файлов с ServerSocket и ClientSocket?


1-89896
Kacnep
2003-11-17 15:24
2003.11.27
Настройки в TTreeView зачем и как реализовать?


3-89687
GIL
2003-11-06 12:01
2003.11.27
неправильная дата


1-89866
Varelik
2003-11-13 14:01
2003.11.27
Рассыпается дизайн при смене крупного шрифта системы на мелкий.