TAudioVolume Komponente incl. System Mixer

[EWeiss]

Neue Version im Anhang.

Option addiert Show Clock, Use Composited.
Den unterschied zwischen Composited aktiv\deaktiv kann man im Anhang sehen.
Im Gradient Modus kann man die CPU drastisch (5%) reduzieren allerdings sieht es nicht mehr so gut aus.
CPU oder Qualität muss man sich halt entscheiden.
BlurText addiert (mache ich vielleicht noch wählbar)

Ich habe meinen Container für die Bitmaps in 4 Aufteilen müssen einmal wegen dem Composited Modus und andererseits wegen dem späteren verschieben der Session..

1. Oberer Bereich ausgeschlossen von den Volumen Controls.
2. Master Volumen.
3. Session um sie später verschieben zu können.
4. Konfiguration

Wenn die App gestartet wird werden die aktiven Session addiert.
Wenn sie offen ist wird Dynamisch ein neues hinzugefügt abhängig davon ob es existiert oder nicht.
Sollten die Session das Maximum von 4 überschreiten werden sie addiert sind aber nicht sichtbar also außerhalb des sichtbaren Bereichs des Containers für die Session deshalb addiere ich später eine Möglichkeit diese zu verschieben.

Wie dem auch sei.

gruss

[EWeiss]

Die Einträge Controls (der Sessions) können jetzt verschoben werden.

EDIT:
Habe noch drei Fehler gefunden.
1. Das Rechte Bitmap zum verschieben der Einträge wird zu schnell ausgeschaltet.
2. Das Offset der neu hinzugefügten Session stimmt nicht.
3. Invalid Pointer beim ändern der Laustärke.

Werde diese noch beheben und zusätzlich einen Informations Scrolltext addieren.
Zum Schluss kommt dann noch das entfernen der Session wenn nicht mehr aktiv.. dazu muss ich erst eine Lösung finden die Events dafür funktionieren leider nicht!
Bis zum nächsten Update dann.

Leider kommen von euch ja keine Meldungen.

gruss

[EWeiss]

Hab ein kleines Berechnungs Problem. (Ist schon spät)

Delphi-Quellcode:

    Percent := MasterBalance_Max - (PosX / (nW - 5)) * MasterBalance_Max;

    if round(Percent) = 16 then
      IPercent := 0
    else if round(Percent) < 16 then
      IPercent := 16 - round(Percent)
    else
    IPercent := round(Percent) - 16;

    SKAERO_SetToolTipText(HSprMaster, PWideChar(IntToStr(IPercent)));

MasterBalance_Max ist 32
Jetzt möchte ich das wenn ich den Regler nach links schiebe die Value von 0 > 50 geht und das gleiche umgekehrt
Boahhh ehh :) Muss nochmal in die Schule!

gruss

[KodeZwerg]

Delphi-Quellcode:

   Percent := MasterBalance_Max - (PosX / (nW - 5)) * 100;

Meinst Du das?

Oder andersrum

Delphi-Quellcode:

Prozent := (a/b)*100;

[EWeiss]

Ich habe eine Maximale Value von 32 diese soll aufgeteilt werden zwischen linken und rechten Kanal
aber nicht verrechnet, angezeigt mit 16 sondern von der Mitte aus jeweils 50 nach links und 50 rechts.

Zitat:

Meinst Du das?

Nein. IPercent
Ich mache mich lächerlich finde nicht den weg das umzusetzen.. LOL
Es geht um den ToolTip die eigentliche Value von Percent wird dadurch nicht beeinträchtigt.

gruss

[KodeZwerg]

Ich hab ja Dein Werk nicht aber ich hoffe ich habe Dich diesmal Richtig Verstanden.

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
 links, rechts: double;
 i: Integer;
begin
  links := 50-TrackBar1.Position;
  links := (links/50)*16;
  rechts := TrackBar1.Position-50;
  rechts := (rechts/50)*16;

  Label3.Caption := FloatToStr(links);
  Label4.Caption := FloatToStr(rechts);
end;

Trackbar hat einen Max = 100
Trackbar 50 = die Mitte = Links & Rechts = 0
Trackbar 0 = ganz links = Links 16 & Rechts = -16
Trackbar 100 = ganz rechts = Links -16 & Rechts = 16

Meinst Du so etwas?

[EWeiss]

Zitat:

Trackbar hat einen Max = 100..

ja wenn 100
meine MaxValue ist aber 32 somit ist das Ergebnis immer 0. ;)
Aber dein weg war schon der richtige.. Danke.

Bin jetzt wieder etwas wacher muss es wohl selber machen.

Delphi-Quellcode:

    if round(Percent) < 16 then
      IPercent := 16 - round(Percent)
    else
    IPercent := round(Percent) - 16;

    IPercent := (IPercent * 50) div 16;

geht bestimmt eleganter als einzeiler aber gut werte stimmen erst mal.
Man sollte nicht so lange wach bleiben.. ist nicht so gut für's Brain ;)

gruss

[KodeZwerg]

Dann hast Du mir da irgendwie was falsch Erklärt bzw hab ichs falsch Verstanden.

Zitat:

Zitat von EWeiss (Beitrag 1403032)

Ich habe eine Maximale Value von 32 diese soll aufgeteilt werden zwischen linken und rechten Kanal
aber nicht verrechnet, angezeigt mit 16 sondern von der Mitte aus jeweils 50 nach links und 50 rechts.

Max Val 32 aufgeteilt zwischen L und R = 32 : 2 = 16.
Mitte aus jeweils 50 nach links und 50 rechts = 50 L + 50 R = 100 Max
Ergibt bei mir 100 für Trackbar die Runtergerechnet werden muss in Dein 16er System für L und R.

Egal, solange das was Du vorhattest Funktioniert, ist alles cool :-)

[EWeiss]

Zitat:

aber nicht verrechnet, angezeigt mit 16

Nö ich will die 16 nicht sehen sondern aus der 16 soll der Wert 50 werden
Ist am ende eine Optische Korrektur denn mit dem wert 16 kann nicht wirklich jemand etwas anfangen.

Zitat:

von der Mitte aus jeweils 50 nach links und 50 rechts.

und zwar für Links (Mitte 0 < Max 50) und rechts (Mitte 0 > Max 50) = gesamt 100

gruss

[KodeZwerg]

Ja beim nächsten mal Frag ich besser gleich nach wie Ergebnisse auszusehen haben, so rum versteh ichs einfach nicht.
Hat sich ja zum positiven Erledigt, Schwamm drüber :thumb: