Einzelnen Beitrag anzeigen

Benutzerbild von fylo
fylo

Registriert seit: 18. Feb 2004
Ort: Rostock
155 Beiträge
 
Delphi 7 Personal
 
#36

Re: Winamp Control Library - Die ultimative *DLL für Winamp

  Alt 23. Jan 2008, 19:34
Zitat von Oliver1983:
wie kann ich die Volume Anzeigen lassen in einem Label?
Zum Beispiel so:
Delphi-Quellcode:
var WinAmp: TWinAmpControl; // sollte irgendwo schon existieren (z.B. als private in der Form)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case trunc(winamp.GetVolume/256*100) of
    0 : label1.Caption := 'min';
    1..99 : label1.Caption := inttostr(trunc(winamp.GetVolume/255*100)) +'%';
    100 : label1.Caption := 'max';
  end;
end;
have fun
fylo
  Mit Zitat antworten Zitat