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

Fixes

This commit is contained in:
mysticbbs 2012-09-23 02:25:58 -04:00
parent 3752038700
commit 192ae59e41
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mystic/nodespy_term.pas
View File

@ -166,7 +166,10 @@ Begin
Res := Client.ReadBuf (Buffer, BufferSize); Res := Client.ReadBuf (Buffer, BufferSize);
If Res < 0 Then Begin If Res < 0 Then Begin
ShowMsgBox (0, 'Connection terminated');
Done := True; Done := True;
Break; Break;
End; End;
@ -177,6 +180,10 @@ Begin
Case Ch of Case Ch of
#00 : Case Keyboard.ReadKey of #00 : Case Keyboard.ReadKey of
#38 : Begin
Client.WriteStr (Dial.User + #13);
Client.WriteStr (Dial.Password + #13);
End;
#45 : Break; #45 : Break;
#71 : Client.WriteStr(#27 + '[H'); #71 : Client.WriteStr(#27 + '[H');
#72 : Client.WriteStr(#27 + '[A'); #72 : Client.WriteStr(#27 + '[A');
@ -216,12 +223,19 @@ Begin
Box := TMenuBox.Create(Screen); Box := TMenuBox.Create(Screen);
Form := TMenuForm.Create(Screen); Form := TMenuForm.Create(Screen);
Box.HeadAttr := 1 + 7 * 16;
Box.Header := ' Book Editor '; Box.Header := ' Book Editor ';
Box.Open (18, 8, 63, 16); Box.Open (17, 8, 63, 16);
Form.HelpSize := 0;
Form.AddStr ('N', ' Name' , 24, 10, 32, 10, 6, 26, 26, @NewRec.Name, ''); Form.AddStr ('N', ' Name' , 24, 10, 32, 10, 6, 26, 26, @NewRec.Name, '');
Form.AddStr ('A', ' Address', 21, 11, 32, 11, 9, 30, 60, @NewRec.Address, ''); Form.AddStr ('A', ' Address', 21, 11, 32, 11, 9, 30, 60, @NewRec.Address, '');
Form.AddStr ('U', ' User Name', 19, 12, 32, 12, 11, 30, 30, @NewRec.User, '');
Form.AddPass ('P', ' Password', 20, 13, 32, 13, 10, 20, 20, @NewRec.Password, '');
Form.AddBol ('S', ' StatusBar', 19, 14, 32, 14, 11, 3, @NewRec.StatusBar, '');
Form.Execute; Form.Execute;