Wizualizacje

0

Jak dodać do Playera MP# jakieś wizualizacje ?--Lopi22

0

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

= =
= = = -&gt pozycja
= = = = =
= = = = = =
|
jakaś kolumna

No spectrum :)
--Delphi 6
Pozdrowienia,
Imperior

0

wiem mam ten kompoment, ale chodzilo mi o cos innego.takie cos jak AVS w winampie :)))

Delphi 6--Lopi22

0

procedure TForm5.Timer1Timer(Sender: TObject);
var
x: integer;
begin

panel1.caption := inttostr(panel1.width);

if panel1.Width &gt 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 &lt&gt 0) and (form4.vumeter1.rightpeak &lt&gt 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;

mam nadzieje, ze sie polapiesz.----


The best of lamers:)
-pB_No-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0