Прорисовка вертикальных линий на видимой части графика

@Zaniel1 · Регистрация: 18.02.2017

Author24 — интернет-сервис помощи студентам

Добрый вечер!
Имеется некоторая функция, которая минимизируется с помощью алгоритма Фибоначчи. Суть проблемы такая: как сделать так, чтобы можно было показать на компоненте chart как "отбрасываются" отрезки, в которых нет минимума?
У меня в предположении такая идея, что нужно как-то сделать так, чтобы серия, которая выстраивает вертикальные линии подстраивалась под размер текущего графика. Однако, как сделать это таким образом не могу понять. Единственное до чего додумался:

Delphi

series4.clear;
       series4.AddXY(a,(f(a,ComboBox1.ItemIndex)+5));
       series4.AddXY(a,(f(a,ComboBox1.ItemIndex)-5));
       series5.clear;
       series5.AddXY(b,(f(b,ComboBox1.ItemIndex)+5));
       series5.AddXY(b,(f(b,ComboBox1.ItemIndex)-5));

Однако, график может быть очень большого масштаба, и тогда эти вертикальные линии не будут видны.
То есть нужно, чтобы вертикальные линии занимали все видимое пространство на графике.
Буду очень признателен, если поможете с решением этой проблемы.

@Puporev · 13.12.2018, 19:40

Для рисования в Чарт есть процедура Chart1AfterDraw()

Вот отрывок из программы

Delphi

//рисование точек и заливка треугольника
procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
//перевод координат точек в экранные
x11:=series1.CalcXPosValue(x1);
y11:=series1.CalcYPosValue(y1);
x12:=series1.CalcXPosValue(x2);
y12:=series1.CalcYPosValue(y2);
x13:=series1.CalcXPosValue(x3);
y13:=series1.CalcYPosValue(y3);
//рисование закрашенного треугольника
with Chart1.Canvas do
 begin
  brush.Color:=clLime;
  pen.Color:=clLime;
  ellipse(x11-3,y11-3,x11+3,y11+3);
  ellipse(x12-3,y12-3,x12+3,y12+3);
  ellipse(x13-3,y13-3,x13+3,y13+3);
  polygon([point(x11,y11),point(x12,y12),point(x13,y13),point(x11,y11)]);
 end;

@Zaniel1 · 13.12.2018, 20:21 **[ТС]**

Что-то уже начало получаться, однако, все равно остается неясным, как заменить эту самую "5" на максимальное или минимальное значение отображаемое на графике, чтобы полностью линия проходила через всю видимую часть графика?

Delphi

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var
x11,
y11,
x12,
y12 :integer;
begin
x11:=series4.CalcXPosValue(z);
y11:=series4.CalcYPosValue(5);
x12:=series4.CalcXPosValue(z);
y12:=series4.CalcYPosValue(-5);
with Chart1.Canvas do
 begin
  brush.Color:=clLime;
  pen.Color:=clLime;
  line(x11,y11,x12,y12);
 end;
end;

@Puporev · 13.12.2018, 20:48

x11, x12 значения по оси Х,
y11,y13 минимальные значения по оси Y=Chart1.LeftAxis.Minimum
y12,y14 максимальные значения по оси Y=Chart1.LeftAxis.Maximum
//значения мин и макс должны быть настроены, или линии не от начала до конца, найти min,max по Y.

Добавлено через 1 минуту
И почему у Вас значения х11 и х12 одинаковые?

@Zaniel1 · 13.12.2018, 21:05 **[ТС]**

Все, получилось сделать так как было задумано. Спасибо вам!
Значения одинаковы для того, чтобы построить вертикальную прямую, для этого нужно 3 точки, то есть чтобы было (Chart1.LeftAxis.Minimum, z, Chart1.LeftAxis.Maximum).
Понял что вы имели ввиду, что можно было обойтись 3 переменными вместо 4. Сразу об этом и не подумал даже...

@Puporev · 13.12.2018, 21:08

Нет, нужно 4 точки х1,х2, ymin,ymax

Delphi

1 2	moveto(x1,ymin);lineto(x1,ymax); moveto(x2,ymin);lineto(x2,ymax);

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.12.2018, 20:48	4
	x11, x12 значения по оси Х, y11,y13 минимальные значения по оси Y=Chart1.LeftAxis.Minimum y12,y14 максимальные значения по оси Y=Chart1.LeftAxis.Maximum //значения мин и макс должны быть настроены, или линии не от начала до конца, найти min,max по Y. Добавлено через 1 минуту И почему у Вас значения х11 и х12 одинаковые? 1

@Zaniel1 0 / 0 / 0 Регистрация: 18.02.2017 Сообщений: 51
	13.12.2018, 21:05 [ТС]	5
	Все, получилось сделать так как было задумано. Спасибо вам! Значения одинаковы для того, чтобы построить вертикальную прямую, для этого нужно 3 точки, то есть чтобы было (Chart1.LeftAxis.Minimum, z, Chart1.LeftAxis.Maximum). Понял что вы имели ввиду, что можно было обойтись 3 переменными вместо 4. Сразу об этом и не подумал даже... 0

	13.12.2018, 21:08

Прорисовка вертикальных линий на видимой части графика

Решение