Small fix in MCI parser

This commit is contained in:
mysticbbs 2012-03-04 13:26:05 -05:00
parent 226fac328c
commit 5b81e856b1
3 changed files with 10 additions and 1 deletions

View File

@ -3985,3 +3985,6 @@
and their directories (if they do not already exist). See MUTIL.CFG for
more information.
! The MCI parser for |!x MCI codes now checks for validity of the number
or otherwise does not parse the code.

View File

@ -377,11 +377,16 @@ Begin
End;
Case Code[1] of
'!' : Begin
'!' : If Code[2] in ['0'..'9'] Then Begin
A := strS2I(Code[2]);
ScreenInfo[A].X := Screen.CursorX;
ScreenInfo[A].Y := Screen.CursorY;
ScreenInfo[A].A := Screen.TextAttr;
End Else Begin
Result := False;
Exit;
End;
'$' : Case Code[2] of
'C' : Begin

View File

@ -100,6 +100,7 @@ FUTURE / IDEAS / WORK IN PROGRESS / NOTES
- So much cool stuff to do with the new themes
- LastOn revamp make sure its not global and new stuff is populated
- ANSI online help that can execute menu commands/restore screen
- MPL fAppend? Why didnt I add that?
RANDOM DRUNKEN BRAINDUMP AKA DESIGN DETAILS
===========================================