/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PABCNetHelp/Tutorials/ABCObjects/QuickStartABCObjects.html
72 строки
4 KB
samuraiGH
adding working-tree-encoding attribute (#3325)
07 ноя 2025, 16:12
Не верифицирован
07 ноя 2025, 16:12
cf1fd29
Код
Авторство
О чём код?
<html> <head> <object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e"> <param name="Keyword" value=""> </object> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title></title> <link rel="StyleSheet" href="../../default.css"> </head> <body> <H1>ABCObjects: быстрое введение</H1> <hr> <p>Основными типами графических объектов, определенными в модуле <code>ABCObjects</code>, являются <code>RectangleABC</code>, <code>SquareABC</code>, <code>EllipseABC</code>, <code>CircleABC</code>, <code>TextABC</code>, <code>RegularPolygonABC</code>, <code>StarABC</code>, <code>PictureABC</code>, <code>MultiPictureABC</code>, <code>BoardABC</code> и <code>ContainerABC</code>. </p> <p>Типы графических объектов представляют собой классы, состоящие из методов и свойств, а также нуждающиеся в конструировании перед первым использованием. Изменение свойств влияет на внешний вид и поведение графических объектов. Например, при изменении свойств <code>Width</code> и <code>Height</code> меняются размеры графического объекта, при изменении свойства <code>Color</code> - цвет графического объекта и т.д. Вызов методов графического объекта возвращает или меняет его характеристики. Например, при вызове метода <code>ToFront</code> графический объект перемещается на передний план, а вызов метода <code>Intersect(g)</code> возвращает, пересекается ли текущий объект с объектом <code>g</code>.</p> <p>Все графические объекты являются разновидностями класса <code>ObjectABC</code>, который содержит общие для всех свойства и методы. </p> <p>Создадим два перекрывающихся графических объекта:</p> <blockquote> <p><code><b>uses</b> ABCObjects,GraphABC;</code></p> <p><code><b>var</b> <br> r: RectangleABC; <br> c: CircleABC;</code></p> <p><code><b>begin</b> <br> r := <b>new</b> RectangleABC(70,50,200,100,clMoneyGreen); <br> c := <b>new </b>CircleABC(120,80,110,clBlue); <br> <b>end</b>.</code></p> </blockquote> <p>После запуска программы увидим на экране следующее:</p> <blockquote> <p><img border="0" src="images/ABC1.PNG" width="328" height="252"></p> </blockquote> <p>Поменяем некоторые свойства графических объектов и вызовем метод MoveOn для окружности, дописав в конец программы следующие строки:</p> <blockquote> <p><code>r.Width := 150;<br> c.Color := clRed;<br> c.MoveOn(30,30);</code></p> </blockquote> <p>После запуска программы:</p> <blockquote> <p><img border="0" src="images/ABC2.PNG" width="328" height="252"></p> </blockquote> <p>Добавим в конец программы следующие строки:</p> <blockquote> <p><code>c.Number := 8;<br> r.Text := 'Hello';<br> r.ToFront;</code></p> </blockquote> <p>После запуска программы:</p> <blockquote> <p><img border="0" src="images/ABC3.PNG" width="328" height="252"></p> </blockquote> </body> </html>