GetColumnListView

Синтаксис

Function GetColumnListView() As Long

Описание

Возвращает индекс столбца(начиная отсчет от 0) при клике мышкой по нему. Проверять следует в событиях (EventGadget ). Если щелчок произошел не по столбцу, то функция GetColumnListView возвратит -1

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var iStyle = LVS_EX_FULLROWSELECT  Or  LVS_EX_SUBITEMIMAGES
#Else
Var iStyle = 0
#EndIf
Dim As HBITMAP bmp1 = Load_image("1.png") ,bmp2 = Load_image("2.png") , bmp3 = Load_image("3.png")
Var hwnd=OpenWindow("",10,10,500,500)
ListViewGadget(1,10,10,310,300,iStyle,,,32)
AddListViewColumn(1, "1",0,0,100)
AddListViewColumn(1, "2",1,1,100)
AddListViewColumn(1, "3",2,2,100)
For aa As Integer=0 To 15
  AddListViewItem(1,"item ?"+Str(aa),bmp1,aa,0)
  AddListViewItem(1,"item ?"+Str(aa+18),bmp2,aa,1)
  AddListViewItem(1,"item ?"+Str(aa+36),bmp3,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=EventGadget Then
     If EventNumber=1 Then
        SetGadgetText(2,Str( GetColumnListView()))
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator