index 85e5d947e2dd9af743c1c4b5d48752ba40fbefd8..b7142a85bc03504b8cda40fc8c380e3a5af21d50 100644 (file)
var ev: TSDL_Event;
begin
result := false;
+ ZeroMemory(@ev, sizeof(ev));
while SDL_PollEvent(@ev) <> 0 do
begin
case ev.type_ of