equal
deleted
inserted
replaced
367 |
367 |
368 procedure initModule; |
368 procedure initModule; |
369 begin |
369 begin |
370 // we need to make sure these variables are initialized before the main loop |
370 // we need to make sure these variables are initialized before the main loop |
371 // or the wrapper will keep the default values of preinit |
371 // or the wrapper will keep the default values of preinit |
372 cScreenWidth:= min(cWindowedWidth, 640); |
372 cScreenWidth:= max(cWindowedWidth, 640); |
373 cScreenHeight:= min(cWindowedHeight, 480); |
373 cScreenHeight:= max(cWindowedHeight, 480); |
374 end; |
374 end; |
375 |
375 |
376 procedure freeModule; |
376 procedure freeModule; |
377 begin |
377 begin |
378 if flagPrerecording then |
378 if flagPrerecording then |