hedgewars/uStore.pas
changeset 9993 76ad55807c24
parent 9938 6dbddbb7b229
child 9994 8455993a7a1b
--- a/hedgewars/uStore.pas	Thu Jan 16 12:28:41 2014 +0100
+++ b/hedgewars/uStore.pas	Thu Jan 16 17:18:53 2014 +0100
@@ -322,6 +322,8 @@
 AddFileLog('StoreLoad()');
 
 if not reload then
+    begin
+    pfsPermitSymbolicLinks(true);
     for fi:= Low(THWFont) to High(THWFont) do
         with Fontz[fi] do
             begin
@@ -332,6 +334,8 @@
             TTF_SetFontStyle(Handle, style);
             WriteLnToConsole(msgOK)
             end;
+    pfsPermitSymbolicLinks(false);
+    end;
 
 MakeCrossHairs;
 LoadGraves;