Проблема с функцией CreatePen GDI в Windows 7

Question

Функция CreatePen GDI не работает в Windows 7, когда ширина пера 3 или 4 (LineTo ничего не рисует). Работает на 0 - 2 ширины. Во всех случаях использовался стиль пера PS_SOLID.

Answer 1

LineTo не включает конечную точку линии. Попробуйте другой параметр endcap, чтобы увидеть, если он имеет значение.

Answer 2

возвращает ли он дескриптор или NULL?
Вы рассматривали возможность использования CreatePenIndirect и структуры LOGPEN?
http://msdn.microsoft.com/en-us/library/dd183510(v=VS.85).aspx
http://msdn.microsoft.com/en-us/library/dd145041(v=VS.85).aspx
это просто отлично работает на моем компьютере, Windows 7 x64:

Option Explicit

Private Declare Function CreatePen Lib "gdi32" ( _
   ByVal nPenStyle As Long, _
   ByVal nWidth As Long, _
   ByVal crColor As Long) As Long

Private Declare Function LineTo Lib "gdi32" ( _
   ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SelectObject Lib "gdi32" ( _
   ByVal hDC As Long, ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" ( _
   ByVal hObject As Long) As Long

Dim x As Long
Dim y As Long
Dim w As Long

Private Sub Command1_Click()
   w = w + 1
   Dim hpen As Long: hpen = CreatePen(0, w, 0)
   Dim ret As Long: ret = SelectObject(Me.hDC, hpen)
   If ret <> 0 Then
       x = x + 10
       y = y + 10
       Call LineTo(Me.hDC, x, y)
   End If
   Call DeleteObject(hpen)
End Sub

нажмите кнопку несколько раз