# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1557176596 -7200
# Node ID 66b510a8b81cf5026612300ed342f091bcd7f2a2
# Parent  444ed06223484a5226c1e832473b6e274cd85fc8
Pas2C: Fix path concatenation in uVideoRec

diff -r 444ed0622348 -r 66b510a8b81c hedgewars/uVideoRec.pas
--- a/hedgewars/uVideoRec.pas	Mon May 06 22:43:35 2019 +0200
+++ b/hedgewars/uVideoRec.pas	Mon May 06 23:03:16 2019 +0200
@@ -83,7 +83,7 @@
 
 {$IOCHECKS OFF}
     // open file with prerecorded camera positions
-    filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtin';
+    filename:= shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix) + '.txtin';
     Assign(cameraFile, filename);
     Reset(cameraFile, SizeOf(TFrame));
     maxProgress:= FileSize(cameraFile);
@@ -113,11 +113,11 @@
         desc:= desc + 'Theme: ' + Theme + #10;
     desc:= desc + 'prefix[' + RecPrefix + ']prefix';
 
-    filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix;
+    filename:= shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix);
 
     recordAudio:= (cAudioCodec <> 'no');
     if recordAudio then
-        soundFilePath:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.sw'
+        soundFilePath:= shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix) + '.sw'
     else
         soundFilePath:= '';
 
@@ -285,7 +285,7 @@
     begin
         if GameType <> gmtDemo then // this is save and game demo is not recording, abort
             exit;
-        CopyFile(recordFileName, UserPathPrefix + '/VideoTemp/' + RecPrefix + '.hwd');
+        CopyFile(recordFileName, shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix) + '.hwd');
     end;
 
     if cIsSoundEnabled then
@@ -301,7 +301,7 @@
 
 {$IOCHECKS OFF}
         // create sound file
-        filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.sw';
+        filename:= shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix) + '.sw';
         Assign(audioFile, filename);
         Rewrite(audioFile, 1);
         if IOResult <> 0 then
@@ -312,7 +312,7 @@
         end;
 
     // create file with camera positions
-    filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtout';
+    filename:= shortstring(UserPathPrefix) + '/VideoTemp/' + shortstring(RecPrefix) + '.txtout';
     Assign(cameraFile, filename);
     Rewrite(cameraFile, SizeOf(TFrame));
     if IOResult <> 0 then