Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi DVD Domain problem (https://www.delphipraxis.net/194091-dvd-domain-problem.html)

EWeiss 16. Okt 2017 19:58

DVD Domain problem
 
Ich prüfe darauf hin ob ich mich im Menu befinde.

Delphi-Quellcode:
function TEVMRPlayer.IsDVDMenu: Boolean;
var
  Domain: TDVDDOMAIN;
begin

  result := false;

  if not(IsDVD) then
    Exit;

  if Assigned(DVDInfo) then
  begin
    DVDInfo.GetCurrentDomain(Domain);
    case Domain of

      DVD_DOMAIN_VideoManagerMenu, DVD_DOMAIN_VideoTitleSetMenu:
      begin
        result := true;
        exit;
      end;

      DVD_DOMAIN_Title:
      begin
        result := false;
      end;
    end;
  end;

end;
wenn ein Menu sichtbar wird bzw.. ich mich in einem Menu befinde sollte die Rückgabe eigentlich true sein.
Mein Problem ist aber nun das der fall nicht eintritt obwohl ich mich im Menu befinde. (siehe shot)
Die Rückgabe von GetCurrentDomain gibt mir immer DVD_DOMAIN_Title zurück.. bei verschiedenen DVD's

Die DVD ist Original und man sollte eigentlich annehmen das die Abfrage korrekt zurück geliefert wird.

Was läuft falsch oder was muss ich noch berücksichtigen ?

Da der Status true nicht eintritt kann ich auch kein Menu punkt auswählen bzw. das Aspect ratio korrekt setzen.
Delphi-Quellcode:
    WM_LBUTTONUP:
      begin
        if KVideo_IsDVDMenu then
        begin
          p.x := loword(lP);
          p.y := HiWord(lP);
          KVideo_DVD_MouseClick(Point(P.X, P.Y));
        end;
      end;
Delphi-Quellcode:
    if KVideo_IsDVDMenu then
      KVideo_KeepAspectRatio(true);

seltsames verhalten.

Hat sich erledigt!

gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz