Search data now properly clears itself after an exit code (hi or lo) is used.

This commit is contained in:
mysticbbs 2013-02-15 23:20:16 -05:00
parent 3db6177dbe
commit 0d5ab646a0
1 changed files with 12 additions and 0 deletions

View File

@ -702,6 +702,12 @@ Begin
End; End;
Else Else
If Pos(Ch, HiChars) > 0 Then Begin If Pos(Ch, HiChars) > 0 Then Begin
If SearchStr <> '' Then Begin
SearchStr := '';
If Assigned(SearchProc) Then
SearchProc(Self, SearchStr);
End;
ExitCode := Ch; ExitCode := Ch;
Exit; Exit;
End; End;
@ -719,6 +725,12 @@ Begin
DownArrow; DownArrow;
End Else End Else
If Pos(Ch, LoChars) > 0 Then Begin If Pos(Ch, LoChars) > 0 Then Begin
If SearchStr <> '' Then Begin
SearchStr := '';
If Assigned(SearchProc) Then
SearchProc(Self, SearchStr);
End;
ExitCode := Ch; ExitCode := Ch;
Exit; Exit;
End Else Begin End Else Begin