Проблема с функцией 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 

нажмите кнопку еще раз