'Visualissation'

[Nils_13]

Delphi-Quellcode:

procedure TForm1.DrawMyBars(LKanal, RKanal: Longword);
var i: integer;
begin
  if BassDLLPlayer1.Status = sndPlaying then
  begin
    for i := 0 to LKanal do
      p.Width := p.Width + 1;
     // DrawGradient
    for i := 0 to RKanal do
      p2.Width := p2.Width + 1;
  end else
  begin
    p.Width := 0;
    p2.Width := 0;
  end;
end;

Was mach ich bloß immer falsch *heul* ? Egal wie ich den Timer einstelle, die cpu wird immer überfordert.