Encontré algo, ¿que opinan de lo siguiente? con 2 TImage lado a lado contenidos en un TPanel y un Button:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('D:\Imagen1.BMP');
Image2.Picture.LoadFromFile('D:\Imagen2.BMP');
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
c: TColor;
r,g,b: byte;
r1,g1,b1: byte;
r2,g2,b2: byte;
t: real;
begin
if not assigned(blendmap) then load14bBtnClick(sender) else Image2.Picture.Bitmap.Assign(BlendMap);
t:=1/2;
panel1.doublebuffered:=true;
for x:=0 to Image1.Width-1 do
begin
for y:=0 to Image1.Height-1 do
begin
c := Image1.Canvas.Pixels[x,y];
r1 := (c and $0000FF);
g1 := (c and $00FF00) shr 8;
b1 := (c and $FF0000) shr 16;
c := Image2.Canvas.Pixels[x,y];
r2 := (c and $0000FF);
g2 := (c and $00FF00) shr 8;
b2 := (c and $FF0000) shr 16;
r := round( t*r1 + (1-t)*r2 );
g := round( t*g1 + (1-t)*g2 );
b := round( t*b1 + (1-t)*b2 );
Image2.Canvas.Pixels[x,y] := r + g shl 8 + b shl 16
end;
end;
end;
Pero Yo deseo encarar esa transparencia solo en la parte que se Intersectan, tal vez debí plantear mi pregunta como SEMITRANSPARENCIA en la intersección: