changeset 188 | a7c2a61524c2 |
parent 183 | 57c2ef19f719 |
child 200 | a36102728776 |
187:96c3154efee5 | 188:a7c2a61524c2 |
---|---|
116 end; |
116 end; |
117 |
117 |
118 /////////////////// |
118 /////////////////// |
119 procedure MainLoop; |
119 procedure MainLoop; |
120 var PrevTime, |
120 var PrevTime, |
121 CurrTime: Cardinal; |
121 CurrTime: Longword; |
122 event: TSDL_Event; |
122 event: TSDL_Event; |
123 begin |
123 begin |
124 PrevTime:= SDL_GetTicks; |
124 PrevTime:= SDL_GetTicks; |
125 repeat |
125 repeat |
126 while SDL_PollEvent(@event) <> 0 do |
126 while SDL_PollEvent(@event) <> 0 do |