Jak dodać do Playera MP# jakieś wizualizacje ?--Lopi22
Na stronie http://delphi.icm.edu.pl/ zjadź w zestawach komponentów Virgin Workshop lub tym podobne.
W tym pakiecie jest VrSpectrum w nim możesz robic wizualizacje poszczególnych kanałów w mniej więcej taki sposób: spectrum.item[jakaś kolumna].position:=jakaś liczba(standardowo 1..100);
To wygląda mniej więcej tak
= =
= = = -> pozycja
= = = = =
= = = = = =
|
jakaś kolumna
No spectrum :)
--Delphi 6
Pozdrowienia,
Imperior
wiem mam ten kompoment, ale chodzilo mi o cos innego.takie cos jak AVS w winampie :)))
Delphi 6--Lopi22
procedure TForm5.Timer1Timer(Sender: TObject);
var
x: integer;
begin
panel1.caption := inttostr(panel1.width);
if panel1.Width > 995 then
begin
form5.Canvas.Rectangle(3, 20, 1000, 210);
form5.panel1.width := 0;
form5.Canvas.MoveTo(0, 110);
end;
x:= round((form4.vumeter1.leftpeak+form4.Vumeter1.RightPeak)/2);
if (form4.vumeter1.leftpeak <> 0) and (form4.vumeter1.rightpeak <> 0)
then
begin
canvas.Pen.color := rgb(45+x, 0, 255-x);
form5.panel1.width := form5.panel1.width+1;
y:= 210 - x;
if combobox1.Text = 'Oscyloskop' then
canvas.LineTo(form5.panel1.width+3, y);
if combobox1.Text = 'Kropki' then
canvas.Pixels[form5.panel1.width+3, y]:= rgb(45+x, 0, 255-x);
if combobox1.Text = 'Slupki' then
begin
canvas.MoveTo(form5.panel1.width+3, 208);
canvas.LineTo(form5.panel1.width+3, y);
end;
end;