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

packages/fv/src/drivers.inc

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

packages/rtl-console/src/amicommon/keyboard.pp

@@ -470,7 +470,7 @@ begin
           KeyCode := Ord(Buff[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^.Flags := 0;
+          KeySet^.Flags := kbPhys;
           if keyup then                            // we do not need key up events up to now
           begin
             KeySet^.Flags := KeySet^.Flags or kbReleased; // kbReleased does work but make strange effects