Changeset 472 for GraphicTest/Packages/bgrabitmap/bgrablend.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgrablend.pas (modified) (5 diffs)

GraphicTest/Packages/bgrabitmap/bgrablend.pas

@@ -26 +26 @@
 
 { Draw a series of pixels with alpha blending }
+procedure PutPixels(pdest: PBGRAPixel; psource: PBGRAPixel; copycount: integer; mode: TDrawMode; AOpacity:byte);
 procedure DrawPixelsInline(dest: PBGRAPixel; c: TBGRAPixel; Count: integer); inline; overload;
 procedure DrawExpandedPixelsInline(dest: PBGRAPixel; ec: TExpandedPixel; Count: integer); inline; overload;
@@ -238 +239 @@
 end;
 
+procedure PutPixels(pdest: PBGRAPixel; psource: PBGRAPixel; copycount: integer;
+  mode: TDrawMode; AOpacity: byte);
+var i: integer; tempPixel: TBGRAPixel;
+begin
+  case mode of
+    dmSet:
+    begin
+      if AOpacity <> 255 then
+          CopyPixelsWithOpacity(pdest, psource, AOpacity, copycount)
+      else
+      begin
+        copycount *= sizeof(TBGRAPixel);
+        move(psource^, pdest^, copycount);
+      end;
+    end;
+    dmSetExceptTransparent:
+    begin
+        if AOpacity <> 255 then
+        begin
+          for i := copycount - 1 downto 0 do
+          begin
+            if psource^.alpha = 255 then
+            begin
+              tempPixel := psource^;
+              tempPixel.alpha := ApplyOpacity(tempPixel.alpha,AOpacity);
+              FastBlendPixelInline(pdest,tempPixel);
+            end;
+            Inc(pdest);
+            Inc(psource);
+          end;
+        end else
+          for i := copycount - 1 downto 0 do
+          begin
+            if psource^.alpha = 255 then
+              pdest^ := psource^;
+            Inc(pdest);
+            Inc(psource);
+          end;
+    end;
+    dmDrawWithTransparency:
+    begin
+        if AOpacity <> 255 then
+        begin
+          for i := copycount - 1 downto 0 do
+          begin
+            DrawPixelInlineWithAlphaCheck(pdest, psource^, AOpacity);
+            Inc(pdest);
+            Inc(psource);
+          end;
+        end
+        else
+          for i := copycount - 1 downto 0 do
+          begin
+            DrawPixelInlineWithAlphaCheck(pdest, psource^);
+            Inc(pdest);
+            Inc(psource);
+          end;
+    end;
+    dmFastBlend:
+    begin
+        if AOpacity <> 255 then
+        begin
+          for i := copycount - 1 downto 0 do
+          begin
+            FastBlendPixelInline(pdest, psource^, AOpacity);
+            Inc(pdest);
+            Inc(psource);
+          end;
+        end else
+          for i := copycount - 1 downto 0 do
+          begin
+            FastBlendPixelInline(pdest, psource^);
+            Inc(pdest);
+            Inc(psource);
+          end;
+    end;
+    dmXor:
+    begin
+      if AOpacity <> 255 then
+      begin
+          for i := copycount - 1 downto 0 do
+          begin
+            FastBlendPixelInline(pdest, TBGRAPixel(PDWord(pdest)^ xor PDword(psource)^), AOpacity);
+            Inc(pdest);
+            Inc(psource);
+          end;
+      end else
+          XorPixels(pdest, psource, copycount);
+    end;
+  end;
+end;
+
 procedure DrawPixelsInline(dest: PBGRAPixel; c: TBGRAPixel; Count: integer);
 var
@@ -385 +478 @@
   a1f, a2f, a12, a12m: cardinal;
 begin
+  {$HINTS OFF}
   a12  := 65025 - (not dest^.alpha) * (not c.alpha);
+  {$HINTS ON}
   a12m := a12 shr 1;
 
@@ -412 +507 @@
   a1f, a2f, a12, a12m: cardinal;
 begin
+  {$HINTS OFF}
   a12  := 65025 - (not dest^.alpha) * (not calpha);
+  {$HINTS ON}
   a12m := a12 shr 1;
 
@@ -446 +543 @@
   end;
 
+  {$HINTS OFF}
   a12  := 65025 - (not dest^.alpha) * (not c.alpha);
+  {$HINTS ON}
   a12m := a12 shr 1;