Changeset 208 for trunk/Packages/CevoComponents

Timestamp:

May 8, 2020, 6:51:18 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Replaced drawing using Bitmap ScanLine by TPixelPointer to suppress portable symbol warning and to be unified with similar existing functions.

Location:

trunk/Packages/CevoComponents

Files:

• EOTButton.pas (modified) (1 diff)
• ScreenTools.pas (modified) (7 diffs)

trunk/Packages/CevoComponents/EOTButton.pas

@@ -47 +47 @@
 begin
   RegisterComponents('C-evo', [TEOTButton]);
-end;
-
-procedure ImageOp_CBC(Dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, w, h, Color0,
-  Color2: integer);
-// Src is template
-// B channel = Color0 amp
-// G channel = background amp (old Dst content), 128=original brightness
-// R channel = Color2 amp
-type
-  TPixel = array [0 .. 2] of Byte;
-var
-  ix, iy, amp0, amp1, trans, Value: integer;
-  SrcLine, DstLine: ^TPixel;
-begin
-  Src.BeginUpdate;
-  Dst.BeginUpdate;
-  for iy := 0 to h - 1 do
-  begin
-    SrcLine := Src.ScanLine[ySrc + iy] + xSrc * (Src.RawImage.Description.BitsPerPixel shr 3);
-    DstLine := Dst.ScanLine[yDst + iy] + xDst * (Dst.RawImage.Description.BitsPerPixel shr 3);
-    for ix := 0 to w - 1 do
-    begin
-      trans := SrcLine[0] * 2; // green channel = transparency
-      amp0 := SrcLine[1] * 2;
-      amp1 := SrcLine[2] * 2;
-      if trans <> $FF then
-      begin
-        Value := (DstLine[0] * trans + (Color2 shr 16 and $FF) * amp1
-          + (Color0 shr 16 and $FF) * amp0) div $FF;
-        if Value < 256 then
-          DstLine[0] := Value
-        else
-          DstLine[0] := 255;
-        Value := (DstLine[1] * trans + (Color2 shr 8 and $FF) * amp1
-          + (Color0 shr 8 and $FF) * amp0) div $FF;
-        if Value < 256 then
-          DstLine[1] := Value
-        else
-          DstLine[1] := 255;
-        Value := (DstLine[2] * trans + (Color2 and $FF) * amp1 +
-          (Color0 and $FF) * amp0) div $FF;
-        if Value < 256 then
-          DstLine[2] := Value
-        else
-          DstLine[2] := 255;
-      end;
-      SrcLine := Pointer(SrcLine) + (Src.RawImage.Description.BitsPerPixel shr 3);
-      DstLine := Pointer(DstLine) + (Dst.RawImage.Description.BitsPerPixel shr 3);
-    end;
-  end;
-  Src.EndUpdate;
-  Dst.EndUpdate;
 end;
 

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -36 +36 @@
   overload;
 procedure MakeBlue(dst: TBitmap; x, y, Width, Height: Integer);
-procedure ImageOp_B(dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, w, h: integer);
+procedure ImageOp_B(dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, Width, Height: Integer);
 procedure ImageOp_BCC(dst, Src: TBitmap;
-  xDst, yDst, xSrc, ySrc, Width, Height, Color1, Color2: integer);
-procedure ImageOp_CCC(bmp: TBitmap; x, y, w, h, Color0, Color1, Color2: integer);
+  xDst, yDst, xSrc, ySrc, Width, Height, Color1, Color2: Integer);
+procedure ImageOp_CBC(Dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, Width, Height,
+  Color0, Color2: Integer);
+procedure ImageOp_CCC(bmp: TBitmap; x, y, w, h, Color0, Color1, Color2: Integer);
 function BitBltCanvas(DestCanvas: TCanvas; X, Y, Width, Height: Integer;
   SrcCanvas: TCanvas; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean; overload;
@@ -555 +557 @@
 end;
 
-procedure ImageOp_B(dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, w, h: Integer);
+procedure ImageOp_B(dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, Width, Height: Integer);
 // Src is template
 // X channel = background amp (old Dst content), 128=original brightness
@@ -567 +569 @@
   Assert(dst.PixelFormat = pf24bit);
   if xDst < 0 then begin
-    w := w + xDst;
+    Width := Width + xDst;
     xSrc := xSrc - xDst;
     xDst := 0;
   end;
   if yDst < 0 then begin
-    h := h + yDst;
+    Height := Height + yDst;
     ySrc := ySrc - yDst;
     yDst := 0;
   end;
-  if xDst + w > dst.Width then
-    w := dst.Width - xDst;
-  if yDst + h > dst.Height then
-    h := dst.Height - yDst;
-  if (w < 0) or (h < 0) then
+  if xDst + Width > dst.Width then
+    Width := dst.Width - xDst;
+  if yDst + Height > dst.Height then
+    Height := dst.Height - yDst;
+  if (Width < 0) or (Height < 0) then
     exit;
 
@@ -587 +589 @@
   PixelDst := PixelPointer(Dst, xDst, yDst);
   PixelSrc := PixelPointer(Src, xSrc, ySrc);
-  for Y := 0 to h - 1 do begin
-    for X := 0 to w - 1 do  begin
+  for Y := 0 to Height - 1 do begin
+    for X := 0 to Width - 1 do  begin
       Brightness := PixelSrc.Pixel^.B; // One byte for 8-bit color
       test := (PixelDst.Pixel^.R * Brightness) shr 7;
@@ -616 +618 @@
 
 procedure ImageOp_BCC(dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, Width, Height,
-  Color1, Color2: integer);
+  Color1, Color2: Integer);
 // Src is template
 // B channel = background amp (old Dst content), 128=original brightness
@@ -622 +624 @@
 // R channel = Color2 amp, 128=original brightness
 var
-  ix, iy, amp1, amp2, trans, Value: integer;
-  SrcPixel, DstPixel: TPixelPointer;
+  ix, iy, amp1, amp2, trans, Value: Integer;
+  SrcPixel: TPixelPointer;
+  DstPixel: TPixelPointer;
 begin
   if xDst < 0 then begin
@@ -673 +676 @@
   Src.EndUpdate;
   dst.EndUpdate;
+end;
+
+procedure ImageOp_CBC(Dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, Width, Height,
+  Color0, Color2: Integer);
+// Src is template
+// B channel = Color0 amp
+// G channel = background amp (old Dst content), 128=original brightness
+// R channel = Color2 amp
+var
+  ix, iy, amp0, amp1, trans, Value: integer;
+  SrcPixel: TPixelPointer;
+  DstPixel: TPixelPointer;
+begin
+  Src.BeginUpdate;
+  Dst.BeginUpdate;
+  SrcPixel := PixelPointer(Src, xSrc, ySrc);
+  DstPixel := PixelPointer(Dst, xDst, yDst);
+  for iy := 0 to Height - 1 do begin
+    for ix := 0 to Width - 1 do begin
+      trans := SrcPixel.Pixel^.B * 2; // green channel = transparency
+      amp0 := SrcPixel.Pixel^.G * 2;
+      amp1 := SrcPixel.Pixel^.R * 2;
+      if trans <> $FF then begin
+        Value := (DstPixel.Pixel^.B * trans + (Color2 shr 16 and $FF) * amp1 +
+          (Color0 shr 16 and $FF) * amp0) div $FF;
+        DstPixel.Pixel^.B := Min(Value, 255);
+
+        Value := (DstPixel.Pixel^.G * trans + (Color2 shr 8 and $FF) * amp1 +
+          (Color0 shr 8 and $FF) * amp0) div $FF;
+        DstPixel.Pixel^.G := Min(Value, 255);
+
+        Value := (DstPixel.Pixel^.R * trans + (Color2 and $FF) * amp1 +
+          (Color0 and $FF) * amp0) div $FF;
+        DstPixel.Pixel^.R := Min(Value, 255);
+      end;
+      SrcPixel.NextPixel;
+      DstPixel.NextPixel;
+    end;
+    SrcPixel.NextLine;
+    DstPixel.NextLine;
+  end;
+  Src.EndUpdate;
+  Dst.EndUpdate;
 end;