2018-08-02 22:04:49 +03:00
|
|
|
|
<html><head>
|
|
|
|
|
|
<object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
|
|
|
|
<param name="Keyword" value="ClearWindow">
|
|
|
|
|
|
<param name="Keyword" value="WindowWidth">
|
|
|
|
|
|
<param name="Keyword" value="WindowHeight">
|
|
|
|
|
|
<param name="Keyword" value="WindowLeft">
|
|
|
|
|
|
<param name="Keyword" value="WindowTop">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowWidth">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowHeight">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowLeft">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowTop">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowSize">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowPos">
|
|
|
|
|
|
<param name="Keyword" value="GraphBoxWidth">
|
|
|
|
|
|
<param name="Keyword" value="GraphBoxHeight">
|
|
|
|
|
|
<param name="Keyword" value="GraphBoxLeft">
|
|
|
|
|
|
<param name="Keyword" value="GraphBoxTop">
|
|
|
|
|
|
<param name="Keyword" value="WindowCaption">
|
|
|
|
|
|
<param name="Keyword" value="WindowTitle">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowCaption">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowTitle">
|
|
|
|
|
|
<param name="Keyword" value="InitWindow">
|
|
|
|
|
|
<param name="Keyword" value="SaveWindow">
|
|
|
|
|
|
<param name="Keyword" value="LoadWindow">
|
|
|
|
|
|
<param name="Keyword" value="FillWindow">
|
|
|
|
|
|
<param name="Keyword" value="CloseWindow">
|
|
|
|
|
|
<param name="Keyword" value="ScreenWidth">
|
|
|
|
|
|
<param name="Keyword" value="ScreenHeight">
|
|
|
|
|
|
<param name="Keyword" value="CenterWindow">
|
|
|
|
|
|
<param name="Keyword" value="WindowCenter">
|
|
|
|
|
|
<param name="Keyword" value="MaximizeWindow">
|
|
|
|
|
|
<param name="Keyword" value="MinimizeWindow">
|
|
|
|
|
|
<param name="Keyword" value="NormalizeWindow">
|
|
|
|
|
|
<param name="Keyword" value="WindowIsFixedSize">
|
|
|
|
|
|
<param name="Keyword" value="SetWindowIsFixedSize">
|
|
|
|
|
|
</object></head>
|
|
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
|
|
|
|
<title></title><link rel="StyleSheet" href="../../default.css"><body>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<H1>Подпрограммы для работы с графическим окном</H1>
|
|
|
|
|
|
<p>Доступ к свойствам графического окна можно осуществлять как в
|
|
|
|
|
|
процедурном, так и в объектно-ориентированном стиле.</p>
|
|
|
|
|
|
<p>Процедуры и функции для доступа к свойствам окна
|
|
|
|
|
|
сгруппированы парами: если <code>Prop</code> - имя
|
|
|
|
|
|
свойства кисти, то функция <code>PenProp</code>
|
|
|
|
|
|
возвращает значение этого свойства, а процедура <code>SetPenProp(p)</code>
|
|
|
|
|
|
устанавливает это свойство:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<table border=0 CELLPADDING=5>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowWidth: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает ширину клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowHeight: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает высоту клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowLeft: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает отступ графического окна от левого края экрана в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowTop: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает отступ графического окна от верхнего края экрана в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowIsFixedSize: boolean;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает True, если графическо<span lang="ru">е</span> окно имеет
|
|
|
|
|
|
фиксированный размер, и False в противном случае
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowWidth(w: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает ширину клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowHeight(h: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает высоту клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowLeft(l: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает отступ графического окна от левого края экрана в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowTop(t: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает отступ графического окна от верхнего края экрана в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowIsFixedSize(b: boolean);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает, имеет ли графическое окно фиксированный размер
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowCaption: string;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает заголовок графического окна
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowTitle: string;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает заголовок графического окна
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowCaption(s: string);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает заголовок графического окна
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowTitle(s: string);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает заголовок графического окна
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowSize(w,h: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает размеры клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SetWindowPos(l,t: integer);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает отступ графического окна от левого верхнего края экрана в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> ClearWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Очищает графическое окно белым цветом
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> ClearWindow(c: Color);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Очищает графическое окно цветом c
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Устанавливает ширину и высоту клиентской части графического окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> SaveWindow(fname: string);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Сохраняет содержимое графического окна в файл с именем fname
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> LoadWindow(fname: string);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Восстанавливает содержимое графического окна из файла с именем fname
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> FillWindow(fname: string);
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Заполняет содержимое графического окна обоями из файла с именем fname
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> CloseWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Закрывает графическое окно и завершает приложение
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> CenterWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Центрирует графическое окно по центру экрана
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> WindowCenter: Point;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает центр графического окна
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> MaximizeWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Максимизирует графическое окно
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr><td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> MinimizeWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Сворачивает графическое окно
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td></tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>procedure</b> NormalizeWindow;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает графическое окно к нормальному размеру
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
</table>
|
|
|
|
|
|
<br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Кроме того,
|
|
|
|
|
|
можно возвращать размеры экрана Screen, а также
|
|
|
|
|
|
размеры и положение графического компонента GraphBox,
|
|
|
|
|
|
на котором осуществляется рисование:<table border=0 CELLPADDING=5>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> GraphBoxWidth: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает ширину графического компонента в пикселах (по умолчанию совпадает с WindowWidth)
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> GraphBoxHeight: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает высоту графического компонента в пикселах (по умолчанию совпадает с WindowHeight)
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> GraphBoxLeft: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает отступ графического компонента от левого края окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> GraphBoxTop: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает отступ графического компонента от верхнего края окна в пикселах
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> ScreenWidth: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает ширину экрана в пикселях
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
|
|
|
<td>
|
|
|
|
|
|
<code>
|
|
|
|
|
|
<b>function</b> ScreenHeight: integer;
|
|
|
|
|
|
</code><br>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
Возвращает высоту экрана в пикселях
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</td>
|
|
|
|
|
|
</tr>
|
|
|
|
|
|
</table>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Можно также изменять свойства графического окна через
|
|
|
|
|
|
<a href="gr_WindowClass.html">объект
|
2018-08-02 22:04:49 +03:00
|
|
|
|
Window</a></code>.</p>
|
|
|
|
|
|
</body></html>
|
