GetSubItemListView

Синтаксис

Function GetSubItemListView() As Integer

Описание

Возвращает индекс столбца(начиная отсчет от 0) при клике мышкой по любому пункту списка. Проверять следует в событиях клика мышкой. (EventMBDown , EventRBDown , EventLBDown)

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,400,380)
#Ifdef __FB_WIN32__
Var Style=LVS_EX_FULLROWSELECT
#Else
Var Style=0
#EndIf
ListViewGadget(1,10,10,310,300,Style)
AddListViewColumn(1, "1 столбец",0,0,100)
AddListViewColumn(1, "2 столбец",1,1,100)
AddListViewColumn(1, "3 столбец",2,2,110)
For aa As Integer=0 To 15
  AddListViewItem(1,"item №"+Str(aa),0,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),0,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),0,aa,2)
Next
TextGadget(2,350,20,30,30)
SetGadgetColor(2,255,&hff0000,3)
SetGadgetfont(2,LoadFont("",22))
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventLBDown Then
     If EventNumberListView=1 Then
        SetGadgetText(2,Str( GetSubItemListView()))
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator