Главная страница
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.023 c
8-1085883152
Rentgen
2004-05-30 06:12
2004.08.15
TPictures в TBitmap?


1-1091185086
Jiurasrdfy
2004-07-30 14:58
2004.08.15
Как увелиичть скорость компиляции программы?


3-1090217002
qwe
2004-07-19 10:03
2004.08.15
violation of FOREIGN KEY constraint


1-1091209523
GuAV
2004-07-30 21:45
2004.08.15
ToolBar как в Explorer


3-1090225296
AlexanderSK
2004-07-19 12:21
2004.08.15
Как работает IBQuery?