101 lines
3.1 KiB
HTML
101 lines
3.1 KiB
HTML
|
<html><head>
|
|||
|
|
<object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|||
|
|
<param name="Keyword" value="LockDrawingObjects">
|
|||
|
|
<param name="Keyword" value="UnLockDrawingObjects">
|
|||
|
|
<param name="Keyword" value="RedrawObjects">
|
|||
|
|
<param name="Keyword" value="ToFront">
|
|||
|
|
<param name="Keyword" value="ToBack">
|
|||
|
|
<param name="Keyword" value="ObjectsCount">
|
|||
|
|
<param name="Keyword" value="ObjectUnderPoint">
|
|||
|
|
<param name="Keyword" value="SwapPositions">
|
|||
|
|
<param name="Keyword" value="UIElementUnderPoint">
|
|||
|
|
<param name="Keyword" value="Objects">
|
|||
|
|
<param name="Keyword" value="UIElementABC">
|
|||
|
|
</object></head>
|
|||
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|||
|
|
<title></title><link rel="StyleSheet" href="../../default.css"><body>
|
|||
|
|
<H1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ABCObjects</H1>
|
|||
|
|
<table border=0 CELLPADDING=5>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> LockDrawingObjects;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<code>RedrawObjects</code>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> UnLockDrawingObjects;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> RedrawObjects;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> ToFront(g: ObjectABC);
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<code>g</code> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> ToBack(g: ObjectABC);
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<code>g</code> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>function</b> ObjectsCount: integer;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>function</b> ObjectUnderPoint(x,y: integer): ObjectABC;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<code>x</code>,
|
|||
|
|
<code>y</code>)
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>function</b> ObjectUnderPoint(p: Point): ObjectABC;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<code>p</code>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>procedure</b> SwapPositions(o1,o2: ObjectABC);
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <code>o1</code> <20> <code>o2</code>
|
|||
|
|
</td></tr>
|
|||
|
|
<tr><td>
|
|||
|
|
<code>
|
|||
|
|
<b>function</b> UIElementUnderPoint(x,y: integer): UIElementABC;
|
|||
|
|
</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <code>ABCObject</code> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<code>x</code>,
|
|||
|
|
<code>y</code>)
|
|||
|
|
</td></tr>
|
|||
|
|
<tr>
|
|||
|
|
<td>
|
|||
|
|
<code><b>var</b> Objects: ObjectsABCArray; </code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
</td>
|
|||
|
|
</tr>
|
|||
|
|
<tr>
|
|||
|
|
<td>
|
|||
|
|
<code>
|
|||
|
|
UIElementABC</code><br>
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <code>ABCObject</code>
|
|||
|
|
</td>
|
|||
|
|
</tr>
|
|||
|
|
</table>
|
|||
|
|
</body></html>
|