mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: BitmapMerge procedure

Browse source 
(cherry picked from commit 98fa9d96a2)
This commit is contained in:
Alexander Koblov 2023-12-25 20:26:28 +03:00
commit d877eee7ba
1 changed files with 57 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

58
src/ugraphics.pas
View file

@ -35,11 +35,12 @@ procedure BitmapConvert(ASource, ATarget: TRasterImage);
procedure BitmapAlpha(var ABitmap: TBitmap; APercent: Single);
procedure BitmapAssign(Bitmap: TRasterImage; Image: TLazIntfImage);
procedure BitmapCenter(var Bitmap: TBitmap; Width, Height: Integer);
procedure BitmapMerge(ALow, AHigh: TLazIntfImage; const ADestX, ADestY: Integer);
implementation
uses
GraphType, FPimage;
Math, GraphType, FPimage;
type
TRawAccess = class(TRasterImage) end;
@ -171,5 +172,60 @@ begin
end;
end;
procedure BitmapMerge(ALow, AHigh: TLazIntfImage; const ADestX, ADestY: Integer);
var
CurColor: TFPColor;
X, Y, CurX, CurY: Integer;
MaskValue, InvMaskValue: Word;
lDrawWidth, lDrawHeight: Integer;
begin
lDrawWidth := Min(ALow.Width - ADestX, AHigh.Width);
lDrawHeight := Min(ALow.Height - ADestY, AHigh.Height);
for Y := 0 to lDrawHeight - 1 do
begin
for X := 0 to lDrawWidth - 1 do
begin
CurX := ADestX + X;
CurY := ADestY + Y;
if (CurX < 0) or (CurY < 0) then Continue;
MaskValue := AHigh.Colors[X, Y].Alpha;
InvMaskValue := $FFFF - MaskValue;
if MaskValue = $FFFF then
begin
ALow.Colors[CurX, CurY] := AHigh.Colors[X, Y];
end
else if MaskValue > $00 then
begin
CurColor := ALow.Colors[CurX, CurY];
if CurColor.Alpha = 0 then
begin
CurColor:= AHigh.Colors[X, Y];
end
else begin
if MaskValue > CurColor.Alpha then
CurColor.Alpha:= MaskValue;
CurColor.Red := Round(
CurColor.Red * InvMaskValue / $FFFF +
AHigh.Colors[X, Y].Red * MaskValue / $FFFF);
CurColor.Green := Round(
CurColor.Green * InvMaskValue / $FFFF +
AHigh.Colors[X, Y].Green * MaskValue / $FFFF);
CurColor.Blue := Round(
CurColor.Blue * InvMaskValue / $FFFF +
AHigh.Colors[X, Y].Blue * MaskValue / $FFFF);
end;
ALow.Colors[CurX, CurY] := CurColor;
end;
end;
end;
end;
end.