Small fix in MCI parser
This commit is contained in:
parent
226fac328c
commit
5b81e856b1
|
@ -3985,3 +3985,6 @@
|
||||||
and their directories (if they do not already exist). See MUTIL.CFG for
|
and their directories (if they do not already exist). See MUTIL.CFG for
|
||||||
more information.
|
more information.
|
||||||
|
|
||||||
|
! The MCI parser for |!x MCI codes now checks for validity of the number
|
||||||
|
or otherwise does not parse the code.
|
||||||
|
|
||||||
|
|
|
@ -377,11 +377,16 @@ Begin
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Case Code[1] of
|
Case Code[1] of
|
||||||
'!' : Begin
|
'!' : If Code[2] in ['0'..'9'] Then Begin
|
||||||
A := strS2I(Code[2]);
|
A := strS2I(Code[2]);
|
||||||
|
|
||||||
ScreenInfo[A].X := Screen.CursorX;
|
ScreenInfo[A].X := Screen.CursorX;
|
||||||
ScreenInfo[A].Y := Screen.CursorY;
|
ScreenInfo[A].Y := Screen.CursorY;
|
||||||
ScreenInfo[A].A := Screen.TextAttr;
|
ScreenInfo[A].A := Screen.TextAttr;
|
||||||
|
End Else Begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
Exit;
|
||||||
End;
|
End;
|
||||||
'$' : Case Code[2] of
|
'$' : Case Code[2] of
|
||||||
'C' : Begin
|
'C' : Begin
|
||||||
|
|
|
@ -100,6 +100,7 @@ FUTURE / IDEAS / WORK IN PROGRESS / NOTES
|
||||||
- So much cool stuff to do with the new themes
|
- So much cool stuff to do with the new themes
|
||||||
- LastOn revamp make sure its not global and new stuff is populated
|
- LastOn revamp make sure its not global and new stuff is populated
|
||||||
- ANSI online help that can execute menu commands/restore screen
|
- ANSI online help that can execute menu commands/restore screen
|
||||||
|
- MPL fAppend? Why didnt I add that?
|
||||||
|
|
||||||
RANDOM DRUNKEN BRAINDUMP AKA DESIGN DETAILS
|
RANDOM DRUNKEN BRAINDUMP AKA DESIGN DETAILS
|
||||||
===========================================
|
===========================================
|
||||||
|
|
Loading…
Reference in New Issue