diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 42c2c6b66a08ab53ccfe6ac9a8187763004f78a7..494839e01324c73d6281594ff0db2a9c60d54d49 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
var
g_GUIWindows: array of TGUIWindow;
g_ActiveWindow: TGUIWindow = nil;
var
g_GUIWindows: array of TGUIWindow;
g_ActiveWindow: TGUIWindow = nil;
+ g_GUIGrabInput: Boolean = False;
procedure g_GUI_Init();
function g_GUI_AddWindow(Window: TGUIWindow): TGUIWindow;
procedure g_GUI_Init();
function g_GUI_AddWindow(Window: TGUIWindow): TGUIWindow;
end;
end;
end;
end;
- g_Touch_ShowKeyboard(FWindow.FActiveControl = Self);
+ g_GUIGrabInput := FWindow.FActiveControl = Self;
+ g_Touch_ShowKeyboard(g_GUIGrabInput)
end;
procedure TGUIEdit.SetText(Text: string);
end;
procedure TGUIEdit.SetText(Text: string);
end;
end;
end;
end;
end;
end;
+
+ g_GUIGrabInput := FIsQuery
end;
{ TGUIKeyRead2 }
end;
{ TGUIKeyRead2 }
end;
end;
end;
end;
end;
end;
+
+ g_GUIGrabInput := FIsQuery
end;
end;