From 737514c434aeebbdf5deebed281991ecc1ef77cb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 21 Dec 2009 09:59:04 +0000
Subject: [PATCH] * win crt unit returns #13 for numeric enter as well,
 resolves #13203

git-svn-id: trunk@14459 -
---
 rtl/win/crt.pp | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/rtl/win/crt.pp b/rtl/win/crt.pp
index a2b1398648..6369f4c247 100644
--- a/rtl/win/crt.pp
+++ b/rtl/win/crt.pp
@@ -336,17 +336,35 @@ begin
     $35:      Scancode := $95;   // \
     $37:      Scancode := $96;   // *
     $47..$53: Scancode := CtrlKeypadKeys[Scancode];
+    //Enter on Numpad
+    $1C:
+    begin
+      Scancode := $0A;
+      SpecialKey := False;
+    end;
     end
   else if ShiftKey then
     case Scancode of
     // Function keys
     $3B..$44: inc(Scancode, $19);
     $57..$58: inc(Scancode, $30);
+    //Enter on Numpad
+    $1C:
+    begin
+      Scancode := $0D;
+      SpecialKey := False;
+    end;
     end
   else
     case Scancode of
-    // Function keys
-    $57..$58: inc(Scancode, $2E); // F11 and F12
+      // Function keys
+      $57..$58: inc(Scancode, $2E); // F11 and F12
+      //Enter on NumPad
+      $1C:
+        begin
+          Scancode := $0D;
+          SpecialKey := False;
+        end;
   end;
   RemapScanCode := ScanCode;
 end;