I'm using 9.1, look forward to this feature in 9.5.  Thanks.


On 3/8/2012 7:32 AM, A. Razzak Memon wrote:
At 08:38 PM 3/7/2012, Dave McCann wrote:

Sorry, for clarity I'm looking to increase the font size (not input field length). I have some DIALOG statements and I have made the message larger with something
like...

DIALOG 'Please enter your value:' vresp vendkey 1 CAPTION 'Enter text' +
OPTION MESSAGE_FONT_SIZE 10

...however, this increases the size of the message font, the input text remains a smaller size and I like to make it easier on the user's eyes to see their input. Have looked through all the help and DIALOG samples in RDocs and can't find an
option to increase the font size on the input box.

Dave,

It looks like you are not using the right version and update of R:BASE eXtreme!

Use the INPUT_FONT_NAME value, INPUT_FONT_COLOR value, and INPUT_FONT_SIZE value
options of the enhanced DIALOG command to achieve your goal.

Here's how:

01. Start R:BASE eXtreme 9.5 (32/64), Build: 9.5.1.10317 or higher ...

02. Now use the following example and see what you get:

    -- Dialog_With_Input_Font_Options.RMD
    -- A. Razzak Memon
    -- Date Created: March 8, 2012
    -- Date Updated:
    CLS
    SET VAR vValue TEXT = NULL
    SET VAR vEndKey TEXT = NULL
    SET VAR vCaption TEXT = 'Running R:BASE Your Way!'
    DIALOG 'Please Enter Your Value' vValue=29 vEndKey 1 +
    CAPTION .vCaption ICON QUESTION +
    OPTION MESSAGE_FONT_NAME Tahoma +
    |MESSAGE_FONT_COLOR NAVY +
    |MESSAGE_FONT_SIZE 12 +
    |INPUT_FONT_NAME Tahoma +
    |INPUT_FONT_COLOR MAROON +
    |INPUT_FONT_SIZE 14 +
    |BUTTON_OK_CAPTION &Continue +
    |BUTTON_CANCEL_CAPTION C&ancel +
    |BUTTON_YES_FONT_COLOR GREEN +
    |BUTTON_NO_FONT_COLOR RED +
    |THEMENAME Vista CG
    IF vEndKey = '[Esc]' THEN
       GOTO Done
    ENDIF
    -- Do what you have to do with vValue ...
    LABEL Done
    CLS
    CLEAR VARIABLES vValue,vEndKey,vCaption
    RETURN

That's all there is to it!

Have fun!

Very Best R:egards,

Razzak.


--
Dave McCann


Reply via email to