Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

TMediaPlayer   Найти похожие ветки 

 
Steef   (2004-05-30 15:08) [0]

Как показать при воспроизведении фильма или клипа сколько времени прошло и их длину (час:мин:сек).


 
gyry   (2004-05-30 15:41) [1]

var position, Xb, Sek: integer; Hod: Byte;  

 MediaPlayer1.TimeFormat:=tfMilliseconds;
 position := round(MediaPlayer1.Position/1000);
 Xb := position div 60;
 Sek := position mod 60; // сек
 Hod := Xb div 60;      // час
 Xb := Xb mod 60;       // мин
 Time1.Caption := FormatFloat ("00:", Hod) +
 FormatFloat("00:", Xb) +
 FormatFloat("00", Sek);



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.038 c
14-1091175255
Knight
2004-07-30 12:14
2004.08.15
Кто знает как сделать, чтобы в контекстное меню системы...


1-1091413178
TotalMod
2004-08-02 06:19
2004.08.15
CopyRect, Canvas


3-1090388090
ksa2002
2004-07-21 09:34
2004.08.15
Проблема с IBquery1.RecordCount


1-1091181272
Sancho
2004-07-30 13:54
2004.08.15
Хэндл, динамически загружаемый пакет


1-1091437040
Марат
2004-08-02 12:57
2004.08.15
Time