Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];
ВнизИзменение шрифта в канвасе Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c