Image schneiden

[sirius]

ungeprüft:

Delphi-Quellcode:

function touchImage(const image1.image2:TImage):boolean;
  result:=(((image1.left<=image2.left)and(image1.left+image1.width>=image2.left)
  or(((image2.left<=image1.left)and(image2.left+image2.width>=image1.left))
  and(((image1.top<=image2.top)and(image1.top+image1.height>=image2.top)
  or(((image2.top<=image1.top)and(image2.top+image2.height>=image1.top));
end;

so, oder ähnlich?