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

ANSI efficiency updates

This commit is contained in:
mysticbbs 2012-02-16 22:43:36 -05:00
parent 0e1d340d24
commit b0cf4b2ac8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_ansi_menubox.pas
View File

@ -479,13 +479,13 @@ Begin
Picked := ListMax; Picked := ListMax;
Update; Update;
End; End;
#80 : Begin { down arrow } #80 : If Picked < ListMax Then Begin
If Picked < ListMax Then Inc (Picked); Inc (Picked);
If Picked > TopPage + WinSize - 1 Then Inc (TopPage); If Picked > TopPage + WinSize - 1 Then Inc (TopPage);
Update; Update;
End; End;
#77, #77,
#81 : If ListMax > 0 Then Begin { page down / right arrow } #81 : If (Picked <> ListMax) Then Begin { pgdn/right }
If ListMax > WinSize Then Begin If ListMax > WinSize Then Begin
If Picked + WinSize > ListMax Then If Picked + WinSize > ListMax Then
Picked := ListMax Picked := ListMax