Вот видео в конце все видно, то нормально все, то вот такое проявление белого цвета, не могу понять от чего?
Вот код анимации
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;
Вопрос
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 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.