У меня чёта FrameRgn(m_hDC, hRgn, hBrush, I, I) работает не так как надо... возвращает 0 и соответственно не рисует ни фига...
Как такое безобразие можно исправить?
Dim R As RECT
tmp = GetWindowRect(hWnd, R)
Dim m_hDC&, hDC&, hRgn&
m_hDC = Me.hDC
hDC = GetWindowDC(hWnd)
hRgn = CreateRectRgnIndirect(R)
tmp = GetWindowRgn(hWnd, hRgn)
If tmp Then
tmp = OffsetRgn(hRgn, R.Left, R.Top)
End If
tmp = SetWindowRgn(Me.hWnd, hRgn, True)
Dim hBrush&, I&
For I = 32 To 1 Step -1
hBrush = CreateSolidBrush((I - 1) * &H80808)
tmp = SelectObject(m_hDC, hBrush)
tmp = FrameRgn(m_hDC, hRgn, hBrush, I, I)
tmp = DeleteObject(hBrush)
Next
Picture = Image
tmp = ReleaseDC(hWnd, hDC)
Сейчас этот форум просматривают: SemrushBot и гости: 160