Скачать: CL | DM;

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

← →
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
не срабатывает пацаны.. ((

---

← →
KSergey ©   (2003-10-22 08:08) [4]

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

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

---

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

спасибо

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c