Browse Source

Update zgl_window.pas

Seenkao 4 years ago
parent
commit
4df6928605
1 changed files with 4 additions and 0 deletions
  1. 4 0
      Zengl_SRC/src/zgl_window.pas

+ 4 - 0
Zengl_SRC/src/zgl_window.pas

@@ -934,6 +934,8 @@ end;
 
 {$IfNDef USE_INIT_HANDLE}
 procedure zgl_Init(FSAA: Byte = 0; StencilBits: Byte = 0);
+var
+  i: word; 
 begin
   {$IfNDef ANDROID}
   zgl_GetSysDir();
@@ -981,6 +983,8 @@ begin
     wndCaption := cs_ZenGL;
   wnd_UpdateCaption();
   {$EndIf}
+  for i := 0 to 255 do
+    keysUp[i] := true; 
   winOn := TRUE;
 
   {$IFDEF iOS}