|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#14
|
|||
|
|||
Цитата:
Код:
WavInfo: TWavInfo; KX, KY: Extended; i, X, Y, DY, Chanel: Integer; Код:
procedure TForm1.Button_WAVgraphClick(Sender: TObject); begin KX := 1; // Коэффициент пропорциональности по абсциссе KY := 0.01; // Коэффициент пропорциональности по ординате DY := Height div 2; // Смещение по ординате Chanel := 0; // Номер рисуемого канала Repaint; for i := Low(WavInfo.Samples) to High(WavInfo.Samples) do begin X := Trunc(KX * i); Y := Trunc(KY * Smallint(WavInfo.Samples[i, Chanel]) + DY); end; end; procedure TForm1.PaintBox1Paint(Sender: TObject); begin PaintBox1.Canvas.MoveTo(X, DY); PaintBox1.Canvas.LineTo(X, Y); end; Код:
procedure TForm1.Button_WAVgraphClick(Sender: TObject); и Код:
procedure TForm1.PaintBox1Paint(Sender: TObject); |