• 0
OnePeople

Глюк анимации

Вопрос

Вот видео в конце все видно, то нормально все, то вот такое проявление белого цвета, не могу понять от чего?

Вот код анимации

procedure TfGeneral.AnimateLay(TekLay,NewLay:TLayout;lb,fobj:IControl;dtr:Boolean;textdstr,textitle,cat:String);
var
Hpos,Tpos:Single;
begin
TekControlUpr:=fobj;
TekControlLay:=NewLay;
TekControlItemCat:=cat;
perehod:=true;

BlurTransitionEffect1.Parent:=lOsn;
BlurTransitionEffect1.Enabled:=true;
BlurTransitionEffect1.Progress:=0;

Hpos:= lBottom.Position.Y;
Tpos:= lTop.Position.Y;
TAnimator.AnimateFloat(lBottom,'Position.Y',Hpos+120,0.35, TAnimationType.Out, TInterpolationType.Linear);
TAnimator.AnimateFloat(lTop,'Position.Y',TPos-150,0.35, TAnimationType.Out, TInterpolationType.Linear);
TAnimator.AnimateFloatWait(BlurTransitionEffect1,'Progress',100,0.35, TAnimationType.Out, TInterpolationType.Linear);

tTitle.Text:=textitle;
if dtr=true then
  begin
  	tAtrib.Text:=textdstr;
  	tAtrib.Visible:=true;
  end else 
      begin
        tAtrib.Text:='';
        tAtrib.Visible:=false;
      end;

TekLay.Visible:=false;
NewLay.Visible:=true;
NewLay.BringToFront;

  if  (NewLay=lVideo) or (NewLay=lGames) or ((NewLay=lFileChange) and (FileExists(sViewBtn1.Text))) then AddListPotok.Resume;
  
  if NewLay=lMusic then
    begin
        rMusicLeft.Position.X:= -rMusicLeft.Width;
        rMusicRight.Position.X:= rMusicRight.Width+rMusicLeft.Width;
        lbTekPlaylist.ApplyStyleLookup;
        lMiniMusicPlayer.Visible:=false;
        lMiniMusicPlayer.Opacity:=0;
    end else
       begin
         if MusicMode=Playing then
             begin
              lMiniMusicPlayer.Visible:=true;
              TAnimator.AnimateFloat(lMiniMusicPlayer,'Opacity',1,0.35);
             end;
       end;
TAnimator.AnimateFloat(lBottom,'Position.Y',Hpos,0.35, TAnimationType.Out, TInterpolationType.Linear);
TAnimator.AnimateFloat(lTop,'Position.Y',TPos,0.35, TAnimationType.Out, TInterpolationType.Linear);
TAnimator.AnimateFloatWait(BlurTransitionEffect1,'Progress',0,0.35, TAnimationType.Out, TInterpolationType.Linear);BlurTransitionEffect1.Progress:=0;
BlurTransitionEffect1.Enabled:=false;
fobj.SetFocus;
TekControlBox:=lb;
ShowLay:=NewLay;
if AllControlItemIndex>0 then 
	begin
      TekControlItemIndex:=0;
      PredControlItemIndex:=0;
      ChangeControlItem(VNaprControlItemIndex,false,ColumnControlItemIndex);
    end;

perehod:=false;
end;

 

pyWorld 2016-05-22 16-15-45-302.rar

Изменено пользователем OnePeople

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

2 ответа на этот вопрос

  • 0

Так я не понял, а видео то где?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
  • 0
16 минут назад, wamaco сказал:

Так я не понял, а видео то где?

внизу архив

OnePeople понравилось это

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу