Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#4

AW: TAudioVolume Skalierungsfehler?!

  Alt 29. Apr 2013, 07:40
Bei mir scheint alles korrekt zu funktionieren.
Ich lasse mir alle 3 Werte digital anzeigen - siehe Code und Anhang.
Korreliert auch mit dem Mixer von WIN 7, wenn man vorher auf 100% schiebt und dann zurück!

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MasterMeter.Position := round(AudioVolume1.GetMasterPeak * 100.0);
  Label9.caption:= IntToStr(32-tbMasterVolume.Position);
  Label10.caption:= IntToStr(32-tbAppVolume.Position);
  Label11.Caption:= FloatToStr(round(AudioVolume1.GetMasterPeak * 100.0));
end;
Miniaturansicht angehängter Grafiken
av-demo-1.jpg   av-mixer.jpg  
  Mit Zitat antworten Zitat