TAudioVolume Komponente incl. System Mixer

[EWeiss]

Zitat von KodeZwerg:

Ja klar, Deins zählt hoch, meins zählt runter
War murks, Intern zählt der bestimmt auch hoch, habs vergessen zu überprüfen und bin still.

Was soll's hier das Update.. ist wieder was kälter so das man Arbeiten kann.

Nur WHEEL für die ListBox..
Für die Lautstärke wäre zu viel des guten. sorry das lasse ich so wie es ist.
Dreh dich aber jetzt nicht wund nur um das Teil zum Absturz zu bringen.. dürfte schwer fallen.

Ich habe jetzt schon vor lauter drehen Hornhaut an den Fingern
Das Teil will einfach nicht abstürzen.

Ach ja kein Timer nothing! LOL

Delphi-Quellcode:

      WM_MOUSEWHEEL:
        begin
          if ID = ID_LIST_DEVICE then
          begin
            If wP > 0 Then
              ID := _UP
            else
              ID := _DOWN;

            gSprBackground.GD_SetObjectTextEx(ID_LIST_TEXT, PWideChar(lstDeviceMsg(ID)), true);

            Lbl := TLabel.Create(nil);
            Lbl.AutoSize := True;

            // zentrierten Eintrag suchen
            for IntI := 0 to (lstDevice.ListCount(lstDevice.Handle) - 1) do
            begin
              Lbl.Caption := AudioVolume1.AudioDeviceInfo(IntI).DeviceName;
              if (Lbl.Width > MaxLenDeviceName) then
              begin
                Lbl.Caption := Lbl.Caption + '...';
                while Lbl.Width > MaxLenDeviceName do
                  Lbl.Caption := Copy(Lbl.Caption, 1, Length(Lbl.Caption) - Lbl.Font.Size) + '...';
              end;
              // Zentrierter Eintrag von Max 5 Sichtbaren Einträgen gefunden
              if lstDevice.ListGetText(lstDevice.Handle, 3) = Lbl.Caption then
              // Raus hier  
                break;
            end;

            // Hint zuweisen
            MainClass.Hint := AudioVolume1.AudioDeviceInfo(IntI).Description;
            gSprMaster.GD_SetObjectImageLabel(ID_TVOLUME, MainClass.Hint);
            // Icon erstellen
            IconHandle := AudioVolume1.LoadMasterIcon(PWideChar(AudioVolume1.AudioDeviceInfo(IntI).IconPath));
            MainClass.CreateMasterIcon(56, 9, IconHandle);

            AudioVolume1.SelectAudioDevice(IntI);

            // Device Namen zuweisen
            MainClass.DeviceName := AudioVolume1.AudioDeviceInfo(IntI).Description;
            gSprMaster.GD_SetObjectTextEx(ID_DEVICENAME, PWideChar(MainClass.DeviceName), true);
            // Slider position aktualisieren
            percent := round(AudioVolume1.GetMasterVolume * 100);
            SetThumbVert(ID_THUMB_VERT, gSprMaster, ID_THUMB_VERT, ID_SLIDER_VERT, percent);
            // Label freigeben
            Lbl.free;
          end;
        end;

gruss