Мерцание
Нашел пример, то что мне нужно, но не знаю как избавиться от мерцания в анимации(( Подскажите как?Если ставить значение таймера низким то это очень заметно(
Вот код:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (pig1=false) and (pig2=false) and (pig3=false) and
(pig4=false) and (pig5=false) and (pig6=false) and
(pig7=false) then
begin
image1.Picture.LoadFromFile('1.jpg');
pig1:=true;
end
else
if (pig1=true) and (pig2=false) and (pig3=false) and
(pig4=false) and (pig5=false) and (pig6=false) and
(pig7=false) then
begin
image1.Picture.LoadFromFile('2.jpg');
pig1:=false;
pig2:=true;
end и так далее.. |