Печать TMetafile на черно-белом принтере

← →
Nikolai_S © (2002-09-23 12:31) [0]

При печати изображения из TMetaFile на черно-белом принтере цветной текст печатается белым цветом и если у текста нет фона, то его совсем не видно на бумаге. Печатаю так:
.........
Printer.Canvas.StretchDraw(Rect, MetaFile);
.........
Причем если печатаю данный метафайл из программы ACDSee - то эффект тот же самый. Как заставить текст метафайла печататься оттенками серого цвета?

← →
MBo © (2002-09-23 12:44) [1]

Если нет возможности настроить принтер, чтобы он печатал цветное, придется править метафайл - в структурах EMR_SETTEXTCOLOR менять цвет

← →
Nikolai_S © (2002-09-23 12:48) [2]

Ну так как этот метафайл я в программе сам создаю и рисую, то может создавать временный метафайл и рисовать на нем оттенками серого, а потом выводить на печать? Только как преобразовать заданный цвет в оттенок серого?

← →
BOA_KAA © (2002-09-23 13:07) [3]

Коэффициенты перехода от RGB к оттенкам серого такие

var Gray: Byte; ... Gray := Round((0.30 * GetRValue(RGBColor)) + (0.59 * GetGValue(RGBColor)) + (0.11 * GetBValue(RGBColor ))); Result := RGB(Gray, Gray, Gray);

Целочисленная формула в другой твоей ветке

Печать TMetafile на черно-белом принтере Найти похожие ветки