merge 0.9.15
authorkoda
Thu, 13 Jan 2011 04:17:19 +0100
branch0.9.15
changeset 4734 55625e76c232
parent 4730 bd74fd83929a (diff)
parent 4727 e51393a45ffc (current diff)
child 4736 b4b44ae480c2
merge
--- a/hedgewars/uLandPainted.pas	Thu Jan 13 03:01:38 2011 +0100
+++ b/hedgewars/uLandPainted.pas	Thu Jan 13 04:17:19 2011 +0100
@@ -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;