Дмитрий77Новая проблема:
1.
2.
3.
tmColour = ListView.ListItems(k + 1 ).ForeColor
ListView.ListItems(k).ForeColor = tmColour
ListView.ListItems(k).ListSubItems( 1 ).ForeColor = tmColour
ListView.ListItems(k).ListSubItems( 2 ).ForeColor = tmColour
Осилил:
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.
Public Function NewFormWindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
' ======================================================
Case WM_NOTIFY
Static lvcd As NMLVCUSTOMDRAW
MoveMemory lvcd, ByVal lParam, Len(lvcd) ' every structs' member is a Long
Select Case lvcd.nmcd.hdr.code
Case NM_CUSTOMDRAW
Select Case lvcd.nmcd.dwDrawStage
' ====================================================
Case CDDS_PREPAINT
' Tell the listview we want CDDS_ITEMPREPAINT for each item
NewFormWindowProc = CDRF_NOTIFYITEMDRAW
Exit Function
' ====================================================
Case CDDS_ITEMPREPAINT
Select Case lvcd.nmcd.hdr.hwndFrom 'в смысле какой контрол собрался перерисовываться
Case Form1.ListView1.hwnd
'в Tag храним информацию о цвете строчки, если пусто, то по умолчанию
If Len(Form1.ListView1.ListItems(lvcd.nmcd.dwItemSpec + 1 ).Tag) > 0 Then
lvcd.clrText = Val(Form1.ListView1.ListItems(lvcd.nmcd.dwItemSpec + 1 ).Tag)
'lvcd.clrTextBk = vbRed 'background of item, если надо
MoveMemory ByVal lParam, lvcd, Len(lvcd)
Exit Function
End If
Case Else
End Select 'lvcd.nmcd.hdr.hwndFrom
Case Else
End Select ' lvcd.nmcd.dwDrawStage
Case Else
End Select ' nmh.code
Case Else
End Select ' Msg
NewFormWindowProc = CallWindowProc( _
OldFormWindowProc, hwnd, Msg, wParam, _
lParam)
End Function
Сабклассить надо родительский контрол.
В моем случае ListView был вставлен в PictureBox, а PictureBox был вставлен во Frame, а Frame вставлен в Form.
Чтобы добраться до этой "иголки", пришлось сабклассить PictureBox, этого оказалось достаточно.
Таблицу цветов строчек храню в их Tag-ах, т.е. достаточно
Item.tag=vbBlue
Listview1.Refresh
===============================
но Refresh на 5-х контролах свинит, т.е.даже не рефреш, а попытка изменить Item/SubItem кот. Selected но вне зоны видимости программно.
Т.е. у вас ListView напр. отображает строка=500, а selected строка=2
и программа меняет вам эту строку=2.(через vb-модель)
Дык вот свинья в том, что этот гад перепрыгнет на вторую строчку.
Если скажем у вас содержание ListView обновляется по таймеру(отдельные строки), то вы будете тянуть HScroll вниз, а эта скотина будет тянуть вас вверх.
Посему пришлось накатать еще ряд ф-ций, плюс быстро понял, что если с SubItems/Image начинаешь работать через API, то это можно даже без лишних сабклассингов, но VB-модель надо хоронить с момента первого применения API, ибо двояко(через API и через VB) можно прочитать разве что Item.Text , попытки двойного обращения будут вести к бардаку в голове и программе.
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.
Public Const MAX_LVMSTRING As Long = 255
Public Sub ListViewSetSubItemText(m_ListView As ComctlLib.ListView, m_Item As Long, m_SubItem As Long, m_Text As String)
' m_SubItem =0 почему-то вылетает не вылетает лишь если or LVIF_IMAGE
Dim lvi As LV_ITEM
With lvi
.iItem = m_Item - 1
.iSubItem = m_SubItem
.mask = LVIF_TEXT
.pszText = m_Text
End With
Call SendMessage(m_ListView.hwnd, LVM_SETITEM, 0 , lvi)
End Sub
Public Sub ListViewSetItemPicture(m_ListView As ComctlLib.ListView, m_Item As Long, m_Image As String)
Dim lvi As LV_ITEM
With lvi
.iItem = m_Item - 1
.iSubItem = 0
.mask = LVIF_IMAGE
.iImage = m_Image
End With
Call SendMessage(m_ListView.hwnd, LVM_SETITEM, 0 , lvi)
End Sub
Public Function ListViewGetSubItemText(m_ListView As ComctlLib.ListView, m_Item As Long, m_SubItem As Long) As String
'm_SubItem =0 прочтет item.text (0 можно устанавливать через vb-модель)
Dim lvi As LV_ITEM
Dim nRet As Long
With lvi
.mask = LVIF_TEXT
.iSubItem = m_SubItem
.pszText = Space(MAX_LVMSTRING) 'Space(32) '
.cchTextMax = Len(.pszText) 'MAX_LVMSTRING
End With
nRet = SendMessage(m_ListView.hwnd, LVM_GETITEMTEXT, m_Item - 1 , lvi)
ListViewGetSubItemText = Left$(lvi.pszText, nRet)
End Function
Public Function ListViewGetItemPicture(m_ListView As ComctlLib.ListView, m_Item As Long) As Long
Dim lvi As LV_ITEM
Dim nRet As Long
With lvi
.mask = LVIF_IMAGE
.iItem = m_Item - 1
.iSubItem = 0
End With
Call SendMessage(m_ListView.hwnd, LVM_GETITEM, 0 , lvi)
ListViewGetItemPicture = lvi.iImage
End Function
================================
Хотелось бы тут вспомнить про Toolbar.
AntonariyДмитрий77Хотелось бы каких-то идей-направлений (хотя бы).NM_CUSTOMDRAW
Antonary, ну допустим влезу я во все это (первый опыт типа есть)
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.
' ==================================================================
' Toolbar
Public Type NMTBCUSTOMDRAW
nmcd As NMCUSTOMDRAW
hbrMonoDither As Long
hbrLines As Long ' For drawing lines on buttons
hpenLines As Long ' For drawing lines on buttons
clrText As Long ' Color of text
clrMark As Long ' Color of text bk when marked. (only if TBSTATE_MARKED)
clrTextHighlight As Long ' Color of text when highlighted
clrBtnFace As Long ' Background of the button
clrBtnHighlight As Long ' 3D highlight
clrHighlightHotTrack As Long ' In conjunction with fHighlightHotTrack will cause button to highlight like a menu
rcText As RECT ' Rect for text
nStringBkMode As Long
nHLStringBkMode As Long
End Type
' Toolbar custom draw return flags
Public Const TBCDRF_NOEDGES = &H10000 ' Don't draw button edges
Public Const TBCDRF_HILITEHOTTRACK = &H20000 ' Use color of the button bk when hottracked
Public Const TBCDRF_NOOFFSET = &H40000 ' Don't offset button if pressed
Public Const TBCDRF_NOMARK = &H80000 ' Don't draw default highlight of image/text for TBSTATE_MARKED
Public Const TBCDRF_NOETCHEDEFFECT = &H100000 ' Don't draw etched effect for disabled items
А я сумею под него картинку подложить? Или только фон поменять монотонно (ну наверно на Transparent)?
И допустим я вымучаю все и вся и что-то сделаю. А всякие NM_<VISTA>DRAW или NM<XP>DRAW пошлют мой NMCUSTOMDRAW куда подальше. Простой пример для классики то есть, я ссылку давал, но XP/Vista стили действие того примера обнуляют, здесь небось тоже самое будет...
