Преглед на файлове

* 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);