[Dmitry_DM]

Здравствуйте! Вот у меня строиться график. По оси ох - время, по оси оу - амплитуда звука 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;

Прошу добрых людей помочь осуществить задумку!

[angvelem]

Вроде такого?

[poli-smen]

Сообщение от Dmitry_DM

Здравствуйте! Вот у меня строиться график. По оси ох - время, по оси оу - амплитуда звука wav. Так вот что бы я хотел добавить:
1) Сетку
2) Стрелки ох и оу с обозначениями, примерно как на скрине.
3) разметки и подписи на этик осях, которые соответствуют, например амплитуде звука и длительности времени.

А в чём трудности? Используй методы TCanvas: Для рисования линий (в том числе сетки и стрелок) используй MoveTo и LineTo. Для вывода текста (для подписей) используй TextOut или TextRect.

[Dmitry_DM]

Сообщение от poli-smen

А в чём трудности? Используй методы TCanvas: Для рисования линий (в том числе сетки и стрелок) используй MoveTo и LineTo. Для вывода текста (для подписей) используй TextOut или TextRect.

Если бы все было так просто... Но надо же связать сетку, подписи с действительным графиком, который зависит от wav файла.

[Dmitry_DM]

poli-smen, мне нужна ваша помощь! Я сам не могу построить сетку, связанную с амплитудными столбцами. Опыта не хватает. Я думаю вы поняли по скрину как я хочу реализовать. А от обычной сетки толку нету..

[poli-smen]

Сообщение от Dmitry_DM

poli-smen, мне нужна ваша помощь! Я сам не могу построить сетку, связанную с амплитудными столбцами. Опыта не хватает. Я думаю вы поняли по скрину как я хочу реализовать. А от обычной сетки толку нету..

ОК. Я подумаю над этим.

[Dmitry_DM]

Сообщение от poli-smen

ОК. Я подумаю над этим.

Спасибо! Я вам так благодарен за все!!