Перейти к содержанию
Fire Monkey от А до Я
  • 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
Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...