logo
TurboProlog / Документация / TOM_2

Getbkcolor/1 Графика

Назначение Возвращает текущий цвет фона

Обращение getbkcolor(ЦветФона)

Домены (integer)

Шаблоны описания (вых)

аргументов

Описание getbkcolor связывает ЦветФона с текущим цветом фона

Замечание: Для CGA с разрешающей способностью

(640x200) цвет фона всегда черный. Фактически, в CGA

цвет фона отсутствует.

Смотри getcolor,getpalette,setbkcolor

Пример

include "GRAPDECL.PRO"

goal

/* Инициализация гpафики c автоматическим

определением драйвера */

initgraph(detect, 0, GraphDriver,GraphMode, ""),

getbkcolor(Svcolor),

/* сохранить старый цвет экрана */

bitxor(Svcolor,1,Xcolor),

setbkcolor(Xcolor),

/* установить новый цвет экрана */

readchar(_),

Setbkcolor(Svcolor),

/* восстановить старый цвет экрана */

closegraph.