Browse Source

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

git-svn-id: branches/unicodekvm@40293 -
nickysn 6 years ago
parent
commit
18a752d20a
1 changed files with 1 additions and 1 deletions
  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
 var
   TranslatedKeyEvent: TKeyEvent;
   TranslatedKeyEvent: TKeyEvent;
 begin
 begin
-  FillChar(ConvertToEnhancedKeyEvent,SizeOf(ConvertToEnhancedKeyEvent),0);
+  ConvertToEnhancedKeyEvent:=NilEnhancedKeyEvent;
   if KeyEvent=0 then
   if KeyEvent=0 then
     exit;
     exit;
   ConvertToEnhancedKeyEvent.ShiftState:=GetKeyEventShiftState(KeyEvent);
   ConvertToEnhancedKeyEvent.ShiftState:=GetKeyEventShiftState(KeyEvent);