0.9.15 merge + typo fix
authornemo
Mon, 27 Dec 2010 17:34:34 -0500
changeset 4735 08749f5127b9
parent 4724 a23bb7ba11f9 (current diff)
parent 4731 edf7d04d3fa9 (diff)
child 4737 ca03ce7e0c3f
0.9.15 merge + typo fix
--- a/hedgewars/uLandPainted.pas	Mon Dec 27 22:47:18 2010 +0100
+++ b/hedgewars/uLandPainted.pas	Mon Dec 27 17:34:34 2010 -0500
@@ -149,12 +149,12 @@
         begin
         if (pe^.point.flags and $80 <> 0) then
             begin
-            AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
+            {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
             FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic)
             end
             else
             begin
-            AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');
+            {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF}
             DrawLineOnLand(prevPoint.X, prevPoint.Y, pe^.point.X, pe^.point.Y);
             end;