Einzelnen Beitrag anzeigen

venice2

Registriert seit: 5. Dez 2019
Ort: Köln
834 Beiträge
 
Delphi 2010 Architect
 
#1

Korrekte Zeit ermitteln bei Mouse Move

  Alt 9. Sep 2021, 04:36
Ich möchte so wie im Anhang zu sehen die Zeit Ausgeben wenn ich mit der Maus über die Track Bar gleite.
Die gesamt zeit ermittle ich auf diese weise und übergebe sie an meine Track Bar.

Delphi-Quellcode:
  TrackMinMax := integer(aMediaProperty.PlaybackLength div 10000);
  trbSearch.SetTrackMinMax(trbSearch.Handle, 0, TrackMinMax);
Ich habe jetzt die gesamte Laufzeit des Movies und setze diese.
trbSearch.MaxVal

Dann hole ich mir über
GetCursorPos(p);
Die aktuelle Position der Maus an der x Position.

Irgendwie bekomme ich aber nicht die richtige Zeit Ausgabe..
Was fehlt bzw.. habe ich übersehen?

Delphi-Quellcode:
Position := (p.X - - trbSearch.Left) + ((trbSearch.MaxVal div 1000) div rc1.Width);
Elapsed := FormatDateTime('hh:nn:ss', Position / SecsPerDay);
komplettes Schnipsel.
Delphi-Quellcode:
    WM_NCMOUSEMOVE, WM_MOUSEMOVE:
      begin
        if (KVideo_GetPlayerState(MainMovie) = psPlaying) or
          (KVideo_GetPlayerState(MainMovie) = psPaused) then
        begin
          GetCursorPos(p);
          ScreenToClient(WinHandle, p);

          GetClientRect(WinHandle, rc);

          ChildHwnd := ChildWindowFromPoint(WinHandle, p);

          if (ChildHwnd = trbSearch.Handle) and
            not trbSearch.CheckOverThumb(trbSearch.Handle) then
          begin
            if PtInRect(rc, p) then
            begin
              SKAERO_SetCTLText(lblMove.Handle, '');
              GetClientRect(trbSearch.Handle, rc1);

              Position := (p.X - trbSearch.Left) + ((trbSearch.MaxVal div 1000) div rc1.Width); // Nicht korrekt
              Elapsed := FormatDateTime('hh:nn:ss', Position / SecsPerDay);

              Left := (p.x - lblMove.Width) + (lblMove.Width div 2) + 10;
              if Left < trbSearch.Left then
                Left := trbSearch.Left;
              if (Left + lblMove.Width) > (gP.MainWidth - 10) then
                Left := (gP.MainWidth - lblMove.Width) - 5;

              MoveWindow(lblMove.Handle, Left, gP.MainHeight - 112, lblMove.Width,
                lblMove.Height, false);

              SKAERO_SetCTLText(lblMove.Handle, Elapsed);
            end;
          end else
          if not trbSearch.CheckOverThumb(trbSearch.Handle) then
            SKAERO_SetCTLText(lblMove.Handle, '');
        end;
      end;

Geändert von venice2 (11. Sep 2021 um 16:06 Uhr)
  Mit Zitat antworten Zitat