Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизПечать TMemo Найти похожие ветки
← →
Vadia (2002-11-03 15:49) [0]Как бы мне разобраться с печатью тмемки? Вот текст процедуры:
procedure TForm1.Print(Sender: TObject);
begin
with Printer do
Begin
BeginDoc;
Memo1.PaintTo(Handle,10,10);
EndDoc;
End;
end;
В результате мой принтер печатает TMemo. Всё хорошо, но печатает он её очень мелко в левом верхнем углу. Как изменить масштаб или растянуть эту мему на весь лист A4?
← →
BOA_KAA (2002-11-03 17:01) [1]procedure TFormI.ButtonlClick(Sender: TObject);
var
Y,dY,k: Integer;
begin
if Memol.Lines.Count=0 then Exit;
Screen.Cursor := crHourGlass;
with Printer do
begin
BeginDoc;
with Printer.Canvas do
begin
Font := Memol.Font;
dY := TextHeight("1"); // Определяем высоту строки
Y := 2*dY; // Отступ от верхнего края листа
for k := 0 to Memol.Lines.Count-1 do
begin
//Выводим очередную строку TextOut(О,Y,Memol.Lines[k]);
//Смещаемся на следующую строку листа
inc(Y,dY) ;
if PageHeight-Y<2*dY then
// Нижний край листа?
begin //Да
NewPage; //Переход на новый лист
// Выводим номер страницы
TextOut(0,0,"с."+IntToStr(PageNumber)) ;
Y := 2*dY
end;
end;
end;
EndDoc;
end;
Screen.Cursor := crDefault;
end;
Всего лишь пример из книги...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c