Ver Fonte

+ Small cosmetic fix in log function

michael há 24 anos atrás
pai
commit
66ef7657db
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      docs/kbdex/logkeys.pp

+ 2 - 2
docs/kbdex/logkeys.pp

@@ -54,8 +54,8 @@ begin
   K:=OldkeyboardDriver.GetKeyEvent();
   If Logging then
     begin
-    Write(KeyLog,TimeStamp);
-    Writeln(KeyLog,': Key event: ',KeyEventToString(TranslateKeyEvent(K)));
+    Write(KeyLog,TimeStamp,': Key event: ');
+    Writeln(KeyLog,KeyEventToString(TranslateKeyEvent(K)));
     end;
   LogGetKeyEvent:=K;  
 end;