hedgewars/uVideoRec.pas
changeset 9543 1826b5315369
parent 9203 bcc25cb9b122
child 9545 f7a55d8e8f4d
equal deleted inserted replaced
9541:312bb4384f33 9543:1826b5315369
   365     BlockWrite(cameraFile, frame, 1);
   365     BlockWrite(cameraFile, frame, 1);
   366 end;
   366 end;
   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
       
   371     // or the wrapper will keep the default values of preinit
       
   372     cScreenWidth:= min(cWindowedWidth, 640);
       
   373     cScreenHeight:= min(cWindowedHeight, 480);
   370 end;
   374 end;
   371 
   375 
   372 procedure freeModule;
   376 procedure freeModule;
   373 begin
   377 begin
   374     if flagPrerecording then
   378     if flagPrerecording then