Здравствуйте. Попробовал с фигурой - не получается заставить светиться фоновым цветом, отображается черная дыра - желтый! Создал рисунок с тремя кадрами - так заработало, светит ярко!
Вот код которым переключаю кадры 1-2
begin
if Sender is TM_Image then //
with Sender as TM_Image do //
if AsInt = 1 then
Frame := 2 //
else //
Frame := 1; //
end.
И тут возникло два вопроса у меня.
1. Можно как-то мигать вторым или третьим кадром? ( при активации переменной ОнДатаЧейнж)
2. Как установить высший приоритет для доп. переменной. Чтобы когда переменная ЕХ в "1", то не происходило переключение кадров при изменении основной переменной. Попробовал "осуществить" задуманное, но не проходит компиляция. Подправите пожалуйста код.
begin
if Sender is TM_Image then //
with Sender as TM_Image do //
if VariableEx.AsInt = 1 then
EXIT
if AsInt = 1 then
Frame := 2 //
else //
Frame := 1; //
end.
Еще... смотрел ваши проекты и мне понравились рисунки на мнемосхемах. В какой программе Вы их создаете?