Пунктирная линия толще 1 пт

[Alec]

Есть ли какие-нибудь способы нарисовать пунктирную (штрих-пунктирную и проч.) линии толщиной более 1 пт? Или придется циклом по кусочкам (что по моему не есть гуд...)

[alibek]

О чем речь?

[pronto]

CreatePen со стилем PS_DASH (=1) и заданной толщиной..?

[Alec]

Вообще метод Line и свойства DrawStyle, DrawWidth.
MSDN: "If DrawWidth property setting is greater than 1, DrawStyle property settings 1 through 4 produce a solid line"
А что,

CreatePen со стилем PS_DASH (=1) и заданной толщиной

поможет? Просто-так все переписывать под API не хочется (да и не шибко умеется...)

[tyomitch]

Вообще метод Line и свойства DrawStyle, DrawWidth.
MSDN: "If DrawWidth property setting is greater than 1, DrawStyle property settings 1 through 4 produce a solid line"
А что,

CreatePen со стилем PS_DASH (=1) и заданной толщиной

поможет?

Нет.

CreatePen returns a pen with the specified width bit with the PS_SOLID style if you specify a width greater than one for the following styles: PS_DASH, PS_DOT, PS_DASHDOT, PS_DASHDOTDOT.

[Alec]

Потому-то и задан такой вопрос... Как быть?

[tyomitch]

Переходить на GDI+

[pronto]

Извиняюсь за дезу, конечно, ExtCreatePen!
P.S. Нет необходимости все переписывать! Достаточно только тот участок, который отрисовывает прямые. Если появится желание переписать, то выложу примерчик.

[Alec]

Достаточно только тот участок, который отрисовывает прямые

А как учесть тот факт, что данные о координатах у меня в сантиметрах (и соответственно его долях, тип Single), ScaleMode - сантиметры плюс масштабирование... Пробовал в таких условиях выводить сетку через API, попасть в координаты так и не смог. Так что или все или ничего... Только вот ко "всему" пока морально не готов...
Но за наводку спасибо, может и решусь...

[Alec]

Ну, за сутки перевел всю свою графику в использование API.
Теперь пытаюсь вместо CreatePen использовать ExtCreatePen, но она почему-то всегда возвращает 0.
Может у нее какие-нибудь особенности?
Вызываю так:

Код: Выделить всё

PS_ = PS_SOLID 'пока пытаюсь заставить работать так
'...
With Brush
    .lbStyle = BS_SOLID
    .lbColor = FC_
    .lbHatch = 0
  End With
hPen = ExtCreatePen(PS_ Or PS_GEOMETRIC , DW_, Brush, 0, 0)'так возвращает 0
'  hPen = CreatePen(PS_, DW_, FC_) 'так - работает
  hOldPen = SelectObject(hdc, hPen)
'...


[pronto]

Да, особенности есть. Посмотри пример и все станет ясно.