208 for i:= fromPix to toPix do |
208 for i:= fromPix to toPix do |
209 begin |
209 begin |
210 Land[y, i]:= Land[y, i] and lfNotCurrentMask; |
210 Land[y, i]:= Land[y, i] and lfNotCurrentMask; |
211 end; |
211 end; |
212 changePixelSetNotCurrent: |
212 changePixelSetNotCurrent: |
213 for i:= fromPix to toPix do |
213 for i:= fromPix to toPix do |
214 begin |
214 begin |
215 if Land[y, i] and lfObjMask > 0 then |
215 if Land[y, i] and lfObjMask > 0 then |
216 Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) - 1); |
216 Land[y, i]:= Land[y, i] - 1; |
217 end; |
217 end; |
218 setCurrentHog: |
218 setCurrentHog: |
219 for i:= fromPix to toPix do |
219 for i:= fromPix to toPix do |
220 begin |
220 begin |
221 Land[y, i]:= Land[y, i] or lfCurrentHog |
221 Land[y, i]:= Land[y, i] or lfCurrentHog |
222 end; |
222 end; |
223 changePixelNotSetNotCurrent: |
223 changePixelNotSetNotCurrent: |
224 for i:= fromPix to toPix do |
224 for i:= fromPix to toPix do |
225 begin |
225 begin |
226 if Land[y, i] and lfObjMask < lfObjMask then |
226 if Land[y, i] and lfObjMask < lfObjMask then |
227 Land[y, i]:= (Land[y, i] and lfNotObjMask) or ((Land[y, i] and lfObjMask) + 1) |
227 Land[y, i]:= Land[y, i] + 1 |
228 end; |
228 end; |
229 end; |
229 end; |
230 end; |
230 end; |
231 |
231 |
232 function FillLandCircleSegment(x, y, dx, dy: LongInt; fill : fillType): Longword; inline; |
232 function FillLandCircleSegment(x, y, dx, dy: LongInt; fill : fillType): Longword; inline; |
233 begin |
233 begin |