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;