RE: Text wrapping question

Yeah, I've gone back to that, though it usually didn't work here when we
were at V4R4.  One window in 10 would actually get the graphical border.  It
seems to work again at V5R1.

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: Booth Martin [mailto:Booth@MartinVT.com]
Sent: Thursday, May 23, 2002 6:52 PM
To: rpg400-l@midrange.com
Subject: RE: Text wrapping question



Delete ththis part:

 (*DSPATR RI)-

A (*CHAR ' '))

A 1 1'- -
and see the default effect that is offered now.   Its very attractive.
Here's an example:

http://www.martinvt.com/Code_Samples/Scroll_Bar/scroll_bar.html



---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Thursday, May 23, 2002 06:16:28 PM
To: 'rpg400-l@midrange.com'
Subject: RE: Text wrapping question

Mike,

I know I'm jumping in late, but you didn't say if this was for a report or
an interactive display. If DSPF, have a look at WRDWRAP. Here's a generic
window I sometimes use for warning messages....

--------------------------------
A R PGWARNING

A WINDOW(10 24 7 30 *NOMSGLIN)

A CA12

A CA03

A WDWBORDER((*COLOR RED) (*DSPATR RI)-

A (*CHAR ' '))

A 1 1'- -
A COLOR(RED)

A 1 9'W A R N I N G'

A COLOR(WHT)

A 1 23'
A COLOR(RED)

A $VWARN 150A B 2 1CNTFLD(030)

A WRDWRAP

A CHGINPDFT

A DSPATR(PR)

--------------------------------

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.