paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:34:12 +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; function TranslateKeyEventUniCode (KeyEvent: TKeyEvent): TKeyEvent;
begin begin
TranslateKeyEventUniCode := KeyEvent; TranslateKeyEventUniCode := KeyEvent;
ErrorHandler (errKbdNotImplemented, nil); ErrorCode := errKbdNotImplemented;
(* ErrorHandler (errKbdNotImplemented, nil);*)
end; end;
end. end.
{ {
$Log$ $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 * API 2 RTL commit
} }