浏览代码

* use :=NilEnhancedKeyEvent instead of FillChar to clear the result of ConvertToEnhancedKeyEvent

git-svn-id: branches/unicodekvm@40293 -
nickysn 6 年之前
父节点
当前提交
18a752d20a
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl-console/src/inc/keyboard.inc

+ 1 - 1
packages/rtl-console/src/inc/keyboard.inc

@@ -158,7 +158,7 @@ function ConvertToEnhancedKeyEvent(KeyEvent: TKeyEvent): TEnhancedKeyEvent;
 var
   TranslatedKeyEvent: TKeyEvent;
 begin
-  FillChar(ConvertToEnhancedKeyEvent,SizeOf(ConvertToEnhancedKeyEvent),0);
+  ConvertToEnhancedKeyEvent:=NilEnhancedKeyEvent;
   if KeyEvent=0 then
     exit;
   ConvertToEnhancedKeyEvent.ShiftState:=GetKeyEventShiftState(KeyEvent);