var
DestRect,SrcRect:TRect;
i,TemW:Integer;
begin
Result:=TBitmap.Create;
Result.Width:=0;
for i:=0 to Soruce.Count-1 do
begin
Result.Width:=Result.Width+TBitmap(Soruce.Items[i]).Width;
Result.Height:=TBitmap(Soruce.Items[i]).Height;
end;
TemW:=0;
for i:=0 to Soruce.Count-1 do
begin
SrcRect:=Rect(0,0,TBitmap(Soruce.Items[i]).Width,TBitmap(Soruce.Items[i]).Height);
DestRect:=Rect(TemW,0,TemW+TBitmap(Soruce.Items[i]).Width,TBitmap(Soruce.Items[i]).Height);
Result.Canvas.CopyMode:=cmSrcAnd;
Result.Canvas.CopyRect(DestRect,TBitmap(Soruce.Items[i]).Canvas,SrcRect);
TemW:=TemW+TBitmap(Soruce.Items[i]).Width;
end;
Rect的合并 TCANVAS
最新推荐文章于 2020-12-13 23:38:32 发布