eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added theme color MCI codes T0-T9

This commit is contained in:
mysticbbs 2012-03-05 14:50:46 -05:00
parent 5b0816fa28
commit 896d5478ca
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/HISTORY.txt
View File

@ -3996,3 +3996,6 @@
supplied as well. IE: mutil mutil.cfg -noscreen This is useful for supplied as well. IE: mutil mutil.cfg -noscreen This is useful for
Linux/OSX people that may want to execute MUTIL during a login or Linux/OSX people that may want to execute MUTIL during a login or
something but do not want their users to see the MUTIL screen. something but do not want their users to see the MUTIL screen.
+ Mystic now has 10 colors definable per theme, with 10 new MCI codes
|T0 to |T9 to display them.

8
mystic/bbs_cfg_theme.pas
View File

@ -175,12 +175,12 @@ Begin
List.LoChars := #13#27#47; List.LoChars := #13#27#47;
List.NoWindow := True; List.NoWindow := True;
Box.Open (8, 6, 73, 18); Box.Open (8, 6, 73, 19);
WriteXY (10, 8, 112, 'File Name Description'); WriteXY (10, 8, 112, 'File Name Description');
WriteXY (10, 9, 112, strRep(#196, 62)); WriteXY (10, 9, 112, strRep(#196, 62));
WriteXY (10, 16, 112, strRep(#196, 62)); WriteXY (10, 17, 112, strRep(#196, 62));
WriteXY (29, 17, 112, cfgCommandList); WriteXY (29, 18, 112, cfgCommandList);
Repeat Repeat
List.Clear; List.Clear;
@ -195,7 +195,7 @@ Begin
List.Add ('', 0); List.Add ('', 0);
List.Open (8, 9, 73, 16); List.Open (8, 9, 73, 17);
List.Close; List.Close;
Case List.ExitCode of Case List.ExitCode of

2
mystic/bbs_io.pas
View File

@ -579,6 +579,8 @@ Begin
'X' : LastMCIValue := strI2S(TBBSCore(Core).User.Security.MaxDLs); 'X' : LastMCIValue := strI2S(TBBSCore(Core).User.Security.MaxDLs);
End; End;
'T' : Case Code[2] of 'T' : Case Code[2] of
'0'..
'9' : LastMCIValue := Attr2Ansi(Session.Lang.Colors[strS2I(Code[2])]);
'B' : LastMCIValue := strI2S(TBBSCore(Core).User.ThisUser.TimeBank); 'B' : LastMCIValue := strI2S(TBBSCore(Core).User.ThisUser.TimeBank);
'C' : LastMCIValue := strI2S(Config.SystemCalls); 'C' : LastMCIValue := strI2S(Config.SystemCalls);
'E' : If Graphics = 1 Then LastMCIValue := 'Ansi' Else LastMCIValue := 'Ascii'; //++lang 'E' : If Graphics = 1 Then LastMCIValue := 'Ansi' Else LastMCIValue := 'Ascii'; //++lang