• 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 пользователей онлайн

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