56 lines
3.6 KiB
HTML
56 lines
3.6 KiB
HTML
<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="ClearLine">
|
|
<param name="Keyword" value="ClrScr">
|
|
<param name="Keyword" value="Delay">
|
|
<param name="Keyword" value="GotoXY">
|
|
<param name="Keyword" value="HideCursor">
|
|
<param name="Keyword" value="KeyPressed">
|
|
<param name="Keyword" value="ReadKey">
|
|
<param name="Keyword" value="SetWindowCaption">
|
|
<param name="Keyword" value="SetWindowSize">
|
|
<param name="Keyword" value="SetWindowTitle">
|
|
<param name="Keyword" value="ShowCursor">
|
|
<param name="Keyword" value="TextBackground">
|
|
<param name="Keyword" value="TextColor">
|
|
<param name="Keyword" value="WhereX">
|
|
<param name="Keyword" value="WhereY">
|
|
<param name="Keyword" value="WindowHeight">
|
|
<param name="Keyword" value="WindowWidth"></object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
|
|
</HEAD><body><H1>Ïîäïðîãðàììû ìîäóëÿ CRT</H1>
|
|
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> ClearLine;</code>
|
|
<br> Î÷èùàåò ëèíèþ íà êîòîðîé óñòàíîâëåí êóðñîð</td></tr>
|
|
<tr><td><code><b>procedure</b> ClrScr;</code>
|
|
<br> Î÷èùàåò ýêðàí, çàïîëíÿÿ åãî òåêóùèì öâåòîì ôîíà</td></tr>
|
|
<tr><td><code><b>procedure</b> Delay(ms: integer);</code>
|
|
<br> Äåëàåò ïàóçó íà ms ìèëëèñåêóíä</td></tr>
|
|
<tr><td><code><b>procedure</b> GotoXY(x, y: integer);</code>
|
|
<br> Ïåðåâîäèò êóðñîð â êîîðäèíàòû (x,y)</td></tr>
|
|
<tr><td><code><b>procedure</b> HideCursor;</code>
|
|
<br> Ñêðûâàåò êóðñîð</td></tr>
|
|
<tr><td><code><b>function</b> KeyPressed: boolean;</code>
|
|
<br> Âîçâðàùàåò true åñëè áûëà íàæàòà êëàâèøà. Ñ÷èòàòü ñèìâîë ìîæíî ñïîìîùüþ ôóíêöèè ReadKey</td></tr>
|
|
<tr><td><code><b>function</b> ReadKey: char;</code>
|
|
<br> Ñ÷èòûâàò íàæàòóþ êëàâèøó</td></tr>
|
|
<tr><td><code><b>procedure</b> SetWindowCaption(s: string);</code>
|
|
<br> Çàäàåò çàãîëîâîê êîíñîëüíîãî îêíà</td></tr>
|
|
<tr><td><code><b>procedure</b> SetWindowSize(w, h: integer);</code>
|
|
<br> Çàäàåò ðàçìåðû êîíñîëüíîãî îêíà</td></tr>
|
|
<tr><td><code><b>procedure</b> SetWindowTitle(s: string);</code>
|
|
<br> Çàäàåò çàãîëîâîê êîíñîëüíîãî îêíà</td></tr>
|
|
<tr><td><code><b>procedure</b> ShowCursor;</code>
|
|
<br> Ïîêàçûâàåò êóðñîð åñëè îí ñêðûò</td></tr>
|
|
<tr><td><code><b>procedure</b> TextBackground(c: integer);</code>
|
|
<br> Çàäàåò öâåò ôîíà âûâîäèìîãî òåêñòà</td></tr>
|
|
<tr><td><code><b>procedure</b> TextColor(c: integer);</code>
|
|
<br> Çàäàåò öâåò âûâîäèìîãî òåêñòà</td></tr>
|
|
<tr><td><code><b>function</b> WhereX: integer;</code>
|
|
<br> Âîçâðàùàåò Õ-êîîðäèíàòó êóðñîðà</td></tr>
|
|
<tr><td><code><b>function</b> WhereY: integer;</code>
|
|
<br> Âîçâðàùàåò Y-êîîðäèíàòó êóðñîðà</td></tr>
|
|
<tr><td><code><b>function</b> WindowHeight: integer;</code>
|
|
<br> Âîçâðàùàåò âûñîòó ýêðàíà</td></tr>
|
|
<tr><td><code><b>function</b> WindowWidth: integer;</code>
|
|
<br> Âîçâðàùàåò øèðèíó ýêðàíà</td></tr>
|
|
</table>
|
|
</body></HTML> |