| View previous topic :: View next topic |
| Author |
Message |
FreezingFire Admin Team

Joined: 23 Jun 2002 Posts: 3508
|
Posted: Fri Aug 23, 2002 6:51 pm Post subject: Checkbox List |
|
|
| 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 |
|
 |
cnodnarb Professional Member


Joined: 11 Sep 2002 Posts: 766 Location: Eastman, GA
|
Posted: Wed Dec 04, 2002 4:29 pm Post subject: |
|
|
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 |
|
 |
|
|
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
|
|