Posted by Grant Foraker on October 22, 2010 at 08:11:55:
In Reply to: Re: Session screen color at initialization posted by Richard Neer on October 22, 2010 at 07:46:33:
I too have several customers who insist on the old DOS color scheme for pretty much the same reasons. This is what I'm playing with as a substitute.
In QMONITOR and Z, I'm entering SETCOLOR which determines the session (0-7) for local sessions. If the it's a CometAnywhere session I skip the color. I've made the colors "pale" so that they won't eat so much toner on PrintScreens. Tested in Comet16. Not yet in Comet32. Works pretty well but needs refreshing as some of my programs reset the colors to white. I'm not sure why. And, QSPOOLER's old viewer gets a bit flakey at times.
Here's some of the code.
========================== setcolor.ibs ==========================
LET UColor$ = 'Y'
LET USession = 0
LET USTAT$ = PSTAT(PARTITION$)
LET USESSION = Asc(Sub(UStat$, 60, 1)) + (USession * 256)
LET USession = USession - 1 ! Session numbers are based 0
GOSUB SS.GetCurStatus
IF SS.IsRemote EQ True Let Ucolor$ = 'N' ! Remote session, skip special colors
IF UCOLOR$ EQ 'Y'
INCLUDE '^COLOR.INC'
PRINT (WallPaperColor = URed, UGreen, UBlue)
PRINT (TransparentColor = 252)
ENDIF
===========================^COLOR.INC ===============================
SELECT CASE USESSION
CASE 0
LET URED = 230 ! Light Blue
LET UGREEN = 230
LET UBLUE = 255
CASE 1
LET URED = 240 ! Light Gray
LET UGREEN = 240
LET UBLUE = 240
CASE 2
LET URED = 255 ! Cream
LET UGREEN = 250
LET UBLUE = 202
CASE 3
LET URED = 183 ! Light Green
LET UGREEN = 255
LET UBLUE = 193
CASE 4
LET URED = 255 ! Light Red
LET UGREEN = 150
LET UBLUE = 150
CASE 5
LET URED = 255 ! Light Yellow
LET UGREEN = 255
LET UBLUE = 128
CASE 6
LET URED = 255 ! Yellow
LET UGREEN = 255
LET UBLUE = 193
CASE 7
LET URED = 130 ! Light Aqua
LET UGREEN = 253
LET UBLUE = 250
CASE ELSE
LET URED = 255 ! White
LET UGREEN = 255
LET UBLUE = 255
ENDSELECT
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.