Hi,
ich bin gerade dabei den schlechten DarkPlayer neu zu programmieren. Damit der Skin auch von den Farben her, Farbverlauf - ja/nein, etc. eingestellt werden kann, benutze ich die XiControls (zu finden sind die Komponenten
hier).
Bei den alten Versionen des Players habe ich, damit man in den Liedern per Trackbar an die gewünschte Stelle im Lied springen kann, eine kleine TrackBar geschrieben, die einfach MouseDown, MouseUp und MouseMove enthielt. Aber bei der XiTrackbar gibt es natürlich kein MouseDown und MouseUp mehr. Dadurch kann ich die Trackbar nicht mehr programmieren:
Timer, der die TrackBar laufen lässt (vorher natürlich Maxwert der TrackBar berechnen).
Delphi-Quellcode:
procedure TfrmMain.ttbTimer(Sender: TObject);
begin
if Flag then
begin
if Player.status = 1 then
begin
tb1.Position := ...
end;
end;
end;
Jetzt brauche ich aber MouseDown, damit ich Flag auf False setzen kann und bei MouseUp Flag wieder auf True setzen kann.
Geht das vielleicht auch irgendwie mit OnChange oder allgemein anders ?