Search data now properly clears itself after an exit code (hi or lo) is used.
This commit is contained in:
parent
3db6177dbe
commit
0d5ab646a0
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue