Abfragen ob Image innerhalb des Formulars

[DGL-luke]

Delphi-Quellcode:

function IsFullyVisible(form:TRect,image:TRect):boolean;
begin
result:=true;
if form.left > image.left then result := false
else if form.right < image.right then result:=false
else if form.top > image.top then result:=false
else if form.bottom < image.bottom then result:=false;
end;

wobei hier form.left und form.top null sein sollten (nicht die tatsächlichen screen-koords).