Changeset 494 for GraphicTest/Packages/bgrabitmap/bgragrayscalemask.pas

Timestamp:

Dec 22, 2016, 8:49:19 PM (8 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgragrayscalemask.pas (modified) (2 diffs)

GraphicTest/Packages/bgrabitmap/bgragrayscalemask.pas

@@ -39 +39 @@
 procedure DownSamplePutImageGrayscale(source: TBGRACustomBitmap; dest: TGrayscaleMask; ADestRect: TRect);
 
+procedure BGRAFillClearTypeGrayscaleMask(dest: TBGRACustomBitmap; x,
+  y: integer; xThird: integer; mask: TGrayscaleMask; color: TBGRAPixel;
+  texture: IBGRAScanner; RGBOrder: boolean);
+
 implementation
 
-uses GraphType, BGRABlend;
+uses BGRABlend;
+
+procedure BGRAFillClearTypeGrayscaleMask(dest: TBGRACustomBitmap; x,
+  y: integer; xThird: integer; mask: TGrayscaleMask; color: TBGRAPixel;
+  texture: IBGRAScanner; RGBOrder: boolean);
+var delta: NativeInt;
+begin
+  delta := mask.Width;
+  BGRABlend.BGRAFillClearTypeMaskPtr(dest,x,y,xThird,mask.ScanLine[0],1,delta,mask.Width,mask.Height,color,texture,RGBOrder);
+end;
 
 { TGrayscaleMask }
@@ -77 +90 @@
     pdest := FData;
     Case AChannel of
-      cAlpha: ofs := 3;
-      cRed: ofs := 2;
-      cGreen: ofs := 1;
+      cAlpha: ofs := TBGRAPixel_AlphaByteOffset;
+      cRed: ofs := TBGRAPixel_RedByteOffset;
+      cGreen: ofs := TBGRAPixel_GreenByteOffset;
     else
-      ofs := 0;
+      ofs := TBGRAPixel_BlueByteOffset;
     end;
     for y := 0 to FHeight-1 do