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

Amiga: Fix for unable to type in FV applications for Amiga-systems

Browse Source
This commit is contained in:
Marcus Sackrow 2022-02-13 00:02:25 +01:00
parent b27335e8a5
commit 9f22623459
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/src/drivers.inc
View File

@ -1289,10 +1289,8 @@ begin
end; end;
Event.What:=evKeyDown; Event.What:=evKeyDown;
Event.KeyCode:=keycode; Event.KeyCode:=keycode;
{$ifdef ENDIAN_LITTLE}
Event.CharCode:=chr(keycode and $ff); Event.CharCode:=chr(keycode and $ff);
Event.ScanCode:=keycode shr 8; Event.ScanCode:=keycode shr 8;
{$endif ENDIAN_LITTLE}
Event.UnicodeChar:=key.UnicodeChar; Event.UnicodeChar:=key.UnicodeChar;
Event.KeyShift:=ConvertEnhancedToLegacyShiftState(key.ShiftState); Event.KeyShift:=ConvertEnhancedToLegacyShiftState(key.ShiftState);
end end

2
packages/rtl-console/src/amicommon/keyboard.pp
View File

@ -470,7 +470,7 @@ begin
KeyCode := Ord(Buff[0]); KeyCode := Ord(Buff[0]);
KeySet^.KeyCode := Ord(Buff[0]); // if maprawkey does not work it still is 0 KeySet^.KeyCode := Ord(Buff[0]); // if maprawkey does not work it still is 0
KeySet^.ShiftState := LastShiftState; // shift state set before the case KeySet^.ShiftState := LastShiftState; // shift state set before the case
KeySet^.Flags := 0; KeySet^.Flags := kbPhys;
if keyup then // we do not need key up events up to now if keyup then // we do not need key up events up to now
begin begin
KeySet^.Flags := KeySet^.Flags or kbReleased; // kbReleased does work but make strange effects KeySet^.Flags := KeySet^.Flags or kbReleased; // kbReleased does work but make strange effects