浏览代码

+ Small cosmetic fix in log function

michael 24 年之前
父节点
当前提交
66ef7657db
共有 1 个文件被更改,包括 2 次插入2 次删除
  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;