Cool! I'll have to admit that I missed this function when we moved away from DOS apps!
Karen -----Original Message----- From: A. Razzak Memon <[email protected]> To: RBASE-L Mailing List <[email protected]> Sent: Sun, Jan 11, 2015 12:01 pm Subject: [RBASE-L] - Tip of the Day: Using New INITPOS & INITVAL OPTIONS in CHOOSECommand Sunday, January 11, 2015 Tip of the Day: Using New INITPOS & INITVAL OPTIONS in CHOOSE Command Product: R:BASE eXtreme 9.5 (32/64) Build..: 9.5.5.20109 or higher www.rupdates.com www.rbaseupdates.com (Mirror Site) Section.: Additional CHOOSE Command Parameters Keywords: CHOOSE, INITPOS, INITVAL Did you know that you can pre-select initial position(s) for the items as well as pre-select initial value(s) for the list of items in CHOOSE command? The latest R:BASE eXtreme 9.5 (32/64), Update 5, Build: 9.5.5.20109 includes two new CHOOSE command parameters INITPOS and INITVAL as part of the CHOOSE OPTIONS. INITPOS specifies the pre-selected initial position(s) for the items in the list. The first position in the list is assigned zero, and increments for the number of values in the list (0 = 1, 1 = 2, 3 = 4, etc). INITVAL specifies the pre-selected initial value(s) for the items in the list. -- Example 01 -- www.razzak.com/tips/Using_INITPOS_Option_In_CHOOSE_Command.jpg -- Using_INITPOS_Option_In_CHOOSE_Command.RMD -- Author: A. Razzak Memon -- Date Created: January 11, 2014 -- Last Updated: IF (CVAL('DATABASE')) <> 'RRBYW18' OR (CVAL('DATABASE')) IS NULL THEN CONNECT RRBYW18 IDENTIFIED BY NONE ENDIF SET VAR vTitle TEXT = 'Choose Table(s)' SET VAR vCaption TEXT = 'Using INITPOS Option in CHOOSE Command' SET VAR vChoose TEXT = NULL CLS CHOOSE vChoose FROM #TABLES CHKBOX 2 + TITLE .vTitle + CAPTION .vCaption + LINES 27 + OPTION INITPOS 2,5 + |WINDOW_BACK_COLOR WHITE + |TITLE_BACK_COLOR WHITE + |TITLE_FONT_NAME Tahoma + |TITLE_FONT_COLOR NAVY + |TITLE_FONT_SIZE 14 + |LIST_BACK_COLOR WHITE + |LIST_FONT_NAME Tahoma + |LIST_FONT_COLOR NAVY + |LIST_FONT_SIZE 12 + |BUTTONS_SHOW_Glyph ON + |BUTTONS_BACK_COLOR WHITE IF vChoose = '[Esc]' THEN GOTO Done ENDIF -- Do what you have to do here ... LABEL Done CLEAR VARIABLES vTitle,vCaption,vChoose RETURN -- Example 02 -- www.razzak.com/tips/Using_INITVAL_Option_In_CHOOSE_Command.jpg -- Using_INITVAL_Option_In_CHOOSE_Command.RMD -- Author: A. Razzak Memon -- Date Created: January 11, 2014 -- Last Updated: IF (CVAL('DATABASE')) <> 'RRBYW18' OR (CVAL('DATABASE')) IS NULL THEN CONNECT RRBYW18 IDENTIFIED BY NONE ENDIF SET VAR vTitle TEXT = 'Choose Table(s)' SET VAR vCaption TEXT = 'Using INITVAL Option in CHOOSE Command' SET VAR vChoose TEXT = NULL CLS CHOOSE vChoose FROM #TABLES CHKBOX 3 + TITLE .vTitle + CAPTION .vCaption + LINES 27 + OPTION INITVAL Customer,InvoiceHeader,Titles + |WINDOW_BACK_COLOR WHITE + |TITLE_BACK_COLOR WHITE + |TITLE_FONT_NAME Tahoma + |TITLE_FONT_COLOR NAVY + |TITLE_FONT_SIZE 14 + |LIST_BACK_COLOR WHITE + |LIST_FONT_NAME Tahoma + |LIST_FONT_COLOR NAVY + |LIST_FONT_SIZE 12 + |BUTTONS_SHOW_Glyph ON + |BUTTONS_BACK_COLOR WHITE IF vChoose = '[Esc]' THEN GOTO Done ENDIF -- Do what you have to do here ... LABEL Done CLEAR VARIABLES vTitle,vCaption,vChoose RETURN Have fun! Very Best R:egards, Razzak. www.rbase.com www.facebook.com/rbase -- 32 years of continuous innovation! 17 Years of R:BASE Technologies, Inc. making R:BASE what it is today! --
