Quellcode durchsuchen

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

git-svn-id: branches/unicodekvm@40293 -
nickysn vor 6 Jahren
Ursprung
Commit
18a752d20a
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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);