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 


Show or Hide new lines with two buttons + or -

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 4 Source Code
View previous topic :: View next topic  
Author Message
HGsOFT
Newbie


Joined: 14 May 2003
Posts: 19
Location: Netherlands

PostPosted: Tue Jul 29, 2003 5:16 pm    Post subject: Show or Hide new lines with two buttons + or - Reply with quote

Code:
rem -------------------------------------------------------------
rem HGsOFT
rem Maximum of 6 lines.
rem With two buttons [-] [+], show a new line or hide a line.
rem -------------------------------------------------------------
  %%Laat = 0
Title SHOW & HIDE
  DIALOG CREATE,SHOW & HIDE,-1,0,468,260
  DIALOG ADD,STYLE,STYLE2,,,B,,
  DIALOG ADD,STYLE,STYLE1,,10,B,,
  DIALOG ADD,BUTTON,BUTTON1,212,390,64,24,Exit
  DIALOG ADD,BUTTON,BUTTON2,192,392,20,17,-
  DIALOG ADD,BUTTON,BUTTON3,191,432,20,17,+
  DIALOG ADD,EDIT,EDIT1,29,16,180,19,EDIT1
  DIALOG ADD,EDIT,EDIT2,56,16,180,19,EDIT2
  DIALOG ADD,EDIT,EDIT3,83,16,180,19,EDIT3
  DIALOG ADD,EDIT,EDIT4,110,16,180,19,EDIT4
  DIALOG ADD,EDIT,EDIT5,137,16,180,19,EDIT5
  DIALOG ADD,EDIT,EDIT6,164,17,180,19,EDIT6
  DIALOG ADD,EDIT,EDIT7,29,216,44,19,EDIT7
  DIALOG ADD,EDIT,EDIT8,56,216,44,19,EDIT8
  DIALOG ADD,EDIT,EDIT9,83,216,44,19,EDIT9
  DIALOG ADD,EDIT,EDIT10,110,216,44,19,EDIT10
  DIALOG ADD,EDIT,EDIT11,137,216,44,19,EDIT11
  DIALOG ADD,EDIT,EDIT12,164,216,44,19,EDIT12
  DIALOG ADD,EDIT,EDIT13,29,280,48,19,EDIT13
  DIALOG ADD,EDIT,EDIT14,56,280,48,19,EDIT14
  DIALOG ADD,EDIT,EDIT15,83,280,48,19,EDIT15
  DIALOG ADD,EDIT,EDIT16,110,280,48,19,EDIT16
  DIALOG ADD,EDIT,EDIT17,137,280,48,19,EDIT17
  DIALOG ADD,EDIT,EDIT18,164,280,48,19,EDIT18
  DIALOG ADD,EDIT,EDIT19,29,336,48,19,EDIT19
  DIALOG ADD,EDIT,EDIT20,56,336,48,19,EDIT20
  DIALOG ADD,EDIT,EDIT21,83,336,48,19,EDIT21
  DIALOG ADD,EDIT,EDIT22,110,336,48,19,EDIT22
  DIALOG ADD,EDIT,EDIT23,137,336,48,19,EDIT23
  DIALOG ADD,EDIT,EDIT24,164,336,48,19,EDIT24
  DIALOG ADD,CHECK,CHECK1,33,392,180,18,CHECK1
  DIALOG ADD,CHECK,CHECK2,59,392,180,18,CHECK2
  DIALOG ADD,CHECK,CHECK3,85,392,180,18,CHECK3
  DIALOG ADD,CHECK,CHECK4,111,392,180,18,CHECK4
  DIALOG ADD,CHECK,CHECK5,137,392,180,18,CHECK5
  DIALOG ADD,CHECK,CHECK6,163,392,180,18,CHECK6
  DIALOG ADD,STATUS,STATUS1,There are %%Laat line(s),STYLE1 
  DIALOG HIDE,EDIT1
  DIALOG HIDE,EDIT2
  DIALOG HIDE,EDIT3
  DIALOG HIDE,EDIT4
  DIALOG HIDE,EDIT5
  DIALOG HIDE,EDIT6
  DIALOG HIDE,EDIT7
  DIALOG HIDE,EDIT8
  DIALOG HIDE,EDIT9
  DIALOG HIDE,EDIT10
  DIALOG HIDE,EDIT11
  DIALOG HIDE,EDIT12
  DIALOG HIDE,EDIT13
  DIALOG HIDE,EDIT14
  DIALOG HIDE,EDIT15
  DIALOG HIDE,EDIT16
  DIALOG HIDE,EDIT17
  DIALOG HIDE,EDIT18
  DIALOG HIDE,EDIT19
  DIALOG HIDE,EDIT20
  DIALOG HIDE,EDIT21
  DIALOG HIDE,EDIT22
  DIALOG HIDE,EDIT23
  DIALOG HIDE,EDIT24
  DIALOG HIDE,CHECK1
  DIALOG HIDE,CHECK2
  DIALOG HIDE,CHECK3
  DIALOG HIDE,CHECK4
  DIALOG HIDE,CHECK5
  DIALOG HIDE,CHECK6
  DIALOG SHOW
 
:Evloop
  wait event
  GOTO @event()
 
:BUTTON1BUTTON
  GOTO Close
:BUTTON2BUTTON
rem minus
%%SHOW = HIDE
  IF @EQUAL(%%Laat,0)       
      GOTO evloop
  ELSIF @EQUAL(%%Laat,1)
     GOTO evloop
  End
 
  %%Laat = @FADD(@FSUB(%%Laat,1),1)

  GOSUB EDIT

  %%Laat = @FSUB(%%Laat,1)

  DIALOG set,STATUS1,There are %%Laat line(s)
  GOTO evloop

:BUTTON3BUTTON 
rem plus
  %%SHOW = SHOW
 
  IF @EQUAL(%%Laat,6)
      GOTO evloop
  End
 
  %%Laat = @FADD(%%Laat,1)
  DIALOG set,STATUS1,There are %%Laat line(s)
  GOSUB EDIT
  GOTO evloop

:Close
  exit
 
:EDIT
     %%Laat1 = @FADD(%%Laat,6)
      %%Laat2 = @FADD(%%Laat,12)
      %%Laat3 = @FADD(%%Laat,1Cool
   
  IF @EQUAL(%%Laat,1)
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
         End 
  IF @EQUAL(%%Laat,2)
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
          End
  IF @EQUAL(%%Laat,3)
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
        End   
  IF @EQUAL(%%Laat,4)
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
          End
  IF @EQUAL(%%Laat,5)             
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
        End
  IF @EQUAL(%%Laat,6)       
      DIALOG %%SHOW,EDIT%%Laat
    DIALOG %%SHOW,EDIT%%Laat1
    DIALOG %%SHOW,EDIT%%Laat2
    DIALOG %%SHOW,EDIT%%Laat3
    DIALOG %%SHOW,CHECK%%Laat
        End
Exit


Last edited by HGsOFT on Wed Sep 10, 2003 12:26 pm; edited 2 times in total
Back to top
View user's profile Send private message Visit poster's website
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Tue Jul 29, 2003 5:20 pm    Post subject: Reply with quote

Nice. I added in [code][/code] tags for you in your post.
_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
Serge
Professional Member
Professional Member


Joined: 04 Mar 2002
Posts: 1480
Location: Australia

PostPosted: Wed Jul 30, 2003 9:22 am    Post subject: Reply with quote

good work hgsoft

serge

_________________
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 4 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