code:на Экране рисую ГЭ Эллипс. в свойствах выбираю Цвет заливки:if (!Задвижка_подачи_воды_откр && Задвижка_подачи_воды_закр) then Задвижка_подачи_воды=0; end_if;
if ( Задвижка_подачи_воды_откр && !Задвижка_подачи_воды_закр) then Задвижка_подачи_воды=1; end_if;
if ( Задвижка_подачи_воды_откр && Задвижка_подачи_воды_закр) then Задвижка_подачи_воды=2; end_if;
if (!Задвижка_подачи_воды_откр && !Задвижка_подачи_воды_закр) then Задвижка_подачи_воды=3; end_if;