sir-gunny Advanced Cheater Reputation: 0
Joined: 15 Mar 2012 Posts: 77
|
Posted: Mon Jul 14, 2014 12:52 pm Post subject: AutoSize for ListView columns in tabs dont work. |
|
|
hi.
The first column in CEListView2 sizes to max width! Its only in PageControl with more then one tab. Why?
Code: | --Creates first the form
UDF1 = createForm(true)
UDF1.caption = [[UDF1]]
UDF1.left = 487
UDF1.top = 129
UDF1.width = 453
UDF1.height = 379
UDF1.align = alNone
UDF1.enabled = nil
UDF1.visible = false
-- Creating the objects
CEPageControl1 = createPageControl(UDF1)
CEPageControl1.left = [[24]]
CEPageControl1.top = [[32]]
CEPageControl1.width = [[336]]
CEPageControl1.height = [[292]]
CEPageControl1.align = [[alNone]]
CEPageControl1.enabled = [[true]]
CEPageControl1.visible = [[true]]
TabSheet1 = CEPageControl1.addTab()
TabSheet1.caption = [[TabSheet1]]
TabSheet1.left = [[0]]
TabSheet1.top = [[0]]
TabSheet1.width = [[328]]
TabSheet1.height = [[264]]
TabSheet1.enabled = [[true]]
TabSheet2 = CEPageControl1.addTab()
TabSheet2.caption = [[TabSheet2]]
TabSheet2.left = [[0]]
TabSheet2.top = [[0]]
TabSheet2.width = [[328]]
TabSheet2.height = [[264]]
TabSheet2.enabled = [[true]]
TabSheet2.visible = [[true]]
CEListView1 = createListView(TabSheet1)
CEListView1.left = [[43]]
CEListView1.top = [[31]]
CEListView1.width = [[140]]
CEListView1.height = [[148]]
CEListView1.align = [[alNone]]
CEListView1.enabled = [[true]]
CEListView1.visible = [[true]]
CEListView1.RowSelect = true
CEListView1Columns = listview_getColumns(CEListView1)
CEListView1Column1 = listcolumns_add(CEListView1Columns)
CEListView1Column2 = listcolumns_add(CEListView1Columns)
listcolumn_setCaption(CEListView1Column1, 'Name')
listcolumn_setCaption(CEListView1Column2, 'Count')
CEListView1Column1.AutoSize = true
CEListView1Column2.AutoSize = true
CEListView1Items = listview_getItems(CEListView1)
CEListView2 = createListView(TabSheet2)
CEListView2.left = [[54]]
CEListView2.top = [[26]]
CEListView2.width = [[148]]
CEListView2.height = [[160]]
CEListView2.align = [[alNone]]
CEListView2.enabled = [[true]]
CEListView2.visible = [[true]]
CEListView2.RowSelect = true
CEListView2Columns = listview_getColumns(CEListView2)
CEListView2Column1 = listcolumns_add(CEListView2Columns)
CEListView2Column2 = listcolumns_add(CEListView2Columns)
listcolumn_setCaption(CEListView2Column1, 'Name')
listcolumn_setCaption(CEListView2Column2, 'Count')
CEListView2Column1.AutoSize = true
CEListView2Column2.AutoSize = true
CEListView2Items = listview_getItems(CEListView2) |
|
|