Changeset 34 for trunk/Packages
- Timestamp:
- Jan 11, 2018, 4:43:35 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/FastGraphics/UGGraphics.pas
r33 r34 213 213 PixelPtrMin := PixelRowPtr; 214 214 PixelPtrMax := PixelRowPtr + RawImage.Description.Width * RawImage.Description.Height * BytePerPixel; 215 for Y := Rect.Top to Rect.Bottom- 1 do begin215 for Y := 0 to Bitmap.Height - 1 do begin 216 216 PixelPtr := PixelRowPtr; 217 for X := Rect.Left to Rect.Right - 1 do begin 218 if (X >= 0) and (X < FSize.X) and (Y >= 0) and (Y < FSize.Y) and 217 for X := 0 to Bitmap.Width - 1 do begin 218 if ((X + Rect.Left) >= 0) and ((X + Rect.Left) < FSize.X) and 219 ((Y + Rect.Top) >= 0) and ((Y + Rect.Top) < FSize.Y) and 219 220 (PixelPtr < PixelPtrMax) and (PixelPtr >= PixelPtrMin) then begin 220 PixelPtr^ := ColorConvertFunc(Pixels[X , Y]);221 PixelPtr^ := ColorConvertFunc(Pixels[X + Rect.Left, Y + Rect.Top]); 221 222 end; 222 223 Inc(PByte(PixelPtr), BytePerPixel);
Note:
See TracChangeset
for help on using the changeset viewer.