paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixes for numeric keypad enter and /

Browse Source
This commit is contained in:
marco 2004-05-02 13:05:39 +00:00
parent f34715d35c
commit a54f67d3a1
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/win32/crt.pp
View File

@ -693,6 +693,22 @@ Begin
WriteChar(f.bufptr^[f.bufpos]);
inc(f.bufpos);
end;
#28: begin // numpad enter
WriteChar(#13);
WriteChar(#10);
f.bufptr^[f.bufend]:=#13;
f.bufptr^[f.bufend+1]:=#10;
inc(f.bufend,2);
break;
end;
#53: begin
ch:='/';
if f.bufpos<f.bufsize-2 then begin
f.buffer[f.bufpos]:=ch;
inc(f.bufpos);
WriteChar(ch);
end;
end;
end;
^S,
#8 : BackSpace;
@ -812,7 +828,10 @@ end. { unit Crt }
{
$Log$
Revision 1.21 2004-02-08 16:22:20 michael
Revision 1.22 2004-05-02 13:05:39 marco
* Fixes for numeric keypad enter and /
Revision 1.21 2004/02/08 16:22:20 michael
+ Moved CRT interface to common include file
Revision 1.20 2003/11/03 09:42:28 marco