Re: Highlight array rows in Informix 4GL

Path: emory!europa.asd.contel.com!uunet!halexii!halexv!greg From: greg@halexv.uucp (Gregory F. Hogg) Newsgroups: comp.databases.informix Keywords: array highlight 4GL Message-ID: <1992Jan16.144219.2336@halexv.uucp> Date: 16 Jan 92 14:42:19 GMT References: <wemhoff.695513528@judy.cs.iastate.edu> Reply-To: greg@halexv.UUCP (Gregory F. Hogg) Organization: HOGG'S SOFTWARE; Abingdon, MD In article <wemhoff.695513528@judy.cs.iastate.edu> wemhoff@cs.iastate.edu (Becky Wemhoff) writes: >Anyway, a simple question: We're displaying a pop-up window with >an array cursor and want the user to use the arrow keys to move up and >down in order to highlight the company name desired and press then ESC. >But how do you get the cursor to actually highlight >a row at a time (reverse video) and not just look like the standard >one-character underline cursor? We've tried using the reverse attribute >on the form, but that puts the entire array in reverse video. I use an INPUT ARRAY and in the BEFORE ROW statement redisplay the current row with a DISPLAY statment using the attribute REVERSE. DEFINE InputArray ARRAY[10] OF RECORD field1 CHAR(60) END RECORD INPUT ARRAY InputArray WITHOUT DEFAULTS FROM ScreenArray BEFORE ROW LET ScreenRow = scr_line() LET MemRow = arr_curr() BEFORE FIELD field1 DISPLAY InputArray[MemRow].field1 TO ScreenArray[ScreenRow].field1 ATTRIBUTE(REVERSE) AFTER FIELD field1 DISPLAY InputArray[MemRow].field1 TO ScreenArray[ScreenRow].field1 END INPUT This will display the current row in REVERSE and when you leave it redisplay it without REVERSE. I used it a lot and works very well. +++++++++++++++++ +++++++++++++++++++ Greg Hogg +++ +++ ++ ++ HOGG'S SOFTWARE +++ +++ +++++++++++++++++++ +++++++++++++++++ voice : 410-538-7241 ++++ ++++ ++++ ++++ fax : 410-538-6130 ++++ +++++ +++++ ++++ uucp : uunet!halexii!greg ++++ ++++++ ++++++ ++++ cis : 74176,1320 -- +++++++++++++++++ +++++++++++++++++++ Greg Hogg +++ +++