Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как показать оставшееся время до конца?

Delphi , Мультимедиа , Видео

Как показать оставшееся время до конца?

Code:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
TheLength,Posi,SummaMin,SummaSec: Integer;
begin
//Progress Bar to check if the track is playing
if Progress.Max<>0 then Begin
   Progress.Position := Mediaplayer1.Position;
 
    //Gets the length of the selected track
   TheLength := Mediaplayer1.TrackLength[ListBox1.ItemIndex];
 
     //gets the current position of the track
     Posi := Mediaplayer1.Position;
 
     //Caculates Minutes
     SummaMin := ((TheLength - Posi) div 1000) Div 60;
 
     //Calculates Seconds
     SummaSec := ((TheLength - Posi) Div 1000) Mod 60;
 
     //Adds zero if Seconds are less then ten
     If SummaSec < 10 Then
     Label2.Caption := '0' + IntToStr(SummaSec)
     Else
     Label2.Caption := IntToStr(SummaSec);
 
     //Minutes
     Label1.Caption := IntToStr(SummaMin);
 
End;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Статья Как показать оставшееся время до конца? раздела Мультимедиа Видео может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Видео ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
03.06.2020 16:38:07/0.012474060058594/2