[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== POP.UP Change the colour of a single row (AREV Specific) ====
=== At 25 APR 2001 07:25:23PM Jeff Ritchie wrote: ===
 
{{tag>"AREV Specific"}}
 
<QUOTE>
Does anyone if it is possible to change the colour of a single row in a multi row POP.UP window, i.e If ten rows, l want say the second to be red and the rest to be standard colouring. (Code snippet would be great as l am new to Revelation, but am well versed in Universe).

Thanks in advance,
</QUOTE>
----

=== At 25 APR 2001 08:20PM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>There is no simple way in AREV to vary the colour of the second row from within the popup. Once your popup is loaded you are executing 

AREV's $POP.UP routine, with no hooks available to alter colours based on popup row (except in multi-selection popups where data is pre-selected). The popup's colour attributes are taken (and can be dynamically altered prior to invoking the popup) from the @PW variable. 



You may be forced to write your own substitute popup routine - a time-consuming task if multiple pages of data are involved. The

PRINT @(columnsacross,linesdown):

RBasic syntax offers a way to print a string at a given screen co-ordinate. The VIDEO.RW routine (along with some other AREV routines) offers the means to dynamically alter screen video attributes. The SEQ() and CHAR() functions may also be useful here for ASCII to numeric conversions. Check your RBASIC manual for more details.



[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]

[i]World Leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]

</QUOTE>

----

=== At 25 APR 2001 11:14PM Jeff Ritchie wrote:  ===

<QUOTE>Thanks for the answer guys. Asked one of our Senior Programmers who provided a solution to the problem, which does allow change of colour for a single row in a Pop.Up. I probably didn't formulate the question correctly above, am building up the pop record and then calling the PopUp function programmatically. If interested will post the code snippet once l get it working, (today hopefully).



ONce again thanks for the reply.

</QUOTE>

----

=== At 26 APR 2001 03:10AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>We're always interested in clever solutions. If you post the code it will be of interest to many. 



[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]

[i]World Leaders in all things R[color=red]e[color=black]vSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]

</QUOTE>

----

=== At 26 APR 2001 08:56PM Jeff Ritchie wrote:  ===

<QUOTE>Ok this appears to work ok:



EQU esc         to CHAR(27)

EQU color.start to "C4?"     ;* White on dark red

EQU color.stop  to "C71"     ;* Standard

Line=1

*

Loop

   DataArray=extract(Whatever,1,0,0)

until DataArray="



   If DataArray =esc:color.start:DataArray:esc:color.stop

      popline=esc:color.start:DataArray:esc:color.stop

   end else

      popline=DataArray

      popline=DataArray

   end



   line += 1

repeat



etc.....

</QUOTE>

----

=== At 27 APR 2001 05:14AM Cameron Christie wrote:  ===

<QUOTE>Jeff,



If this is going to be a common requirement for you, then you could consider writing a generic user defined conversion using the same technique. This allows you e.g. to change entire columns, or display negative numbers in red, or make other conditional changes, AND to have this happen on "normal" predefined popups as well as on the more hard coded POP.UP approach.



By coincidence I have such a routine already which I will happily email to you by return if you let me know your address. (If you make any improvements to it you can return the favour - and who knows, I might need some help with Universe one day...!)



Cameron

</QUOTE>

----

=== At 29 APR 2001 08:13PM Jeff Ritchie wrote:  ===

<QUOTE>Hey thanks Cameron



jeffery.scott-ritchie@tvsn.com.au



Any help at this stage would be good, am currently de-learning Universe to replace with Revelation and Open Insight. Some how Visual Basic seems a lot easier than this stuff.

</QUOTE>

----

=== At 30 APR 2001 11:09AM Cameron Christie wrote:  ===

<QUOTE>It's on the way (although your mail server is currently reporting "transient non-fatal errors", the software at this end will keep on trying for up to 5 days...)

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=7075B854EB4F47B985256A390080AAD1|View this thread on the  forum...]]