Browse Source

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

git-svn-id: trunk@49562 -
marcus 4 years ago
parent
commit
51996d6280
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-console/src/amicommon/keyboard.pp

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

@@ -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]);