Re: Another VEL question.
- Posted by Ad Rienks <kwibus at ZONNET.NL> Oct 27, 1999
- 624 views
------=_NextPart_000_0008_01BF201A.A1A755C0 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Rather then an UpDownButton, I would use a ComboBox here, set the = ComboStyle to DropDownList, and fill the Combo with the predefined = choices. Gary told me to use APPENDITEM, a method not well documented in = Experimental.doc. constant Combo =3D CreateControl(COMBOBOX, RaceForm) SetAttribute(Combo, { {COMBOSTYLE, DROPDOWNLIST} } ) -- set other attributes too constant RaceNames =3D = for n =3D 1 to length(RaceNames) do SetAttribute( Combo, { {APPENDITEM, RaceNames[n] } } ) end for Hope this helps, Ad Rienks ----- Oorspronkelijk bericht -----=20 Van: Naflign=20 Aan: EUPHORIA at LISTSERV.MUOHIO.EDU=20 Verzonden: woensdag 27 oktober 1999 1:54 Onderwerp: Another VEL question. I've got a quick question for anyone who's had any experience with = VEL. I'm working on the editor for race creation in a little rpg I'm = working on, and what I'd hoped to do was have an updown button, which = when pushed up or down would display the next race in the race string. = So, the string being loaded as race, and the value = I'd set up the updown button and edit as=20 RaceUpDown1 =3D CreateControl(UPDOWNBUTTON,RaceForm) s =3D { {ASSOCIATE,RaceNumberEdit}, {MAX, 100}, {MIN,1}, {INCREMENT,1}, {ARROWKEYS, TRUE}} SetAttribute(RaceUpDown1,s) =20 RaceEdit1 =3D CreateControl(EDIT,RaceForm) s =3D { {TEXT, race[ GetAttribute(RaceUpDown1, POSITION) ] }, {TOP, 20}, {LEFT, 250}, {HEIGHT,10}, {WIDTH,150}, {MAXLENGTH, 20}, {TABORDER, 1}, {TABSTOP, TRUE}, {HINT, "Write the name of your race here."}, {SHOWHINT, TRUE}} SetAttribute(RaceEdit1,s) The button though, is allways reading as being 0. Am I phrasing this = incorectly? Thanks in advance for any help, for anyone able to make some sence of = my sleepy ramblings ------=_NextPart_000_0008_01BF201A.A1A755C0 charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content=3D"text/html; charset=3Diso-8859-1" = http-equiv=3DContent-Type> <META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV>Rather then an UpDownButton, I would use a ComboBox here, set the=20 ComboStyle to DropDownList, and fill the Combo with the predefined = choices. Gary=20 told me to use APPENDITEM, a method not well documented in=20 Experimental.doc.</DIV> <DIV> </DIV> <DIV>constant Combo =3D CreateControl(COMBOBOX, RaceForm)</DIV> <DIV>SetAttribute(Combo, { {COMBOSTYLE, DROPDOWNLIST} } )</DIV> <DIV>-- set other attributes too</DIV> <DIV> </DIV> <DIV>constant RaceNames =3D=20 <DIV> </DIV> <DIV>for n =3D 1 to length(RaceNames) do</DIV> <DIV> SetAttribute( Combo, { {APPENDITEM, RaceNames[n] = } }=20 )</DIV> <DIV>end for</DIV> <DIV> </DIV> <DIV>Hope this helps, Ad Rienks</DIV> <DIV> </DIV> <DIV>----- Oorspronkelijk bericht ----- </DIV> <BLOCKQUOTE=20 style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: = 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px"> <DIV=20 style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: = black"><B>Van:</B>=20 <A href=3D"mailto:naflign at MEDIAONE.NET" = title=3Dnaflign at MEDIAONE.NET>Naflign</A>=20 </DIV> <DIV style=3D"FONT: 10pt arial"><B>Aan:</B> <A=20 href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20 title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> = </DIV> <DIV style=3D"FONT: 10pt arial"><B>Verzonden:</B> woensdag 27 oktober = 1999=20 1:54</DIV> <DIV style=3D"FONT: 10pt arial"><B>Onderwerp:</B> Another VEL = question.</DIV> <DIV><BR></DIV> <DIV><FONT face=3DArial size=3D2>I've got a quick question for anyone = who's had=20 any experience with VEL. I'm working on the editor for race creation = in a=20 little rpg I'm working on, and what I'd hoped to do was have an updown = button,=20 which when pushed up or down would display the next race in the race = string.=20 So, the string being loaded as race, and the value=20 = NT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>I'd set up the updown button and = edit as=20 </FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>RaceUpDown1 =3D=20 CreateControl(UPDOWNBUTTON,RaceForm)<BR>s =3D {=20 {ASSOCIATE,RaceNumberEdit},</FONT></DIV> <DIV><FONT face=3DArial size=3D2> {MAX,=20 100},<BR> {MIN,1},<BR> =20 {INCREMENT,1},<BR> {ARROWKEYS,=20 TRUE}}<BR>SetAttribute(RaceUpDown1,s)</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>RaceEdit1 =3D = CreateControl(EDIT,RaceForm)<BR>s =3D {=20 {TEXT, race[ GetAttribute(RaceUpDown1, = POSITION) ] =20 },<BR> {TOP, 20},<BR> {LEFT,=20 250},<BR> {HEIGHT,10},<BR> =20 {WIDTH,150},<BR> {MAXLENGTH, = 20},<BR> =20 {TABORDER, 1},<BR> {TABSTOP, = TRUE},<BR> =20 {HINT, "Write the name of your race here."},<BR> = {SHOWHINT,=20 TRUE}}<BR> SetAttribute(RaceEdit1,s)</FONT></DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>The button though, is allways reading = as being 0.=20 Am I phrasing this incorectly?</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks in advance for any help, for = anyone able=20 to make some sence of my sleepy ramblings </FONT></DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> ------=_NextPart_000_0008_01BF201A.A1A755C0--