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 = "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 >
2025-11-07 16:12:31 +03:00
< H1 > Переменные, процедуры и функции модуля ABCObjects< / H1 >
2018-08-02 22:04:49 +03:00
< table border = 0 CELLPADDING = 5 >
< tr > < td >
< code >
< b > procedure< / b > LockDrawingObjects;
< / code > < br >
2025-11-07 16:12:31 +03:00
Блокирует рисование графических объектов. Возможна лишь перерисовка всего экрана вместе с о всеми графическими объектами на нем вызовом
2018-08-02 22:04:49 +03:00
< code > RedrawObjects< / code >
< / td > < / tr >
< tr > < td >
< code >
< b > procedure< / b > UnLockDrawingObjects;
< / 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 > RedrawObjects;
< / 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 > ToFront(g: ObjectABC);
< / code > < br >
2025-11-07 16:12:31 +03:00
Переносит графический объект
< code > g< / code > на передний план
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr > < td >
< code >
< b > procedure< / b > ToBack(g: ObjectABC);
< / code > < br >
2025-11-07 16:12:31 +03:00
Переносит графический объект
< code > g< / code > на задний план
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr > < td >
< code >
< b > function< / b > ObjectsCount: 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 > ObjectUnderPoint(x,y: integer): ObjectABC;
< / code > < br >
2025-11-07 16:12:31 +03:00
Графический объект под точкой (< code > x< / code > ,
2018-08-02 22:04:49 +03:00
< code > y< / code > )
< / td > < / tr >
< tr > < td >
< code >
< b > function< / b > ObjectUnderPoint(p: Point): ObjectABC;
< / code > < br >
2025-11-07 16:12:31 +03:00
Графический объект под точкой
2018-08-02 22:04:49 +03:00
< code > p< / code >
< / td > < / tr >
< tr > < td >
< code >
< b > procedure< / b > SwapPositions(o1,o2: ObjectABC);
< / code > < br >
2025-11-07 16:12:31 +03:00
Поменять позиции графических
объектов < code > o1< / code > и < code > o2< / code >
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr > < td >
< code >
< b > function< / b > UIElementUnderPoint(x,y: integer): UIElementABC;
< / code > < br >
2025-11-07 16:12:31 +03:00
Элемент управления < code > ABCObject< / code > под точкой (< code > x< / code > ,
2018-08-02 22:04:49 +03:00
< code > y< / code > )
< / td > < / tr >
< tr >
< td >
< code > < b > var< / b > Objects: ObjectsABCArray; < / code > < br >
2025-11-07 16:12:31 +03:00
Массив графических объектов
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code >
UIElementABC< / code > < br >
2025-11-07 16:12:31 +03:00
Класс элемента управления < code > ABCObject< / code >
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< / table >
< / body > < / html >