Эге, приложить получилось наконец, слава те...
Теперь не жалко потратить чуть времени на описание:
Бенедиктотличие в отрисовке между кодом, приведённым Antonariy-ем (
EasySplitter ) и
примером ViewEx в том, что MFC-шная реализация (класс CSplitterWnd, см. WINSPLIT.CPP, если есть исходники MFC) 1) рисует на DC окна, а не экрана.
Ну вот, родил, рисуем на DC контейнера, естественно координаты пришлось пересчитывать.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub pDrawSplitter()
Dim lhDC As Long
Dim hOldBrush As Long
Dim crBackColor As Long
'If IsWinVista Then
lhDC = GetDC(m_oContainer.hWnd)
crBackColor = SetBkColor(lhDC, vbWhite)
hOldBrush = SelectObject(lhDC, m_hBrush)
If (m_eOrientation = cSPLTOrientationVertical) Then
PatBlt lhDC, m_oContainer.Left + m_lSplitPos, 0 , m_lSplitSize, m_oContainer.Height, PATINVERT
Else
PatBlt lhDC, 0 , m_oContainer.Top + m_lSplitPos, m_oContainer.Width, m_lSplitSize, PATINVERT
End If
SelectObject lhDC, hOldBrush
SetBkColor lhDC, crBackColor
ReleaseDC m_oContainer, lhDC
'Else
' lhDC = CreateDCAsNull("DISPLAY", ByVal 0&, ByVal 0&, ByVal 0&)
' hOldBrush = SelectObject(lhDC, m_hBrush)
' PatBlt lhDC, m_tSplitR.Left, m_tSplitR.Top, m_tSplitR.Right - m_tSplitR.Left, m_tSplitR.Bottom - m_tSplitR.Top, PATINVERT
' SelectObject lhDC, hOldBrush
' DeleteDC lhDC
'End If
End Sub
Бенедикт
3) не уверен, что надо обрабатывать очистку фона, попробуйте в SubclsMe_EraseBackground возвращать и True, и False, если разницы нет, выкиньте;
Смысл SetBkColor здесь не очень понимаю, но оставил, раз вставил...
Бенедикт2) на время таскания перемычки снимает стиль окна WS_CLIPCHILDREN, чтобы рисовать поверх всех дочерних окон.
Да, добавил, иначе оно под низ рисует, все сработало.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
...
If Not (m_bFullDrag) Then
...
'==================================
'If IsWinVista Then
wsStyle = GetWindowLong(m_oContainer.hWnd, GWL_STYLE)
SetWindowLong m_oContainer.hWnd, GWL_STYLE, wsStyle And Not WS_CLIPCHILDREN '.picSplitMain
'End If
'=================================
pDrawSplitter
...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Sub MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
...
If Not m_bFullDrag Then
pDrawSplitter
'====================
'If IsWinVista Then
SetWindowLong m_oContainer.hWnd, GWL_STYLE, wsStyle
'End If
'====================
End If
...
Исправил мелкий баг: при нажатии мышкой на разделителе после нажатия но до начала движения курсор разделителя не отображается
1.
2.
3.
4.
5.
Public Sub MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
...
'====================================
SetCursor m_hCursor 'без этого курсор исчезнет в момент нажатия
'===================================
...
Бенедикт2) сабклассинг реализован не совсем обоснованно сложно (overkill) для VB, но мне так было проще-быстрее, так как это готовые модули;
4) сабклассинг выкинуть не получится, так как надо обрабатывать потерю захвата мыши (capture).
Здесь не понял об чем речь, фактически я его выкинул.
Ну, скажем так, конкретно в примере от Antonariy мне не нравится, что движение мыши стопорится границами формы.
У меня в конкретном приложении этого тьфу-тьфу автоматически не происходит, видимо потому что сабклассинг формы таки используется на предмет ограничения ее размеров, причем минимальные высота/ширина формы находятся в динамической зависимости от текущей ширины элементов, разделяемых сплиттером, пытаться вдумываться в это уже неохота.
Собственно все приложено целиком выше.
==================================
Но, в своем конкретном примере столкнулся с гораздо более сложным подвохом.
Все сделал как описано, а на TreeView иногда глючит.
Голову ломал долго.
Дело в том что я использую для Treeview стиль Or TVS_EX_FADEINOUTEXPANDOS
У меня разделяются
Treeview и назовем так
ТО_ЧТО_СПРАВА
Картинка (которая Splitter) берет на себя фокус когда делаешь на ней Mouse_down (tabstop=false естественно роли не играет)
При этом если фокус стоял на TreeView, то Treeview теряет фокус, механизьм фейдера срабатывает и если шустрый юзер резво двигает палку в сторону TreeView, то он будет наблюдать спецэффекты с разделителем в самом лучшем и непотребном виде, ибо в теч. 2сек работы фейдера перерисовка Treeview идет непрерывно и плевать ему на отмену стилей нашей картинки-разделителя.
Одним из способов решения конечно был отмена фейдера, но стиль этот мне пришелся по душе (к хорошему быстро привыкаешь).
Пытался отменять этот стиль временно по аналогии со стилем разделителя (т.е. по событию mouse_down до наступления mouse_up). Не помогло, ибо механизм запускается еще до mouse_down и отмены уже запущенного механизма не происходит.
Все же нашел способ извратиться:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
If IsWinVista Then
OldSplitWindowProc = SetWindowLong(picSplitMain.hwnd, GWL_WNDPROC, _
AddressOf NewSplitWindowProc)
End If
...
Public OldSplitWindowProc As Long
Public Function NewSplitWindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'для событий picSplitMain
If (Msg = &H7) Then ' Const WM_SETFOCUS = &H7
Debug.Print wParam
If Form1.TreeView1.hwnd = wParam Then
'Call SendMessage(wParam, &H7, 0&, 0&)
Form1.TreeView1.SetFocus
End If
End If
NewSplitWindowProc = CallWindowProc( _
OldSplitWindowProc, hwnd, Msg, wParam, _
lParam)
End Function
Иными словами, на Висте если разделитель принял фокус от TreeView, то фокус отфутболивается обратно и эффект фейдера не срабатывает, разделитель отрисовывается без глюков. (от SendMessage (WM_SETFOCUS ) я отказался, так как приводит к двойным фокусам, ну его...)
На самом деле при большом желании ситуацию воспроизвести все же возможно.
Например, (надо делать быстро) из TreeView переходим в другой контрол и не мешкая задвигаем разделитель в TreeView. Но это малореальные ситуации, и потом никак не приводит к вылету программы и прочим серьезным последствиям, поэтому думаю считать вопрос решенным и от фейдера не отказываться.
