marty Professional Member


Joined: 10 May 2001 Posts: 789
|
Posted: Wed May 19, 2004 11:59 am Post subject: [resolved] Table list : Autoscroll and Headers |
|
|
Hi,
I would like to know how to autoscroll a table list in VDS 5, and also is it possible to hide or remove the headers?
In the code example below I want it to autoscroll to index 500 by pressing on the seek button:
| Code: | title Table Test
DIALOG CREATE,Test TABLE ,-1,0,424,360
DIALOG ADD,TABLE,TABLE1,16,16,390,240,Column 1[144]|Column 2[80]|Column 3,,CLICK,DBLCLICK,COLUMNSORT,MULTI
DIALOG ADD,STATUS,SB
DIALOG ADD,BUTTON,Seek0,264,16,64,24,Seek 0
DIALOG SHOW
wait 1
dialog set,table1,This is a TABLE@tab()dialog@tab()element
list add,table1,A table item@tab()and a subitem
list add,table1,Another table item@tab()SubItem 1@tab()SubItem 2@tab()SubItem 3
list add,table1,Yet another table item@tab()@tab()SubItem 2
list add,table1,And another table item
repeat
list add,table1,And another table item
until @equal(@count(table1),1000)
dialog set,sb,@count(table1)
:table1click
:loop
dialog set,sb,Selected item @index(table1): @item(table1)
wait event
%E = @event()
goto %E
:table1dblclick
info Doubleclick!
goto loop
:seek0button
list seek,table1,500
dialog focus,table1
#Not sure how to make the following work
%A = @SENDMSG(@WINEXISTS(~table1),$197,@PRED(@COUNT(table1)),5)
goto loop
:close
stop |
Thanks in advance  |
|