Bläddra i källkod

- removed redundant setting of result in TranslateKey

git-svn-id: branches/unicodekvm@40233 -
nickysn 6 år sedan
förälder
incheckning
58d899bf75
1 ändrade filer med 0 tillägg och 2 borttagningar
  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
            key := (key and $FFFF0000) or (cardinal (b) shl 8);
        end;
-
-     TranslateKey := key;
   end;
   translateKey := Key;
 end;