equal
deleted
inserted
replaced
147 |
147 |
148 while(pe <> nil) do |
148 while(pe <> nil) do |
149 begin |
149 begin |
150 if (pe^.point.flags and $80 <> 0) then |
150 if (pe^.point.flags and $80 <> 0) then |
151 begin |
151 begin |
152 {$IFDEF DEBUGBFILE}AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF} |
152 {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Move to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF} |
153 FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic) |
153 FillRoundInLand(pe^.point.X, pe^.point.Y, 34, lfBasic) |
154 end |
154 end |
155 else |
155 else |
156 begin |
156 begin |
157 {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF} |
157 {$IFDEF DEBUGFILE}AddFileLog('[DRAW] Line to: ('+inttostr(pe^.point.X)+','+inttostr(pe^.point.Y)+')');{$ENDIF} |