Forum: Multimedia
Delphi
by KodeZwerg,
31. Jul 2018
Hallo nochmal,
habe noch etwas nachkorrigiert hier damit das visuelle aktueller gleich ausschaut, vielleicht machst Du das auch bei Dir.
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;...
Forum: Multimedia
Delphi
by KodeZwerg,
31. Jul 2018
Schade das Du mitten drinn anscheinend aufgehört hast zu Lesen, sonst hättest Du ein wenig weiter unten auch den Fix entdeckt.
Da hab ich zu schnell hochgeladen gehabt mit noch Testkrams drinnen.
Forum: Multimedia
Delphi
by KodeZwerg,
30. Jul 2018
Im Anhang ist ProgressBar zusätzlich enthalten, entpacke das in Dein Memp, kompiliere, teste.
Klappt es mit Delphi 7? Sind die Sekunden Spuler Knöpfe nun noch Notwendig?
Bin schon müde, +3 / -3 Sekunden Knöpfe kommen Morgen ran.
Ps: Erstelle vorher Backup von Dein Memp, man weiß ja nie...
Pps:
Der Code dazu sieht so aus:
procedure TForm1.pb1MouseDown(Sender: TObject; Button:...
Forum: Multimedia
Delphi
by KodeZwerg,
30. Jul 2018
Mit dem Vor- Zurückspulen sollte kein Problem darstellen, das schau ich mir gleich nochmal an, aber diese TScrollBar für Positionierung ist doof, die hat keine Eigenschaften, mit einer TProgressBar ist das in Null Komma Nichts erledigt, die hat Eigenschaften mit denen ich bei OnChange was Anfangen kann, darf man die tauschen?