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; Box.Free;
End; 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; Function GetTerminalEntry (Var Book: PhoneBookRec; Var Dial: PhoneRec) : Boolean;
Var Var
Count : SmallInt; Count : SmallInt;
@ -481,6 +501,7 @@ Begin
List.HiAttr := 9 + 1 * 16; List.HiAttr := 9 + 1 * 16;
List.LoChars := #13#27; List.LoChars := #13#27;
List.HiChars := #18#82#83; List.HiChars := #18#82#83;
List.SetSearchProc(SearchEntry);
Repeat Repeat
List.Clear; List.Clear;