Прозрачность в WinApi, применительно к VBA

[fyedor]

Сообщение от fyedor

А BeginPath - это вообще откуда? У меня в редакторе не видит его...

Все, понял откуда - gdi32. Просто до сих пор сам прописываю функции.

[EUGY]

Есть апи-вьюер где они забиты, но я однажды окончательно задолбался копипастить с него декларации и забил все в tlb. Кодить легче и быстрее на порядок, меньше ошибок.

[fyedor]

Сообщение от EUGY

Есть апи-вьюер где они забиты, но я однажды окончательно задолбался копипастить с него декларации и забил все в tlb. Кодить легче и быстрее на порядок, меньше ошибок.

Да, я тоже так сделаю, просто сейчас нет на работе студии, дома соберу все

Сделал как Вы говорили:

    BeginPath hdc
         Call apiPie(hMemDC, X1, Y1, X2, Y2, 4500, 250, 130, 150)
    EndPath hdc
    PathToRegion hdc

но битмэп все равно выводится полностью. Строю регион отсечения перед вызовом AlphaBlend..

[fyedor]

Вот почти полный код:

    hdc = apiGetDC(hwnd)
    deskDC = apiGetDC(hwnd)
    hMemDC = apiCreateCompatibleDC(deskDC)
    
    Dim bfn As BLENDFUNCTION
    Dim f As MyBlendType

    compBMP = CreateCompatibleBitmap(deskDC, 300, 300)
    prevBMP = apiSelectObject(hMemDC, compBMP)

    'Координаты зоны рисования
    X1 = 100
    Y1 = 100
    X2 = 300
    Y2 = 300
    
    BeginPath hdc
         Call apiPie(hMemDC, X1, Y1, X2, Y2, 4500, 250, 130, 150)
    EndPath hdc
    PathToRegion hdc

    MyPen = apigetPen(3, 2, RGB(0, 0, 0))
    Call apiSelectObject(hMemDC, MyPen)
    MyBrash = ApiGetBrush(6, RGB(255, 255, 0))
    Call apiSelectObject(hMemDC, MyBrash)
    
    Call apiPie(hMemDC, X1, Y1, X2, Y2, 4500, 250, 130, 150)

    With bfn
      .BlendOp = AC_SRC_OVER
      .BlendFlags = 0
      .SourceConstantAlpha = 50
      .AlphaFormat = 0
    End With

    LSet f = bfn
    apiAlphaBlend hdc, 0, 0, 300, 300, hMemDC, 0, 0, 300, 300, f.blenfunc

[EUGY]

Так путь то надо строить в контексте формы

[fyedor]

Сообщение от EUGY

Так путь то надо строить в контексте формы

ну т.е. в контексте hdc? пробую - все равно выводится...

[EUGY]

Sorry.

 
 BeginPath hDC
 Pie hDC, ....
 EndPath hDC
 SelectObject hDC, PathToRegion(hDC)

[fyedor]

Работает!!

Вот такой еще вопрос: У меня большая форма, поэтому приходится производить скроллинг. При этом часть формы уходит за границы экрана. В результате координаты объекта-сектора пересчитываются, а хотелось бы чтобы они были жестко прикреплены к форме, независимо вышла она за пределы экрана или нет...

[EUGY]

То есть, еще раз. При скроллинге сектор должен быть всегда на том месте, где расположена некая область карты?
Дайте скриншот, что-ли.

[fyedor]

Сообщение от EUGY

То есть, еще раз. При скроллинге сектор должен быть всегда на том месте, где расположена некая область карты?

Да, именно так. Куда изначально его поставили - там он и должен находиться независимо от скроллинга и выхода за пределы экрана.

Такое возможно?