Restored from previous forum. Originally posted by Manolo.
Hi Fred,
Please see the next example:
NbColumns = DatabaseColumns()
Dim NameCol$(NbColumns,1)
For k=0 To NbColumns-1
NameCol$(k,0)=DatabaseColumnName(k)
NameCol$(k,1)=DatabaseColumnLen(k)
Next
----- other code.....
PanelGadget(1, 20, Top, #WindowWidth-50, 360)
AddGadgetItem(1, 0, "Clients")
ListIconGadget(2, 20, 20, 575, 245, NameCol$(0,0), val(NameCol$(0,1))+2)
For k=1 To NbColumns-1
AddGadgetColumn(2, k, NombreCol$(k,0), val(NameCol$(0,1))+2)
Next
-------more code....
Thanks,
Manolo
[url]mailto:vpardo@infonegocio.com[/url]