Dear all,
I have problems with setting the colwidths in advance.
Below you will find my code.
What I need is to set the width of col(0) to 60 and the rest of the columns to 80.
Furthermore it should be possible to resize the cols by user but resizing is not working at all and the setting to have different colwidths for column 0 and the rest can be at 80 is not working.
I face all the time problems. I have tried everything with mincolwidth with defaults and so on with different results.
I put code before the loops (below) after and in between.
Can you help?
Thank you and best regards
Dimitri
dim nCols as Integer = 32
dim nRows as Integer = 128
lst_data1.DeleteAllRows
lst_data1.ColumnCount = nCols + 1
lst_data1.LockRows(1)
lst_data1.LockColumns(1)
lst_data1.EditDelay = -1
for c as Integer = 1 to lst_data1.ColumnCount - 1
lst_data1.Heading(c) = "C" + c.ToText
lst_data1.ColumnType(c)=piDogDataView.DataView.TypeEditable
lst_data1.Column(c).TextWrapMode = 0
lst_data1.Column(c).Alignment = 3
lst_data1.column(c).HeadingAlignment = 2
next c
dim v() as String
v.AddRow ""
for r as Integer = 1 to nRows
v.AddRow r.ToText
next r
call lst_data1.AddRows(v())
lst_data1.RowBackgroundColor(0) = &c696969
lst_data1.RowTextColor(0) = &cffffff
lst_data1.HeadingTextColor = &cffffff
lst_data1.HeadingBGColor = &c696969
lst_data1.column(0).BGColor = &c696969
lst_data1.column(0).TextColor = &cffffff