Function EventNumberListView() As Integer
Возвращает идентификатор (номер) ListViewGadget в событиях мыши
нет
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,230,180)
ListViewGadget(1,10,10,150,100,0,,,32)
AddListViewColumn(1, "Колонка",0,0,150)
AddListViewItem(1,"item 1", 0 ,0,0)
AddListViewItem(1,"item 2", 0 ,1,0)
TextGadget(2,170,20,20,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( GetItemListView))
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation