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

Added leet entry searching

This commit is contained in:
mysticbbs 2013-02-15 23:17:26 -05:00
parent 6c3599b631
commit 4b401e784d
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mystic/nodespy_term.pas
View File

@ -449,6 +449,26 @@ Begin
Box.Free;
End;
Procedure SearchEntry (Var Owner: Pointer; Str: String);
Begin
If Str = '' Then
Str := strRep(' ', 17)
Else Begin
If Length(Str) > 15 Then
Str := Copy(Str, Length(Str) - 15 + 1, 255);
Str := '[' + strLower(Str) + ']';
While Length(Str) < 17 Do
Str := Str + ' ';
End;
Screen.WriteXY (TMenuList(Owner).SearchX,
23,
8 + 7 * 16,
Str);
End;
Function GetTerminalEntry (Var Book: PhoneBookRec; Var Dial: PhoneRec) : Boolean;
Var
Count : SmallInt;
@ -481,6 +501,7 @@ Begin
List.HiAttr := 9 + 1 * 16;
List.LoChars := #13#27;
List.HiChars := #18#82#83;
List.SetSearchProc(SearchEntry);
Repeat
List.Clear;