fpsvnsync: fixed using revision in svn copy command

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@641 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/fpsvnsync/fpsvnsync.lpi

@@ -2,11 +2,13 @@
 <CONFIG>
   <ProjectOptions>
     <PathDelim Value="\"/>
-    <Version Value="6"/>
+    <Version Value="7"/>
     <General>
+      <Flags>
+        <LRSInOutputDirectory Value="False"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
     </General>
     <VersionInfo>
@@ -41,11 +43,8 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
+    <Version Value="8"/>
     <PathDelim Value="\"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="True"/>

applications/fpsvnsync/fpsvnsync.lpr

@@ -163,7 +163,7 @@ var
       if LogPath.Action in [caModify, caAdd] then begin
         SourceFile := FSourceWC + LogPath.Path;
         if LogPath.CopyFromPath<>'' then begin
-          Command := format('copy -r%d "%s%s" "%s"',
+          Command := format('copy "%1:s%2:s"@%0:d "%3:s"',
             [LogPath.CopyFromRevision,
              DestRoot, LogPath.CopyFromPath, DestFile]);
           writeln('svn '+ Command);