(D7) Memp Mediaplayer anpassen (Vorspulen)

[KodeZwerg]

Hallo nochmal,
habe noch etwas nachkorrigiert hier damit das visuelle aktueller gleich ausschaut, vielleicht machst Du das auch bei Dir.

Delphi-Quellcode:

procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 pb1.Position := round(X / (pb1.Width / pb1.Max));
 MeMPPlaylist.Progress := pb1.Position / 100;
 MainScrollbar.Position := pb1.Position;
end;

Delphi-Quellcode:

procedure TForm1.MainTimerTimer(Sender: TObject);
var t: integer;
begin
  if MainScrollbar.Tag = 0 then
  begin
    MainScrollbar.Position := Round(MeMPPlaylist.Progress * 100);
    pb1.Position := MainScrollbar.Position;
  end;

  t := Round(MeMPPlaylist.Time);
  LblTime.Caption := Format('%.2d:%.2d',[t Div 60, t Mod 60]);
  MeMPPlaylist.DrawSpectrum(SpectrumPaintbox.Canvas.Handle);
end;

Hallo @Gausi, ich hoffe das geht in Ordnung so.

Mit paar sekunden vor oder nach hinten hopsen würde ich auch über eine der TBar.Position realisieren, es kann dann nicht exakt 3 sekunden sein da die TBar's immer 0-100 sind, prozentual von liedlänge halt.
Vielleicht klappts auch anders, der Erfinder kann sich da bestimmt noch Besser zu äußern

Nachtrag: Hat er ja bereits getan