Книга: Учебное пособие по курсу «Нейроинформатика»

Окраска примеров

Окраска примеров

В данный раздел помещены запросы для работы с цветами. Отметим, что цвет примера, возвращаемый запросом GetColor можно получить также с помощью запроса Get.

Описание запроса:

Pascal:

Function GetColor(Handle: Integer): Color;

C:

Logic GetColor(Integer Handle)

Описание аргументов:

Handle — номер сеанса

Назначение — возвращает цвет текущего примера.

Описание исполнения.

1. Если Error <> 0, то выполнение запроса прекращается.

2. Если аргумент Handle некорректен возникает ошибка 107 — неверный номер сеанса. Управление передается обработчику ошибок. Выполнение запроса прекращается.

3. Если текущий указатель указывает на одно из состояний «до первого примера» или «после последнего примера», то возникает ошибка 111 — попытка чтения до или после текущей выборки. Управление передается обработчику ошибок. Запрос завершается неуспешно.

4. Возвращается цвет текущего примера.

Описание запроса:

Pascal:

Function PaintCurrent(Handle: Integer; NewColor, ColorMask: Color; Oper: Integer): Logic;

C:

Logic PaintCurrent(Integer Handle, Color NewColor, Color ColorMask, Integer Oper)

Описание аргументов:

Handle — номер сеанса.

NewColor — новый цвет для окраски примера.

ColorMask — маска цвета для окраски примера.

Oper — операция, используемая при окраске примера. Должна быть одной из констант COr, CAnd, CXor, CNot.

Назначение — изменяет цвет текущего примера.

Описание исполнения.

1. Если Error <> 0, то выполнение запроса прекращается.

2. Если аргумент Handle некорректен возникает ошибка 107 — неверный номер сеанса. Управление передается обработчику ошибок. Выполнение запроса прекращается.

3. Если Oper некорректен, то возникает ошибка 114 — неверная операция окраски примера. Управление передается обработчику ошибок. Запрос завершается со значением ложь.

4. Новый цвет примера:= (Старый цвет примера And ColorMask) Oper NewColor

Оглавление книги