Накладывает данное изображение на указанное.
procedure TImage.LayOn(aDest: TImage; aX: Integer; aY: Integer);
TImage.layOn(aDest, aX, aY);
//{$MODE PASCAL} var image1 := TImage.Create; image1.Load('tests://img/png1.png'); var image2 := TImage.Create; image2.Load('tests://img/png2.png'); image2.LayOn(image1, 20, 20); image1.SaveToFile('\images\layon-1.png');
//{$MODE PASCAL} var image1 := TImage.Create; image1.Load('tests://img/png1.png'); var image2 := TImage.Create; image2.Load('tests://img/png2.png'); image1.LayOn(image2, 20, 20); image2.SaveToFile('\images\layon-2.png');
//{$MODE ECMA} var image1 = new TImage(); image1.load('tests://img/png1.png'); var image2 = new TImage(); image2.load('tests://img/png2.png'); image2.layOn(image1, 20, 20); image1.saveToFile('\\images\\layon-1.png');
//{$MODE ECMA} var image1 = new TImage(); image1.load('tests://img/png1.png'); var image2 = new TImage(); image2.load('tests://img/png2.png'); image1.layOn(image2, 20, 20); image2.saveToFile('\\images\\layon-2.png');