Function GetSelectedListViewItem(byval gadget As Long, byval Item as long, byval Mask As Long = LVIS_SELECTED Or LVIS_FOCUSED) As Integer
Получает свойства пункта. Нужен например, для определения выделенных пунктов
gadget - номер гаджета
Item - индекс пункта
Mask - только для Windows; маска получения требуемого свойства:
LVIS_SELECTED - пункт выбран
LVIS_FOCUSED - пункт выделен
Другие здесь, но что-то некоторые у меня не работают как надо.
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,150,360)
#Ifdef __FB_WIN32__
Var Style=LVS_EX_FULLROWSELECT
#Else
Var Style=0
#EndIf
ListViewGadget(1,10,10,110,300,Style)
AddListViewColumn(1, "Столбец",0,0,110)
For aa As Integer=0 To 15
AddListViewItem(1,"item №"+Str(aa),0,aa,0)
Next
Do
Var event=WaitEvent()
If event=EventGadget Then
If EventNumber=1 Then
Var item = GetItemListView()
If GetSelectedListViewItem(1,item) = LVIS_SELECTED Or LVIS_FOCUSED Then
Print "Item " & item & " selected or focused"
EndIf
EndIf
EndIf
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease