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

+ get the current code page in the msdos keyboard unit as well

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-03-13 00:34:50 +02:00
parent c881067b23
commit 501b2d6c6f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/msdos/keyboard.pp
View File

@ -41,6 +41,10 @@ begin
if regs.ax<>$1200 then if regs.ax<>$1200 then
keyboard_type:=$10; keyboard_type:=$10;
end; end;
regs.ax:=$6601;
msdos(regs);
if (regs.flags and fCarry) = 0 then
CurrentLegacy2EnhancedKeyEventTranslationCodePage:=regs.bx;
end; end;