Цвет Grid Lines в List View

[burik]

Здравствуйте, скажите как поменять цвет линий сетки в List View-контроле?

[EUGY]

Осторожно спрошу.
A WM_PAINT на произвольном окне своей программы отловить сможешь? А то ведь есть еще HTML, как оказалось тут недавно в одной теме.

[Хакер]

Блин. Какая-то актуальная пролблема.

Выложу на всякий случай часть кода своего проекта:

Подготовка:

Код: Выделить всё

        WPHooker.HookObject .HTTPGridBase, AddressOf WindowProc
       
        lHTTPGridBaseStyle = GetWindowLong(.HTTPGridBase.hwnd, GWL_STYLE)
       
       
        SetWindowLong .HTTPGridBase.hwnd, GWL_STYLE, lHTTPGridBaseStyle Or LVS_OWNERDRAWFIXED ' Or LVS_SHOWSELALWAYS

отрисовка:

Код: Выделить всё

Public Function WindowProc(ByVal hwnd As Long, ByVal MsgID As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case hwnd
        Case 'вырезано
         'вырезано
         ' ...
         'вырезанор
        Case FMain.HTTPGridParent.hwnd
            Select Case MsgID
                Case WM_DRAWITEM
                    Dim DIInfo          As DRAWITEMSTRUCT
                    Dim FreePoint       As POINTAPI
                    MDeclarations.CopyMemory VarPtr(DIInfo), lParam, Len(DIInfo)
                    //////////////////////////////////////////////////////////
                        И вот тут у вас имеется хорошая такая структура DIInfo,
                        и, в частности, DIInfo.hdc , на котором вы можете рисовать.               
                    ////////////////////////////////////////////////////////////
                   
                Case Else
                    WindowProc = CallWindowProc(WPHooker.GetObjectSolidWPA(hwnd), hwnd, MsgID, wParam, lParam)
            End Select
        Case FMain.HTTPGridBase.hwnd
              ' Вырезано, много, всякого
        Case HTTPGridBaseHDRHandle
              ' Вырезано, много, всякого   
    End Select
End Function



Прим.:
1) Всё что вырезано - не нужно.
2) WPHooker - мой сабклассер. Считай вызов HookObject установкой сабклассинга, а вызов GetObjectSolidWPA - получением адреса оригинального (т.е. того, который был до самого первого HookObject) WindowProc-а.
3) Заметь, что в селект-кейсе FMain.HTTPGridParent.hwnd, а не FMain.HTTPGridBase.hwnd
4) Рекомендую для каждого случая делать свой windowproc, а не пихать всё в один и городить Select-Case. Конечно, если скорость тебе важна.

[burik]

EUGY
Уже смогу. Я сабкласингом раньше не пользовался (или пользовался тупым копированием кода ). Но пару дней назад в проге потребовалось менять BgCloror итема и я решил наконец-таки заняться сабкласингом.

Хакер
Спасибо, особенно за второй отрезок кода.

[Хакер]

burik
И кстати, не нужно рисовать вертикальные линии сетки при каждом получении WM_DRAWITEM - достаточно рисовать их один раз, в самом начале. Но есть один момент, касающийся высоты этих линий.