SetColumnWidthListView

Синтаксис

Sub SetColumnWidthListView(ByVal gadget As Long, ByVal IndexColumn As Long,ByVal Width As Long, ByVal flag As Long =-1)

Описание

Устанавливает ширину столбца по указанному индексу(индексы начинаются с нуля)

Параметры

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

IndexColumn - индекс столбца

Width - новая ширина столбца

flag - флаг, может быть:
    LVSCW_AUTOSIZE - (по умолчанию) авторазмер столбца
    LVSCW_AUTOSIZE_USEHEADER - Автоматические размеры столбца по размеру текста заголовка. (больше написано ЗДЕСЬ)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var Style = LVS_EX_FULLROWSELECT  Or LVS_EX_GRIDLINES Or LVS_EX_SUBITEMIMAGES
#Else
Var Style = 0
#EndIf
OpenWindow("Привет",10,10,350,360)
Var bmp1 = Load_image("1.png")
Var bmp2 = Load_image("2.png")
Var bmp3 = Load_image("3.png")
ListViewGadget(1,10,10,310,300,Style,,,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
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventLBDown Then
     If EventNumberListView=1 Then
        SetColumnWidthListView(1,0,10)
        SetColumnWidthListView(1,1,20)
        SetColumnWidthListView(1,2,30)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: iPhone web sites made easy