paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga video unit: fixed not initialized TInputEvent field, 2nd try, now the deadkeys actually work as they should

Browse Source 
git-svn-id: trunk@49562 -
This commit is contained in:
marcus 2021-06-26 08:46:38 +00:00
parent 4236bee6f1
commit 51996d6280
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -341,7 +341,7 @@ begin
ie.ie_Code := ICode;
ie.ie_Qualifier := IQual;
ie.ie_NextEvent := nil;
ie.ie_position.ie_addr := IAddr;
ie.ie_position.ie_addr := PPointer(IAddr)^;
Buff[0] := #0;
Ret := MapRawKey(@ie, @Buff[0], 1, nil);
KeyCode := Ord(Buff[0]);