CheckBOX

[GomezL]

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.

Code: Select all

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 

[bluesfannoz]

I am visual. Can you send a picture of what your seeing. I am not understanding what is happening.

[GomezL]

Here is a picture in my application.

In my sample picture I tried CHECK 4 to see if it looked an better, it really didn't, but it emphasizes the problem.[/img]

[gtisdale]

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

FNGeorge

[GomezL]

Interesting Ideas, the ATTR does work to highlight the "Current Field", in my sample picture I used attributes to show the issue.

Dimming *10 or changing CHECK 1 to CHECK 0, 1/CHECK 10, 1/CHECK 2 really didn't change anything.

[gtisdale]

What version are you using?
In 4.20G+ I get a single width checkbox using your code. My Window 0 has a picture backgrond.

[GomezL]

I decided to give up and use the Check boxes with "Captions" as it seems to require them.

This is what I ended up with, not too bad.

Code: Select all

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.

[GomezL]

I am developing using 4.20Jg

The problem happens as you use your arrows to move, there is an extra "Character" that is visible, perhaps you picture background hides it.