Browse Source

- removed redundant setting of result in TranslateKey

git-svn-id: branches/unicodekvm@40233 -
nickysn 6 years ago
parent
commit
58d899bf75
1 changed files with 0 additions and 2 deletions
  1. 0 2
      packages/rtl-console/src/win/keyboard.pp

+ 0 - 2
packages/rtl-console/src/win/keyboard.pp

@@ -781,8 +781,6 @@ begin
          if b <> 0 then
          if b <> 0 then
            key := (key and $FFFF0000) or (cardinal (b) shl 8);
            key := (key and $FFFF0000) or (cardinal (b) shl 8);
        end;
        end;
-
-     TranslateKey := key;
   end;
   end;
   translateKey := Key;
   translateKey := Key;
 end;
 end;