patrick dee - So 15.04.07 11:09
Titel: Genaue Zeit Anzeige der spielenden Wave
Morgen Leute,
ich bin immer noch auf der suche nach einer sehr guten Zeit Anzeige für meinen Wave Player.
Label1.Caption soll mir die Position der gerade spielenden Wave anzeigen.00:00:00
Label2.Caption soll mir den noch zu spielenden Rest Zeit anzeigen . 00:00:00
Also angefangen mit Minuten,Sekunden usw.Habe mal was gebastelt was ich dazu im Internet gefunden habe :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Timer1Timer(Sender: TObject);
var Minuten : Byte;
begin
Minuten := (Player1.wave.Length - Player1.Position) div 1000 div 60;
Laufzeit1.Caption := LeadingZero(Minuten) + ':' +
LeadingZero(((Player1.wave.Length - Player1.Position) div 1000) -
(Minuten * 60));
Gauge1.Progress := Player1.Position * 100 div Player1.wave.Length;
end; |
Danke für Eure Hilfe und ein schönes Weekend noch.
LG Patrick