Column Widths of da...
 
Notifications
Clear all

Column Widths of data view  

   RSS

0

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

 

 

Share: