Бенедикт,
мне этот render что-то сразу не понравился.
Я сделал по другому, типа гибрид из своего приема с CreatePatternBrush и твоего CreateIPictureDispFromHBITMAP (тест-проект во вложении):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Public Function CreateTransparentBackGround( _
ByVal hwndRebar As Long) As IPictureDisp
Dim rc As RECT
Dim tPt As POINTAPI
Dim hdcRef As Long
Dim hdcDst As Long
Dim hbmDst As Long
Dim hbmOld As Long
'Dim the_hdc As Long
Dim hbmDstOld As Long
Dim RebarHeight As Long
Dim RebarWidth As Long
Dim hbmpBack_temp As Long
Dim hbshBack_temp As Long
hbmpBack_temp = Form1.PictureFon.Picture.Handle
If hbmpBack_temp <> 0 Then
hbshBack_temp = CreatePatternBrush(hbmpBack_temp)
Else
'затычка на случай отсутствия фоновой картинки
Dim the_ColorRef As Long
OleTranslateColor vbButtonFace, 0, the_ColorRef
hbshBack_temp = CreateSolidBrush(the_ColorRef)
End If
GetWindowRect hwndRebar, rc
If ThemesEnabled(hwndRebar) Then
rc.Left = rc.Left + 2
End If
RebarWidth = rc.Right - rc.Left
RebarHeight = rc.Bottom - rc.Top
hdcRef = GetDC(hwndRebar)
hdcDst = CreateCompatibleDC(hdcRef)
hbmDst = CreateCompatibleBitmap(hdcRef, RebarWidth, RebarHeight)
ReleaseDC hwndRebar, hdcRef
hbmOld = SelectObject(hdcDst, hbmDst)
hbmDstOld = SelectObject(hdcDst, hbshBack_temp)
SetBkMode hdcDst, TRANSPARENT
tPt.x = rc.Left
tPt.y = rc.Top
MapWindowPoints 0, Form1.PictureFon.hwnd, tPt, 2
rc.Left = tPt.x
rc.Top = tPt.y
SetBrushOrgEx hdcDst, -rc.Left, -rc.Top, tPt
PatBlt hdcDst, 0, 0, RebarWidth, RebarHeight, PATCOPY
SelectObject hdcDst, hbmDstOld
SelectObject hdcDst, hbmOld: hbmOld = 0
DeleteDC hdcDst: hdcDst = 0
DeleteObject hbshBack_temp
Set CreateTransparentBackGround = CreateIPictureDispFromHBITMAP(hbmDst)
End Function
Вроде как это работает.
Но мне чего-то эта идея с прозрачным тулбар разонравилась.
Я то хотел дать возможность пользователю выбирать между Transparent/Communication/Media и т.п.
Но чтобы сделать Transparent, надо
1) задвинуть ребар в контейнер-Picturebox на 2px -проблема проиллюстрирована здесь:
Что можно сделать с той частью Rebar которая до Band - это 2 пикселя.
2) подогнать высоту контейнера-Picturebox под высоту Rebar -после создания
3) как-то нарисовать границу этого ребар - видимо как границу PictureBox-контейнера (границ кнопок то не видно даже, если не наводить мышку, надо ж как то обозначить его)
Типа вот так
1.
2.
3.
4.
5.
Dim rcClient As RECT
GetClientRect hwndRebar, rcClient
pvSetBorderStyle Form1.PictureRB.hwnd, eBorderStyleConstants.bsThin
Form1.PictureRB.Height = rcClient.Bottom
И смотрится это честно говоря не так красиво, как тематический Communication/Media подобранный под фон картинки.
А если потом в этой конструкции менять стиль назад на Communication, то понимаешь что
1) eBorderStyleConstants.bsThin надо убирать, т.к. тематический рисует свою "границу"
2) задвинуть ребар в контейнер-Picturebox на 2px -срезает левую границу тематического ребар, т.к. в случае "честной темы" эти 2px составляют единое целое тематики
Короче, очень мудреные коды надо делать, отказался я от этой идеи.
