| View previous topic :: View next topic |
| Author |
Message |
GregLand
Valued Contributor
Joined: 15 Jun 2004
Posts: 212
Location: FRANCE
|
 Posted: Sun Sep 10, 2006 3:16 pm Post subject: "Dialog set" & CheckBox |
 |
|
Hello everybody...
I would like to know if it was possible to change the label of a checkbox...
It works for text :
DIALOG CREATE,TEST,-1,0,240,160
DIALOG ADD,TEXT,TEXT1,48,24,176,16,TEXT1
DIALOG SHOW
WAIT
DIALOG SET,TEXT1,HELLO !
WAIT
DIALOG SET,TEXT1,HOW ARE YOU ?
WAIT
But il doesn't work for Check
DIALOG CREATE,TEST,-1,0,240,160
DIALOG ADD,CHECK,CHECK1,48,24,176,16,CHECK1
DIALOG SHOW
WAIT
DIALOG SET,CHECK1,HELLO !
WAIT
DIALOG SET,CHECK1,HOW ARE YOU ?
Is there a way to do this ? |
|
| Back to top |
|
 |
DaveR
Valued Contributor
Joined: 03 Sep 2005
Posts: 413
Location: Australia
|
| Posted: Tue Sep 12, 2006 2:58 am Post subject: |
|
|
You could use the API...
Or something like this (replace the buttons with the events that will change the checkbox text)
| Code: | DIALOG CREATE,TEST,-1,0,260,160
DIALOG ADD,CHECK,CHECK1,48,24,176,16,CHECK1,,,CLICK
DIALOG ADD,CHECK,CHECK2,48,24,176,16,HELLO !,,,CLICK
DIALOG ADD,CHECK,CHECK3,48,24,176,16,HOW ARE YOU ?,,,CLICK
DIALOG HIDE,CHECK2
DIALOG HIDE,CHECK3
DIALOG ADD,BUTTON,BUTTON1,111,24,,,BUTTON1
DIALOG ADD,BUTTON,BUTTON2,111,96,64,24,BUTTON2
DIALOG ADD,BUTTON,BUTTON3,111,168,64,24,BUTTON3
DIALOG SHOW
goto evloop
:Check1CLICK
%x = @dlgtext(Check1)
registry write,default,,CHECK1,%x
registry write,default,,HELLO !,%x
registry write,default,,HOW ARE YOU ?,%x
DIALOG HIDE,CHECK2
DIALOG HIDE,CHECK3
goto evloop
:Check2CLICK
%x = @dlgtext(Check2)
registry write,default,,CHECK1,%x
registry write,default,,HELLO !,%x
registry write,default,,HOW ARE YOU ?,%x
DIALOG SHOW,CHECK2
DIALOG HIDE,CHECK3
goto evloop
:Check3CLICK
%x = @dlgtext(Check3)
registry write,default,,CHECK3,%x
registry write,default,,HELLO !,%x
registry write,default,,HOW ARE YOU ?,%x
DIALOG SHOW,CHECK3
goto evloop
:BUTTON1BUTTON
DIALOG HIDE,CHECK2
DIALOG HIDE,CHECK3
goto evloop
:BUTTON2BUTTON
DIALOG SHOW,CHECK2
DIALOG HIDE,CHECK3
goto evloop
:BUTTON3BUTTON
DIALOG SHOW,CHECK3
goto evloop
|
_________________
cheers
Dave |
|
| Back to top |
|
|
GregLand
Valued Contributor
Joined: 15 Jun 2004
Posts: 212
Location: FRANCE
|
| Posted: Tue Sep 12, 2006 12:12 pm Post subject: |
|
|
Thanks DaveŽ
It's a very good idea (Not easy), i didn't think to this !  |
|
| Back to top |
|
|
GregLand
Valued Contributor
Joined: 15 Jun 2004
Posts: 212
Location: FRANCE
|
| Posted: Tue Sep 12, 2006 1:51 pm Post subject: |
|
|
I tried that... It works great !
| Code: | DIALOG CREATE,Title,-1,0,230,79
DIALOG ADD,CHECK,CHECK1,8,8,16,16
DIALOG ADD,TEXT,TEXT1,8,24,,,Hello
DIALOG ADD,BUTTON,BUTTON1,40,16,64,24,BUTTON1
DIALOG ADD,BUTTON,BUTTON2,40,88,64,24,BUTTON2
DIALOG ADD,BUTTON,BUTTON3,40,160,64,24,BUTTON3
DIALOG SHOW
:evloop
wait event
goto @event()
:BUTTON1BUTTON
dialog set,text1,Hy !
goto evloop
:BUTTON2BUTTON
dialog set,text1,Very Good !
goto evloop
:BUTTON3BUTTON
dialog set,text1,I Love VDS !
goto evloop
:close
exit |
|
|
| Back to top |
|
|
SnarlingSheep
Professional Member
Joined: 13 Mar 2001
Posts: 759
Location: Michigan
|
| Posted: Tue Sep 12, 2006 2:06 pm Post subject: |
|
|
A little easier:
| Code: |
DIALOG CREATE,Title,-1,0,230,79
DIALOG ADD,CHECK,CHECK1,8,8,160,16,Check Me
DIALOG SHOW
%%WM_SETTEXT = $0C
%P = @sendmsg(~CHECK1,%%WM_SETTEXT,0,I Should Say Test Now)
:evloop
wait event
goto @event()
:Close
exit
|
_________________
-Sheep
My pockets hurt... |
|
| Back to top |
|
|
GregLand
Valued Contributor
Joined: 15 Jun 2004
Posts: 212
Location: FRANCE
|
| Posted: Tue Sep 12, 2006 2:10 pm Post subject: |
|
|
Very Very good !!!  |
|
| 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
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld