I am trying to create a setup screen with a "Bunch of Check Boxes". I really don't want to have any text associated with the Check Boxes as it is essentially a Matrix of options, with headings at the sides & top (I left those out in the example).
My question is how can i get rid of the "Text Box" that appears as I from field to field.
00010 GOSUB INTEREST_CHECKBOX
00020 STOP
31480 INTEREST_CHECKBOX: ! Checkbox Version
31481 PRINT Newpage
31482 EXECUTE "CON GUI ON"
31490 DIM Icb_Before$(6)*1,Icb_Post$(6)*1,Icb_Judgment$(6)*1,Icb_Using$*256,Icb_Fields$(18)*32
31500 MAT Icb_Before$=("") : MAT Icb_Post$=("") : MAT Icb_Judgment$=("")
31509 LET _Icb_Fields=0
31510 FOR _Icb=1 TO Udim(Icb_Before$)
31555 LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",42,CHECK 1,AE" !:
LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",55,CHECK 1,AE" !:
LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",67,CHECK 1,AE"
31560 NEXT _Icb
31570 INPUT FIELDS Mat Icb_Fields$: (Mat Icb_Before$,Mat Icb_Post$,Mat Icb_Judgment$)
31580 RETURN
Try dimming your arrays to say 10 or 2 rather than 1
Try setting an ATTR in your input statement such as ATTR "R" so you can tell what checkbox your cursor is at
Try setting your input CHECK 1 to 1/CHECK 10 or 1/CHECK 2
31600 LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",36,CHECK 13,[T]AE" !:
LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",49,CHECK 13,[T]AE" !:
LET Icb_Fields$(_Icb_Fields+=1)=Str$(_Icb+1)&",62,CHECK 14,[T]AE"
31610 NEXT _Icb
31620 INPUT #Interest_Win,FIELDS Mat Icb_Fields$,ATTR '[L]': (Mat Icb_Before$,Mat Icb_Post$,Mat Icb_Judgment$)
** Note: This code snippet doesn't work by itself, but shows the details of the solution.
Attachments
Sample CheckBox.png (188.01 KiB) Viewed 9001 times