Тут есть у меня код, но он неправильно работает с png без альфа-канала.
| Код |
procedure MergePNGLayer(Layer1,Layer2: TPngImage; Const aLeft,aTop:Integer);
var
x, y: Integer;
SL1, SL2, SLBlended : pRGBLine;
aSL1, aSL2, aSLBlended: Vcl.Imaging.pngimage.pByteArray;
blendCoeff: single;
blendedPNG, Lay2buff: TPngImage;
begin
blendedPNG:=TPngImage.Create;
blendedPNG.Assign(Layer1);
Lay2buff:=TPngImage.Create;
Lay2buff.Assign(Layer2);
SetPNGCanvasSize(Layer2,Layer1.Width,Layer1.Height,aLeft,aTop);
for y := 0 to Layer1.Height-1 do
begin
SL1 := Layer1.Scanline[y];
SL2 := Layer2.Scanline[y];
aSL1 := Layer1.AlphaScanline[y];
aSL2 := Layer2.AlphaScanline[y];
SLBlended := blendedPNG.Scanline[y];
aSLBlended := blendedPNG.AlphaScanline[y];
for x := 0 to Layer1.Width-1 do
begin
blendCoeff:=aSL1[x] * 100/255/100;// здесь вываливается AV
aSLBlended[x] := round(aSL2[x] + (aSL1[x]-aSL2[x]) * blendCoeff);
SLBlended[x].rgbtRed := round(SL2[x].rgbtRed + (SL1[x].rgbtRed-SL2[x].rgbtRed) * blendCoeff);
SLBlended[x].rgbtGreen := round(SL2[x].rgbtGreen + (SL1[x].rgbtGreen-SL2[x].rgbtGreen) * blendCoeff);
SLBlended[x].rgbtBlue := round(SL2[x].rgbtBlue + (SL1[x].rgbtBlue-SL2[x].rgbtBlue) * blendCoeff);
end;
end;
Layer1.Assign(blendedPNG);
Layer2.Assign(Lay2buff);
blendedPNG.Free;
Lay2buff.Free;
end;
|
blendCoeff:=aSL1[x] * 100/255/100;// здесь вываливается AV
я так понимаю, что нужно сделать какие-то исправления, но... я не знаю какие
Добавлено через 5 минут и 27 секунд
Мне почему-то не приходят уведомления :(, хотя я подписан на эту тему
Добавлено через 8 минут и 59 секунд
В общем я сделал проще.
Картинку без альфа-канала я конвертирую в картинку с альфаканалом
| Код |
procedure ConvertToRGBA(var png: TPNGImage);
var
tmp: TPNGImage;
tRNS: TChunktRNS;
PLTE: TChunkPLTE;
dst: pRGBLine;
src, alpha: Vcl.Imaging.pngimage.pByteArray;
x,y: integer;
i: byte;
begin
tmp := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, png.Width, png.Height);
case png.Header.ColorType of
COLOR_PALETTE:
begin
tRNS:=png.Chunks.ItemFromClass(TChunktRNS) as TChunktRNS;
PLTE:=png.Chunks.ItemFromClass(TChunkPLTE) as TChunkPLTE;
for y:=0 to png.Height-1 do begin
dst:=tmp.Scanline[y];
src:=png.Scanline[y];
alpha:=tmp.AlphaScanline[y];
for x:=0 to png.Width-1 do begin
case png.Header.BitDepth of
8: i := src[x];
2,4: i := src[x div 2] shr ((1-(x mod 2))*4) and $0F;
1: i := src[x div 8] shr (7-(x mod 8)) and 1;
end;
dst[x].rgbtBlue :=PLTE.Item[i].rgbBlue;
dst[x].rgbtGreen:=PLTE.Item[i].rgbGreen;
dst[x].rgbtRed :=PLTE.Item[i].rgbRed;
if tRNS<>nil then alpha[x]:=tRNS.PaletteValues[i] else alpha[x]:=255;
end;
end;
end;
COLOR_GRAYSCALE:
begin
for y:=0 to png.Height-1 do begin
dst:=tmp.Scanline[y];
src:=png.Scanline[y];
alpha:=tmp.AlphaScanline[y];
for x:=0 to png.Width-1 do begin
case png.Header.BitDepth of
8: i:=src[x];
2,4: i:=(src[x div 2] shr ((1-(x mod 2))*4) and $0F) * 17;
1: i:=(src[x div 8] shr (7-(x mod 8)) and 1) * 255;
end;
dst[x].rgbtBlue:=i;
dst[x].rgbtGreen:=i;
dst[x].rgbtRed:=i;
alpha[x]:=255;
end;
end;
end;
COLOR_RGB:
begin
BitBlt(tmp.Canvas.Handle, 0,0, tmp.Width,tmp.Height, png.Canvas.Handle, 0,0, SRCCOPY);
for y:=0 to png.Height-1 do
FillChar(tmp.AlphaScanline[y]^, png.Width, 255);
end;
COLOR_GRAYSCALEALPHA:
begin
BitBlt(tmp.Canvas.Handle, 0,0, tmp.Width,tmp.Height, png.Canvas.Handle, 0,0, SRCCOPY);
for y:=0 to png.Height-1 do
Move(png.AlphaScanline[y]^, tmp.AlphaScanline[y]^, png.Width);
end;
else tmp.Assign(png);
end;
png.Free;
png:=tmp;
end;
|
|
)