|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Усовершенствование графика
Здравствуйте! Вот у меня строиться график. По оси ох - время, по оси оу - амплитуда звука wav. Так вот что бы я хотел добавить:
1) Сетку 2) Стрелки ох и оу с обозначениями, примерно как на скрине. 3) разметки и подписи на этик осях, которые соответствуют, например амплитуде звука и длительности времени. Прилагаю скрин, для более понятного объяснения. (скрин в point нарисован). Вот код построения графика как есть: Код:
procedure TForm1.pbDrawWavPaint(Sender: TObject); var KX, KY: Extended; i, X, Y, DY, X1, X2, NX, MinNX, Chanel, aWidth, aHeight: Integer; Can: TCanvas; DrawWaveForm: Boolean; begin if WavInfo.NumSamples >= 5000 then tbTime.Max:=300 else if WavInfo.NumSamples >= 10000 then tbTime.Max:=500 else if WavInfo.NumSamples >= 100000 then tbTime.Max:=10000; Can := pbDrawWav.Canvas; aWidth := pbDrawWav.Width; aHeight := pbDrawWav.Height; Can.Brush.Color := pnBackground.Color; Can.FillRect(pbDrawWav.ClientRect); Chanel := tcDrawWav.TabIndex; if (Chanel >= 0) and (WavInfo.NumSamples > 1) and (WavInfo.MaxAmplitude > 0) then begin DrawWaveForm := rgPaintType.ItemIndex = 0; if DrawWaveForm then MinNX := 2 else MinNX := 1; X1 := sbTimePos.Position - sbTimePos.Min; NX := Max(sbTimePos.PageSize, MinNX); X2 := Min(X1 + NX - 1, WavInfo.NumSamples - 1); KX := aWidth / (NX - MinNX + 1); KY := aHeight * tbAmplitude.Position / (WavInfo.MaxAmplitude * 2); DY := aHeight div 2; Can.Pen.Color := clLime; Can.Brush.Color := clGreen; for i := X1 to X2 do begin X := Trunc(KX * (i - X1)); Y := aHeight - Trunc(KY * WavInfo.Samples[Chanel, i] + DY); if DrawWaveForm then begin if i = X1 then Can.MoveTo(X, Y) else Can.LineTo(X, Y); end else begin Can.Rectangle(X, DY, Trunc(KX * (i - X1 + 1)), Y); end; end; if cbDrawOX.Checked then begin Can.Pen.Color := clWhite; Can.MoveTo(0, DY); Can.LineTo(aWidth, DY); end; end; end; procedure TForm1.tcDrawWavChange(Sender: TObject); begin pbDrawWav.Invalidate; end; procedure TForm1.UpdateScrollBar; var MaxPos: Integer; begin sbTimePos.PageSize := (sbTimePos.Max - sbTimePos.Min + 1) div tbTime.Position; MaxPos := sbTimePos.Max - sbTimePos.PageSize + 1; if sbTimePos.Position > MaxPos then sbTimePos.Position := MaxPos; pbDrawWav.Invalidate; end; procedure TForm1.tbTimeChange(Sender: TObject); begin UpdateScrollBar; end; procedure TForm1.tbAmplitudeChange(Sender: TObject); begin UpdateScrollBar; end; procedure TForm1.sbTimePosChange(Sender: TObject); begin pbDrawWav.Invalidate; end; procedure TForm1.cbDrawOXClick(Sender: TObject); begin pbDrawWav.Invalidate; end; procedure TForm1.rgPaintTypeClick(Sender: TObject); begin pbDrawWav.Invalidate; end; Прошу добрых людей помочь осуществить задумку! Последний раз редактировалось Dmitry_DM, 13.10.2012 в 14:08. |