ExtCreatePen ???

← →
Alex Shulg © (2004-01-19 15:10) [0]

Добрый день.
Проблема в следующем: При выводе изображения на экран (используя свои собственные стили линий), все нормально, но при выводе на принтер - сплошная линия. В обоих случаях параметры ExtCreatePen одинаковые.
ExtCreatePen(PS_USERSTYLE | PS_GEOMETRIC, ...->Canvas->Pen->Width, &brush, LStmp->Count, lpStyle), где "..." - принтер или PaintBox.
На принтере получается линия моего стиля, только если убрать PS_GEOMETRIC и толщина линии = 1.
Где грабли?

← →
MBo © (2004-01-19 15:28) [1]

возможно, драйвер принтера не поддерживает
попробуй GetDeviceCaps с, вероятно, LC_STYLED или LC_WIDESTYLED
Кстати, если не User, а стандартный стиль (DOT, например) - тоже не хочет

← →
Alex Shulg © (2004-01-19 16:32) [2]

>MBo
Судя по всему поддерживает все возможное...
GetDeviceCaps(Prn->Handle,LINECAPS) возвращает $FE
Таблица из windows.pas:
LC_NONE = 0; { Lines not supported }
LC_POLYLINE = 2; { Can do polylines }
LC_MARKER = 4; { Can do markers }
LC_POLYMARKER = 8; { Can do polymarkers }
LC_WIDE = $10; { Can do wide lines }
LC_STYLED = $20; { Can do styled lines }
LC_WIDESTYLED = $40; { Can do wide styled lines }
LC_INTERIORS = $80; { Can do interiors }

← →
MBo © (2004-01-20 13:37) [3]

Тогда, наверно, придется на битмап соответствующих размеров рисовать, потом его копировать...

← →
Alex Shulg © (2004-01-20 16:49) [4]

Но это же бред какой-то получается... Нафига тогда все эти функции в API? Либо я где-то "галку не поставил", либо Билли - явный ботаник... (и вся его команда туда же...)

← →
MBo © (2004-01-20 16:56) [5]

принтера нет, поиграть с этим не могу..
А в архивах ньюсгрупп (www.tamaracka.com) навскидку такой проблемы не нашел.

А все же - как со стандартными стилями?

← →
Alex Shulg © (2004-01-21 11:31) [6]

А со стандартными работает, но только с толщиной пера = 1, но это вроде как нормально(MSDN: Если значение, указанное nWidth большее чем 1, fnPenStyle параметр должен быть PS_NULL, PS_SOLID, или PS_INSIDEFRAME. )
hpen = CreatePen(PS_DOT, 1, Prn->Canvas->Pen->Color);

А вот ExtCreatePen работает со стандартными и с толщиной пера >1:
hpen = ExtCreatePen(PS_GEOMETRIC | PS_DOT, Prn->Canvas->Pen->Width, &brush,0,0);
Тогда не понятно, что он хочет от USERSTYLE...

Все... вернушвись вновь к этой проблеме, разобрался до конца! Смешно, но дело было в расчете длины штрихов и пробелов в lpStyle. Некорректно расчитывал, получались слишком маленькие значения, отсюда и сплошная линия... :)

Т.е. пробелы были в несколько пикселов принтера, и слишком малы в миллиметрах?

ExtCreatePen ??? Найти похожие ветки