Posted by Grant Foraker on May 07, 2015 at 13:29:59:
In Reply to: Re: Nwe prompt screen posted by Richard smith on May 07, 2015 at 12:37:16:
Here's some of the logic ...
-----------------------------------------------------
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 -----------------------------------------
SELECT CASE USESSION
CASE 0
LET URED = 255 ! White
LET UGREEN = 255
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
---------------------------------------------------------------------------------
I'd rather that customers totally switched to Windows colors. But, some want some kind of "reminder" about what session their using. Basically, you have to turn DOS colors off for everyone. Mixing this scheme and DOS colors results in some very ugly color combinations.
Don't know what the screens would look like if the user selected some kind of Windows "theme" with it's own colors.
The colors seem to get reset occasionally. So I have a SETCOLOR program ENTER'd in every menu.
The sessions can go as high as 7.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.