paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ErrorHandler correction

Browse Source
This commit is contained in:
Tomas Hajny 2001-01-13 12:01:07 +00:00
parent a1f1b9c441
commit f846bccd00
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/os2/keyboard.pp
View File

@ -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
}