ListViewGadget библиотеки window9

Предыдущая тема Следующая тема Перейти вниз

ListViewGadget библиотеки window9

Сообщение  justar в Пн Авг 27, 2012 7:23 pm

Можно ли в сабже установить особый цвет и шрифт для определённой строки (ячейки)?

justar

Сообщения : 135
Дата регистрации : 2008-05-12
Возраст : 43
Откуда : Кишинёв, Республика Молдоа

Посмотреть профиль

Вернуться к началу Перейти вниз

ListViewGadget библиотеки windows9

Сообщение  justar в Вт Авг 28, 2012 5:19 pm

justar пишет:Можно ли в сабже установить особый цвет и шрифт для определённой строки (ячейки)?
Вопрос решен:
Код:

#Include "window9.bi"

Dim Shared As HWND LWHwnd

Function windowproc(hwnd As HWND,msg As UINT,wParam As WPARAM,lParam As LPARAM) As Integer 
    Select Case msg
  Case WM_NOTIFY
    Dim nmlcd As LPNMLVCUSTOMDRAW = Cast(LPNMLVCUSTOMDRAW,lParam )
    If nmlcd->nmcd.hdr.code = NM_CUSTOMDRAW Then
    If nmlcd->nmcd.hdr.hWndFrom = LWHwnd Then
      Select Case nmlcd->nmcd.dwDrawStage
      Case CDDS_PREPAINT
        Return CDRF_NOTIFYITEMDRAW
      Case CDDS_ITEMPREPAINT
        If nmlcd->nmcd.dwItemSpec = 0 Then
        nmlcd->clrText = &h00ffff
        nmlcd->clrTextBk = &h000FF0
        ElseIf nmlcd->nmcd.dwItemSpec = 1 Then
        nmlcd->clrText = &hFF0000
        nmlcd->clrTextBk = &hFF00FF
        EndIf
      End Select
    EndIf
    EndIf
    End Select
End Function

Var hwnd=OpenWindow("ColorLW",10,10,190,120)
Var Style= LVS_EX_FULLROWSELECT  Or LVS_EX_GRIDLINES
LWHwnd=ListViewGadget(1,10,10,150,53,Style,,,0)
AddListViewColumn(1, "Столбец",0,1,150)
AddListViewItem(1,"1 строка",0,0,0)
AddListViewItem(1,"2 строка",0,1,0)
SetWindowCallback(@windowproc())
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
Loop

justar

Сообщения : 135
Дата регистрации : 2008-05-12
Возраст : 43
Откуда : Кишинёв, Республика Молдоа

Посмотреть профиль

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения