4gl DISPLAY ARRAY - Highlighting ??? !@!*@&!
Posted in 1994
(I'm winging a 4gl program and the books don't seem to answer this question) In a 4gl program where I'm displaying an array, how do you get only the line that the cursor is on to highlight (or reverse video). If I define the attr as reverse, all line are reverse. The form looks like: database oinc_db screen size 32 by 80 { +---------------------------------------------+-----------+--------------+ | Item Description | Unix Name | Date Created | +---------------------------------------------+-----------+--------------+ |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| |[title ] [unixobj ] [ts ]| +------------------------------------------------------------------------+ | Position to desired report and hit RETURN to execute, or ESC to cancel.| | (List of [f1 ] Items) | +------------------------------------------------------------------------+ } end tables worms_data end attributes title = worms_data.title, NOENTRY; unixobj = worms_data.unixobj, NOENTRY; ts = worms_data.ts, NOENTRY; f1 = FORMONLY.counter,NOENTRY; instructions screen record item_rec[14] (title, unixobj, ts) delimiters " " end ... and the DISPLAY ARRAY looks like : open form f_sel from "/usr/local/worms/forms/worms_sel" display form f_sel display by name counter call set_count(cnt) let int_flag = FALSE let selection = 0 display array item_rows to item_rec.* on key (RETURN) let selection = arr_curr() exit display end display Thanks in advance, Bill *8o) =~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~ /*** / ***\\ Hewlett-Packard Company / \\ / Colorado Springs ITC /* / \\ /**\\ /***\\ / \\/ \\ Phone: TN/(719) 590-3402 / \\ \\ Fax: " " 590-3596 / Bill Border \\ \\ EMail: border@cs.itc.hp.com / MVS Technical Support Mailstop: C103G