DotNet ListView and AutoResizeColumn
Submitted by Rodman on Fri, 2013-11-29 07:50
Hello,
I have a dotNetControl ListView. I would like to use the method named AutoResizeColumn or AutoResizeColumns but I am stuck to use it.
The method is explained in the msdn documentation:
//msdn.microsoft.com/en-us/library/system.windows.forms.listview%28...
Can someone help me to use it ?
Sublime Text Editor - MXS support Backburner Test
- General Scripting
- Login or register to post comments
Comments
Comment viewing options
Select your preferred way to display the comments and click "Save settings" to activate your changes.
Submitted by Rodman on Mon, 2013-12-02 09:11.
Here I come !
rol_Test
try[destroyDialog rol_Test]catch[]
rollout rol_Test "Test"
[
dotNetControl lv "system.windows.forms.listView" pos:[5,5] width:300 height:200
function InitLv theLv =
[
theLv.view = [dotNetClass "system.windows.forms.view"].details
]
fn AddColumns theLv columnsAr =
[
theLv.columns.add columnsAr[1] 100
theLv.columns.add columnsAr[2] 300
]
fn PopulateList theLv arr =
[
rows=#[]
for t = 1 to arr.count do
[
li = dotNetObject "System.Windows.Forms.ListViewItem" [arr[t][1]]
li.UseItemStyleForSubItems = true
li.subitems.add arr[t][2]
append rows li
]
theLv.items.addRange rows
theLv.Update[]
]
on rol_Test open do
[
InitLv lv
AddColumns lv #["Column 1", "Column 2"]
local arr = #[]
for i = 1 to 9 do arr[i] = #[i as string, "i am a very long string and this is what i am, don't be maaaaaaaaaaad !"]
PopulateList lv arr
-- I can't solve this part
--------------------------------------------------------------------------------------------------------------------------------------------------------------
-- lv.columns.AutoSizeMode = [dotNetClass "system.windows.forms.columnheader"].AutoResize
--------------------------------------------------------------------------------------------------------------------------------------------------------------
]
]
createDialog rol_Test 510 210 style:#[#style_titlebar, #style_sysmenu, #style_resizing]
Rodman
- Login or register to post comments
Submitted by barigazy on Mon, 2013-12-02 12:19.
...
;]
Cheers!
try[destroyDialog ::rol_Test]catch[]
rollout rol_Test "Test"
[
-- the next fn is only for testing
--------------------------------------------------------------------------- random file generator
fn randomVFGen cnt: viritualPathName: =
[
local sioPath = dotNetClass "System.IO.Path"
for i = 1 to cnt collect viritualPathName + "\\" + sioPath.GetRandomFileName[]
]
----------------------------------------------------------------------------
fn defColor r g b = [[dotNetClass "System.Drawing.Color"].FromArgb r g b]
local maxBC = defColor 60 60 60, maxFC = defColor 200 200 200
fn autoResizeColumn lv columns: =
[
vScrollWidth = 21 -- vertical scrollbar width
for c = 0 to columns-1 do
[
lv.AutoResizeColumn c [dotNetClass "ColumnHeaderAutoResizeStyle"].ColumnContent
vScrollWidth += lv.Columns.Item[c].Width
] ; vScrollWidth
]
fn AddColumns theLv columnsAr =
[
for i in 1 to columnsAr.count do theLv.columns.add columnsAr[i] 0
]
fn PopulateList theLv arr =
[
rows=#[]
for t = 1 to arr.count do
[
li = dotNetObject "ListViewItem" [formattedPrint t format:"0.4d"]
li.UseItemStyleForSubItems = true
li.subitems.add arr[t]
append rows li
]
theLv.items.addRange rows
theLv.Update[]
]
dotNetControl lv "ListView" pos:[5,5] --width:300 height:200
on rol_Test open do
[
lv.backcolor = maxBC ; lv.forecolor = maxFC
lv.view = [dotNetClass "View"].details
lv.HideSelection = true ; lv.height = 200
AddColumns lv #["No.", "Virtual Files"]
PopulateList lv [randomVFGen cnt:30 viritualPathName:@"C:\temp\viritualFileNameCollections\"]
lv.width = autoResizeColumn lv columns:2
]
]
createDialog rol_Test 400 210 style:#[#style_titlebar, #style_sysmenu, #style_resizing]
barigazy
- Login or register to post comments
Submitted by Rodman on Mon, 2013-12-02 12:39.
:D
Thank you Branko !!! Can't wait to try it ! It looks goooood ! :]
Rodman
- Login or register to post comments
Submitted by barigazy on Fri, 2013-11-29 08:01.
...
post your code
barigazy
- Login or register to post comments
Comment viewing options
Select your preferred way to display the comments and click "Save settings" to activate your changes.