BR Forum

Posted: **Fri Aug 26, 2011 8:34 am**

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

Posted: **Fri Aug 26, 2011 8:45 am**

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

Posted: **Fri Aug 26, 2011 8:54 am**

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]

Posted: **Fri Aug 26, 2011 9:08 am**

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

Posted: **Fri Aug 26, 2011 9:25 am**

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.

Posted: **Fri Aug 26, 2011 9:30 am**

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

Posted: **Fri Aug 26, 2011 9:39 am**

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.

Posted: **Fri Aug 26, 2011 10:26 am**

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.

BR Forum

CheckBOX

CheckBOX

Sample Checkbox picture