Изменение шрифта в канвасе

← →
ss300 (2003-10-22 07:17) [0]

доброе утро мастера!
посмотрите код пожалуйста:

AssignPrn(MyFile);
Rewrite(MyFile);
printer.Canvas.Font := 20;
Writeln(MyFile," "+ datetostr(dt.Date));
Writeln(MyFile," "+Form1.cf);
Writeln(MyFile," "+inttostr(n));
System.CloseFile(MyFile);

печатается нормально, но шрифт не увеличивается? что делать?
заранее кланяюсь

← →
MBo © (2003-10-22 07:23) [1]

AssignPrn не имеет непосредственного отношения к TPrinter
При этом ты работаешь с принтером как с текстовым файлом, используется текущий шрифт принтера.

← →
BelAS © (2003-10-22 07:26) [2]

Тогда уж пиши printer.Canvas.Font.Size:=20

← →
ss300 (2003-10-22 07:30) [3]

я так и написал.. просто забыл Size
не срабатывает пацаны.. ((

И не сработает
Читай MBo © (22.10.03 07:23) много раз, пока не поймешь.
И я бы добавил, что AssignPrn не имеет никакого отношения к TPrinter.

PS
Если уж хочешь. чтобы шрифты менялись - тогда открывай справку по TPrinter.BeginDoc - и удачи. А про AssignPrn - забудь тогда.

← →
ss300 (2003-10-22 08:23) [5]

спасибо

Изменение шрифта в канвасе Найти похожие ветки