Zuweisung der Hauptlautstärke

[EWeiss]

Ich bekomme die Values beider Kanäle nicht auf die Trackbar umgelegt.

Meine Ausgangs function.

Delphi-Quellcode:

function TAudioVolume.GetMasterBalance(): integer;
 var
  HR: HResult;
  f: Single;
  i: Integer;
  Chans: Uint;
  Channels: TChannels;
  MasterVolPos: Integer;
begin
  Result := (tbMasterVolume.Max div 2); //Center 100% für alles

  if AudioEndpointVolume = nil then
    exit;

  HR := AudioEndpointVolume.GetChannelCount(Chans);
  if HR = S_OK then
  begin
    if Chans < 2 then
      exit;
  end else
  exit;

  MasterVolPos := round(GetMasterVolume * tbMasterVolume.Max);

  for i := 0 to Chans - 1 do
  begin
    HR := AudioEndpointVolume.GetChannelVolumeLevelScalar(i, f);
    if HR = S_OK then
    begin
      case i of
        0:
          Channels.LeftVol := f;
        1:
          Channels.RightVol := f;
      end;
    end;
  end;
  
  Result := ???
end;

Ich habe jetzt 3 Werte die auf die Trackbar.Position umgelegt werden müssen.
1. MasterVol
Ändert sich dieser Wert dann passen sich die Werte der Kanäle entsprechend der Gesamtlautstärke an.
2. linker Kanal
Ändert sich die Gesamtlautstärke passt sich der Gesamtwert des linken Kanal an. Dieser soll dann die linke hälfte der Maximalen Value der Trackbar einnehmen.
3. rechte Kanal
Quasi das gleiche wie beim linken Kanal nur das hier die rechte hälfte der Maximalen Value der Trackbar dafür zuständig ist.

Die Maximale Value der Trackbar sollte sich dabei nicht verändern so das wenn als bsp.
Die Gesamtlautstärke 50% beträgt, dann ist der linke und rechte Kanal ebenfalls 50 % die Trackbar soll dann trotzdem zentriert sein.

Bin im Moment etwas überfordert das alles der Trackbar.Position zu zuweisen.

Jemand Interesse zu helfen?

PS:
Denke habe auch im ersten Beitrag noch einen Fehler da hier das MasterVol nicht mit berücksichtigt wird.

gruss