浏览代码

* ErrorHandler correction

Tomas Hajny 24 年之前
父节点
当前提交
f846bccd00
共有 1 个文件被更改,包括 6 次插入2 次删除
  1. 6 2
      rtl/os2/keyboard.pp

+ 6 - 2
rtl/os2/keyboard.pp

@@ -158,13 +158,17 @@ end;
 function TranslateKeyEventUniCode (KeyEvent: TKeyEvent): TKeyEvent;
 begin
  TranslateKeyEventUniCode := KeyEvent;
- ErrorHandler (errKbdNotImplemented, nil);
+ ErrorCode := errKbdNotImplemented;
+(* ErrorHandler (errKbdNotImplemented, nil);*)
 end;
 
 end.
 {
   $Log$
-  Revision 1.1  2001-01-13 11:03:58  peter
+  Revision 1.2  2001-01-13 12:01:07  hajny
+    * ErrorHandler correction
+
+  Revision 1.1  2001/01/13 11:03:58  peter
     * API 2 RTL commit
 
 }