Delphi新版本虽然集成了PngImage但是分割复制什么的却非常难用.稍微封装了一下.可以把一张PNG

横向分割成N张.透明通道什么的都可以保持不变.

type

TPngArray = array of TPngImage;

procedure CopyPng(const Src: TPngImage; dest: TPngImage;

const sOffset: Integer);

var

i, j, s: Integer;

p1, p2: PByteArray;

pa1, pa2: PByteArray;

begin

for i := 0 to Src.Height - 1 do

begin

p1 := Src.Scanline[i];

p2 := dest.Scanline[i];

pa1 := Src.AlphaScanline[i];

pa2 := dest.AlphaScanline[i];

for j := 0 to dest.Width - 1 do

begin

s := j + sOffset;

p2[3 * j] := p1[3 * s];

p2[3 * j + 1] := p1[3 * s + 1];

p2[3 * j + 2] := p1[3 * s + 2];

pa2[j] := pa1[s];

end;

end;

end;

function SplitePng(const Src: TPngImage; Count : Integer) : TPngArray;

var

I, lwidth,loffset : Integer;

begin

SetLength(Result, Count);

lwidth := Src.Width div Count;

loffset := 0;

for i := 0 to Count -1 do

begin

Result[i] := TPngImage.CreateBlank(COLOR_RGBALPHA, 8, lwidth, Src.Height);

CopyPng(Src, Result[i], lOffset);

Inc(loffset, lwidth);

end;

end;