forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Scrollbar position checking?
Goto page Previous  1, 2
 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Advanced Help for VDS 5 & Up
View previous topic :: View next topic  
Author Message
kOt
Contributor
Contributor


Joined: 19 Jan 2004
Posts: 89
Location: Fyffe, AL

PostPosted: Fri Mar 03, 2006 9:59 pm    Post subject: Reply with quote

Ok.. this works KIND-OF Very Happy

if i set the %%Topitem to something higher than the seen amount it
scroll down but always to the same spot

else if always goes to 1 which is top of the table

%%topitem always 1 less than what i put as seen number which i set to
33

Here's the code if it helps
P.S. any help on speed or clean up on the code i would be thankful

Code:

  rem LVM_GETTOPINDEX = $01039
  %%TopItem = @sendmsg(~Table1,$01039,0,0)
  rem Add the amount of items a user can see to %P
  %%TopItem = @fadd(%%TopItem,33)
 
  dialog title,WSS - Refreshing Servers (Please Wait)
  list clear,table1
  list clear,1
  list add,1,@internet(http,content,1)
  if @file(@path(%0)serverlist.wss)
    file rename,@path(%0)serverlist.wss,@path(%0)old_serverlist.wss
  end
  list savefile,1,@path(%0)serverlist.wss
  list clear,1
  ### NEW NEW NEWNWENW:ELKRJWPELKRJW:ELKJFW:LEKFJWPOEIFJW:LKEFJPOWKEJF:LWKEJF
  list create,8
  list loadfile,8,@path(%0)serverlist.wss
  list create,9
  list seek,8,2
  %%len = @len(@item(Cool)
  %%charnum = 0
  %%start = 1
  %%end = 0
  repeat
    %%char = @substr(@item(Cool,%%charnum,@fadd(2,%%charnum))
    if @equal(%%char,"<r ")
      %%start = %%charnum
      %%end = @fsub(%%start,1)
      %%endcharnum = %%charnum
      repeat
        %%endcharnum = @succ(%%endcharnum)
        %%endchar = @substr(@item(Cool,%%endcharnum,@fadd(2,%%endcharnum))
        if @equal(%%endchar,@chr(34)"/>")
          %%end = %%endcharnum
          list add,9,@substr(@item(Cool,%%start,%%end)
        end
      until @equal(%%endchar,@chr(34)"/>")
#    if @greater(%%end,%%end)
#      list add,table1,%%server
#      %%server = @substr(@item(Cool,%%start,%%end)
#      list add,9,%%server
#    end
    end
    %%charnum = @succ(%%charnum)
  until @equal(%%charnum,%%len)
  OPTION FIELDSEP,@chr(34)
  list savefile,9,@path(%0)serverlist.wss
  list clear,8
  list clear,9
  list close,8
  list close,9
###KJSDFPOIJSD:FLKJSPODIFJS:LDKFHPSODIGH:SDLKJFPSOIDJG:LSKDGJPSODIGJ:SLDKJFPSODI
  list loadfile,1,@path(%0)serverlist.wss
  repeat
    %a = @match(1,"<r n")
    list seek,1,@index(1)
    %b = @item(1)
    parse "%x;%%servername;%x;%%type;%x;%%status;%x;%%population",@item(1)
    %%servername = @GetServerName(%%servername)
    %%type = @GetServerType(%%type)
    %%status = @GetServerStatus(%%status)
    %%population = @GetServerPop(%%population)
    if @null(%%servername)
      #nothing
    else
      list add,table1,%%servername@tab()%%population@tab()%%type@tab()%%status@chr(34)"#"%%status
    end
    %n = @next(1)
  until @null(@item(1))
  OPTION FIELDSEP,|
  dialog title,%%title
  %%ret = @sendmsg(~Table1,$01013,%%TopItem,0)
  info RET: %%ret@cr()Topitem: %%topitem
  goto evloop

_________________
Visual Dialogscript 5
Back to top
View user's profile Send private message Send e-mail Visit poster's website Yahoo Messenger MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Advanced Help for VDS 5 & Up All times are GMT
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group