>
<p class="Code"><b>var</b> </p>
<p class="Code">&nbsp;&nbsp;R: TRect; </p>
<p class="Code"><b>begin</b> </p>
<p class="Code">&nbsp;&nbsp;<b>if</b> Sender <b>is</b> TPositionedLayer <b>then</b> 
</p>
<p class="Code">&nbsp;&nbsp;&nbsp;&nbsp;<b>with</b> TPositionedLayer(Sender) <b>do</b> 
</p>
<p class="Code">&nbsp;&nbsp;&nbsp;&nbsp;<b>begin</b> </p>
<p class="Code">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R := MakeRect(GetAdjustedLocation);</p>
<p class="Code">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Buffer.FrameRect