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 


Checkbox List

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code
View previous topic :: View next topic  
Author Message
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Fri Aug 23, 2002 6:51 pm    Post subject: Checkbox List Reply with quote

Code:
  rem [ Nice-looking workaround for a checkbox list ]
  DIALOG CREATE,CheckList Dialog,-1,0,265,171
  DIALOG ADD,LIST,LIST1,2,2,260,166
  list add,list1,"     "CheckList Item 1
  DIALOG ADD,CHECK,CHECK1,4,4,14,14
  list add,list1,"     "CheckList Item 2
  DIALOG ADD,CHECK,CHECK2,18,4,14,14
  DIALOG SHOW
  :evloop
  wait event
  goto @event()
  :close
  if @dlgtext(check1)
  warn CHECK1 was checked
  end
  if @dlgtext(check2)
  warn CHECK2 was checked
  end
  exit

_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
cnodnarb
Professional Member
Professional Member


Joined: 11 Sep 2002
Posts: 766
Location: Eastman, GA

PostPosted: Wed Dec 04, 2002 4:29 pm    Post subject: Reply with quote

I like the look of this, look forward to seeing it in some of my future programs...it needed something though...

Code:

rem [ Nice-looking workaround for a checkbox list ]
  DIALOG CREATE,CheckList Dialog,-1,0,265,171
  DIALOG ADD,LIST,LIST1,2,2,260,166,,click
  list add,list1,"     "CheckList Item 1
  DIALOG ADD,CHECK,CHECK1,4,4,14,14,,,click
  list add,list1,"     "CheckList Item 2
  DIALOG ADD,CHECK,CHECK2,18,4,14,14,,,click
  DIALOG SHOW
  :evloop
  wait event
  goto @event()
  :close
  if @dlgtext(check1)
  warn CHECK1 was checked
  end
  if @dlgtext(check2)
  warn CHECK2 was checked
  end
  exit
 
  :list1click
  if @equal(@dlgtext(check@succ(@index(list1))),1)
  dialog clear,check@succ(@index(list1))
  else
  dialog set,check@succ(@index(list1)),1
  end
  goto evloop
 
  :check1click
  list seek,list1,0
  goto evloop
 
  :check2click
  list seek,list1,1
  goto evloop


NodNarb
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code All times are GMT
Page 1 of 1

 
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