[RBASE-L] - Re: choose box 9.1

[Dan Goldberg]

Thanks, I will play with the variable lookup listview.

Dan

-----Original Message----- 
From: A. Razzak Memon 
Sent: Wednesday, April 25, 2012 4:09 PM 
To: RBASE-L Mailing List 
Subject: [RBASE-L] - Re: choose box 9.1 

At 06:08 PM 4/25/2012, Dan Goldberg wrote:

>Is there a way to set the width of a choose box in rbase 9.1?
>I have been searching the help files but can not find anything.
>
>I found a top and left parameter but no width.


Dan,

FWIW, the width of CHOOSE Box, using the CHOOSE command is directly
proportional to the minimum/maximum with of all combined columns
with actual data, along with the FONT_NAME and FONT_SIZE defined.

I strongly suggest to use the Variable Lookup ListView to customize
anything you can imagine, not to mention the increased buffer size!

Having said that, if you still need to increase the width of CHOOSE
Box, you may try the (LJS(columnname,nnn)) option to achieve that
goal.

Here's how:

-- Example 01: http://www.razzak.com/tips/choose_01.png

    CONNECT RRBYW18
    SET VARIABLE vCustIDTxt TEXT = NULL
    SET VARIABLE vCustID INTEGER = NULL
LABEL GetCustID
    CLS
    CHOOSE vCustIDTxt FOR #VALUES +
    FOR ((LJS(Company,36))&(LJS((CTXT(CustID)),9))&(LJS(CustCity,18))& +
    (LJS(CustState,6))&(LJS(CustZip,10))),CustID +
    FROM Customer ORDER BY Company +
    CHKBOX 1 +
    TITLE 'Select one customer and then click on [OK] button to continue' +
    CAPTION 'Customers' LINES 32 FORMATTED +
    OPTION LIST_FONT_COLOR BLACK +
    |TITLE_FONT_COLOR NAVY +
    |TITLE_FONT_SIZE 14 +
    |TITLE_FONT_NAME Tahoma +
    |BUTTONS_SHOW_GLYPH ON +
    |THEMENAME Longhorn
    -- More code here to validate selection, etc ...

-- Example 02: http://www.razzak.com/tips/choose_02.png

    CONNECT RRBYW18
    SET VARIABLE vCustIDTxt TEXT = NULL
    SET VARIABLE vCustID INTEGER = NULL
LABEL GetCustID
    CLS
    CHOOSE vCustIDTxt FOR #VALUES +
    FOR ((LJS(Company,50))&(LJS((CTXT(CustID)),9))&(LJS(CustCity,30))& +
    (LJS(CustState,6))&(LJS(CustZip,10))),CustID +
    FROM Customer ORDER BY Company +
    CHKBOX 1 +
    TITLE 'Select one customer and then click on [OK] button to continue' +
    CAPTION 'Customers' LINES 32 FORMATTED +
    OPTION LIST_FONT_COLOR BLACK +
    |TITLE_FONT_COLOR NAVY +
    |TITLE_FONT_SIZE 14 +
    |TITLE_FONT_NAME Tahoma +
    |BUTTONS_SHOW_GLYPH ON +
    |THEMENAME Longhorn
    -- More code here to validate selection, etc ...

Notice the difference in width of CHOOSE box.

Have fun!

Very Best R:egards,

Razzak.