[Gambas-user] how?

[ron]

On Monday 26 April 2004 06:30, Frank Berg wrote:
> Hi,
>
> > You want to use a Columnview for that, not a Listview.  It can do
> > exactly what you show in the screenshot.
> >
> > Rob
>
> all most of help in the gambas help to the columnview ist not avaible,
> and i found nothing in the internet
> my books to VB and delphi can not help to..
>
> where can i read more about columnview,
> i.e.  found an demo??
>
> frank
>


PRIVATE SUB InitColumnView()  
  
  WITH columnview1
    .Clear
    .Resizable=TRUE ' user must be able
    .Columns.Count=5
    .Columns[ 1].Text="name"    
    .Columns[ 2].Text="size"    
    .Columns[ 3].Text="date"
    .Columns[ 4].Text="user"
    .Columns[ 5].Text="protocol"
  END WITH
  FixColumnView()
END

PUBLIC SUB FixColumnView()
  DIM i AS Integer
  WITH columnview1
    .Columns.Adjust  
    FOR i=0 TO .columns.count-1
      .Columns[i].AutoResize=FALSE      
      .Columns[i].width=50
    NEXT
    .Columns[0].width=180
  END WITH    
END

PRIVATE SUB cvwShowData(CSI AS String[])
dim view as ColumnView
  view=ColumnView1
  view[key][ 1]= CSI[0]
  view[key][ 2]= CSI[1]
  view[key][ 3]= CSI[2]
  view[key][ 4]= CSI[3]
  view[key][ 5]= CSI[4]
  view[key][ 6]= CSI[5]
END