32位图层(随手写的,没测试,你们看一下原理就行了哈
)
type
TLayerList = class(TList)
private
end;
Bitmap32 : TBitmap32;
LayerList := TLayerList.Create;
Bitmap32 := TBitmap32.Create;
Bitmap32.LoadFromFile('1.tga');
LayerList.Items.add(Bitmap32);
for i := 0 to LayerList.Count -1 do
begin
TBitmap32(LayerList.Items[i ]).DrawTo(0,0, Image1.Picture.Bitmap);
end;
for i := 0 to LayerList.Count -1 do
begin
TBitmap32(LayerList.Items[i ]).Free;
end;
LayerList.Free;