HGsOFT Newbie
Joined: 14 May 2003 Posts: 19 Location: Netherlands
|
Posted: Tue Jul 29, 2003 5:16 pm Post subject: Show or Hide new lines with two buttons + or - |
|
|
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,1
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 |
|