AddListViewColumn

Синтаксис

Windows:

  Function AddListViewColumn( gadget As Long, sText As String, iPos As Long, iSubItem As Long, iWidthColumn As Long, iStyleColumnTEXT As Long=LVCFMT_CENTER, iStyleMask As Long=LVCF_FMT Or LVCF_SUBITEM Or LVCF_TEXT Or LVCF_WIDTH) As Long

Linux:

  Function AddListViewColumn( gadget As Long, sText As String, iPos As Long , iSubItem As long , iWidthColumn As long = 0 , iStyleColumnTEXT As Long = 0 , iStyleMask As Integer = 0) As long

Описание

Добавляет столбцы в ListViewGadget. Возвращает индекс нового столбца.

Параметры

gadget - номер гаджета

sText - строка в заголовке столбца

iPos - позиция вставки столбца

iSubItem - индекс, по которому будут вставлены пункты ListView

iWidthColumn - ширина столбца

iStyleColumnTEXT - стиль вставки текста( LVCFMT_LEFT , LVCFMT_RIGHT , LVCFMT_CENTER) По умолчанию стоит LVCFMT_CENTER . На Linux параметр не используется

iStyleMask - маска( LVCF_FMT, LVCF_SUBITEM, LVCF_TEXT, LVCF_WIDTH) По этому параметру ничего сказать не могу, поскольку сам особо не разобрался. По умолчанию все маски стоят. О них можно почитать в MSDN Хотя информации там тоже не много. На Linux параметр не используется

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,350,360)
#Ifdef __FB_WIN32__
Dim As Long iStyle = LVS_EX_FULLROWSELECT   Or LVS_EX_SUBITEMIMAGES
#Else
Dim As Long iStyle = 0
#EndIf
ListViewGadget(1,10,10,310,300,iStyle)
AddListViewColumn(1, "1 столбец",0,0,100)
AddListViewColumn(1, "2 столбец",1,1,100)
AddListViewColumn(1, "3 столбец",2,2,110)
Dim As Any Ptr icon = load_Image("1.ico",&hffffff)
For aa As Integer=0 To 15
  AddListViewItem(1,"item №"+Str(aa),icon,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),icon,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),icon,aa,2)
Next
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source