PDA

View Full Version : Multi column List (not dblist) or horizontal scrolling ?



Raveen Ryan Sundram
6-Feb-2005, 04:57 PM
Hi,

Does anyone know how to declare a multi-column list (not dblist)?

Any how I activate the horizontal scroll bar (for width scrolling -
left-to-right)?

My list's width is 400 pixels, often there are text values which are 500
pixels in length
I tried using the form_guiwidth to resize the form_width but it doesn't
work.

Procedure Autosize
Integer Ext Cur nWd cWd itm
String sVal

Get item_count To itm
Get value Item (itm-1) To sVal
Get form_guiwidth Item (itm-1) To cWd

Get Text_Extent sVal To Ext
Move (Low(ext)+2) To nWd

If (nWd > cWd) Begin
Showln (itm-1) '.' sVal ', ' cWd ' vs ' nWd ' pix'

Set form_guiwidth Item (itm-1) To nWd
Send Adjust_logicals
End

End_Procedure


--
Regards,
Raveen Ryan Sundram

Michel Boisvert
7-Feb-2005, 06:31 PM
You can use a grid control. it is quite fast to load and works with scroll
bar automatically when columns cannot be displayed.

Michel

"Raveen Ryan Sundram" <raveen@xls.co.nz> a écrit dans le message de news:
8p1HybJDFHA.1952@dacmail.dataaccess.com...
> Hi,
>
> Does anyone know how to declare a multi-column list (not dblist)?
>
> Any how I activate the horizontal scroll bar (for width scrolling -
> left-to-right)?
>
> My list's width is 400 pixels, often there are text values which are 500
> pixels in length
> I tried using the form_guiwidth to resize the form_width but it doesn't
> work.
>
> Procedure Autosize
> Integer Ext Cur nWd cWd itm
> String sVal
>
> Get item_count To itm
> Get value Item (itm-1) To sVal
> Get form_guiwidth Item (itm-1) To cWd
>
> Get Text_Extent sVal To Ext
> Move (Low(ext)+2) To nWd
>
> If (nWd > cWd) Begin
> Showln (itm-1) '.' sVal ', ' cWd ' vs ' nWd ' pix'
>
> Set form_guiwidth Item (itm-1) To nWd
> Send Adjust_logicals
> End
>
> End_Procedure
>
>
> --
> Regards,
> Raveen Ryan Sundram
>
>