From 1318c9d1009fe3e6085c137d21b59c180bc2128b Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 3 Mar 2012 22:07:43 -0500 Subject: [PATCH] Reformat --- mystic/bbs_ansi_help.pas | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/mystic/bbs_ansi_help.pas b/mystic/bbs_ansi_help.pas index e8a92e8..b1e8bd8 100644 --- a/mystic/bbs_ansi_help.pas +++ b/mystic/bbs_ansi_help.pas @@ -321,11 +321,15 @@ Begin #72 : Begin If (CurLine = 1) and (TopPage > 1) Then Begin Dec (TopPage); + DrawPage; + UpdateCursor; End Else If CurLine > 1 Then Begin LinkOFF(TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + Dec (CurLine); + UpdateCursor; End; End; @@ -345,12 +349,16 @@ Begin End; #75 : If (CurLPos > 1) and (Text[TopPage + CurLine - 1].Links > 0) Then Begin LinkOFF(TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + Dec(CurLPos); + LinkON; End; #77 : If CurLPos < Text[TopPage + CurLine - 1].Links Then Begin LinkOFF(TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + Inc(CurLPos); + LinkON; End; #79 : If TopPage + WinSize <= Lines Then Begin @@ -363,29 +371,39 @@ Begin End Else If TopPage + CurLine <= Lines Then Begin LinkOFF (TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + CurLine := Lines - TopPage + 1; + UpdateCursor; End; #80 : Begin If (CurLine = WinSize) and (TopPage + WinSize <= Lines) Then Begin Inc(TopPage); + DrawPage; + UpdateCursor; End Else If (CurLine < WinSize) And (TopPage + CurLine <= Lines) Then Begin LinkOFF(TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + Inc(CurLine); + UpdateCursor; End; End; #81 : If TopPage + WinSize <= Lines Then Begin PageDown; + DrawPage; + UpdateCursor; End Else If TopPage + CurLine <= Lines Then Begin LinkOFF (TopPage + CurLine - 1, WinY1 + CurLine - 1, CurLPos); + CurLine := Lines - TopPage + 1; + UpdateCursor; End;