'Visualissation'

[Nils_13]

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    Max: Single;

{...}

var
  data: TFFTData;
begin
    data := BassdllPlayer1.GetFFTData;
  if Data[1] > max then
    begin
      Max := Data[1];
      p.Width := Round(max);
    end;
  end;
  p.Width := Round(Data[1]);