# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1557014652 -7200
# Node ID 002f7d41f5ce0e94da4672537cbbb1462c6e6c1b
# Parent  4e3d81af71bff0dc1dcd368a46ec1f9dc1d1e2a3
VideoRec: Replace "File of" syntax to make Pas2C happy

diff -r 4e3d81af71bf -r 002f7d41f5ce hedgewars/uVideoRec.pas
--- a/hedgewars/uVideoRec.pas	Sat May 04 21:37:22 2019 +0200
+++ b/hedgewars/uVideoRec.pas	Sun May 05 02:04:12 2019 +0200
@@ -68,7 +68,7 @@
               end;
 
 var RGB_Buffer: PByte;
-    cameraFile: File of TFrame;
+    cameraFile: File;
     audioFile: File;
     numPixels: LongWord;
     startTime, numFrames, curTime, progress, maxProgress: LongWord;
@@ -85,7 +85,7 @@
     // open file with prerecorded camera positions
     filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtin';
     Assign(cameraFile, filename);
-    Reset(cameraFile);
+    Reset(cameraFile, SizeOf(TFrame));
     maxProgress:= FileSize(cameraFile);
     if IOResult <> 0 then
     begin
@@ -314,7 +314,7 @@
     // create file with camera positions
     filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtout';
     Assign(cameraFile, filename);
-    Rewrite(cameraFile);
+    Rewrite(cameraFile, SizeOf(TFrame));
     if IOResult <> 0 then
         begin
         AddFileLog('Error: Could not write to ' + filename);