масштаб графика в делфи

[SERG1980]

Да всё очень даже работает

[SonicBob]

я знаю что должно работать просто говорю что у меня не пашет)

[SERG1980]

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

я знаю что должно работать просто говорю что у меня не пашет)

Ну если у вас проект не секретный выложите его посмотрим, или его часть где не получается. ЧУДЕС не бывает, если не работает значит, что то не так делаете

[SonicBob]

просто проект по практике, выкладывать не буду тк там столько мусора что никто кроме меня не может найти что и где даже на форме ))
кнопка что б поправить масштаб

procedure TForm4.Button4Click(Sender: TObject);

var
i:integer;
heh, hah: real;
MaxX, MinX,mnx,mxx,Maxz, Minz,mnz,mxz : double;
begin

form4.Chart1.BottomAxis.Automatic:=false;
form4.Chart1.BottomAxis.AutomaticMaximum:=false;
form4.Chart1.BottomAxis.AutomaticMinimum:=false;
form4.Chart1.BottomAxis.Minimum:=(form1.label76.Tag)-1;
form4.Chart1.BottomAxis.Maximum:=(form1.label77.Tag)+1;

form4.Chart1.LeftAxis.Automatic:=false;
form4.Chart1.LeftAxis.AutomaticMaximum:=false;
form4.Chart1.LeftAxis.AutomaticMinimum:=false;
form4.Chart1.LeftAxis.Minimum:=(form1.label78.Tag)-1;
form4.Chart1.LeftAxis.Maximum:=(form1.label79.Tag)+1;//подчеркивает синим
end;

кнопка создания график

procedure TForm1.BitBtn5Click(Sender: TObject);
var
i:integer;
heh, hah: real;
MaxX, MinX,mnx,mxx,Maxz, Minz,mnz,mxz : double;
begin
form4.Series1.Clear;

MinX := StrToFloat(ListBox9.Items[0]);
for i := 1 to ListBox9.Items.Count-1 do
if StrToFloat(ListBox9.Items[i]) < MinX then
MinX:=StrToFloat(ListBox9.Items[i]);
label76.Caption:=floatToStr(MinX);

MaxX := StrToFloat(ListBox9.Items[0]);
for i := 1 to ListBox9.Items.Count-1 do
if StrToFloat(ListBox9.Items[i]) > MaxX then
Maxx:=StrToFloat(ListBox9.Items[i]);
label77.Caption:=floatToStr(MaxX);

Minz := StrToFloat(ListBox10.Items[0]);
for i := 1 to ListBox10.Items.Count-1 do
if StrToFloat(ListBox10.Items[i]) < Minz then
Minz:=StrToFloat(ListBox10.Items[i]);
label78.Caption:=floatToStr(Minz);

Maxz := StrToFloat(ListBox10.Items[0]);
for i := 1 to ListBox10.Items.Count-1 do
if StrToFloat(ListBox10.Items[i]) > Maxz then
Maxz:=StrToFloat(ListBox10.Items[i]);
label79.Caption:=floatToStr(Maxz);

for i:=0 to listbox9.Count - 1 do

 begin
  heh:=strtofloat(listBox9.Items[i]);
  hah:=strtofloat(listbox10.Items[i]);
  Form4.Series1.AddXY(hah,heh,'',clBlack);

 end;

пишет что минимум должен быть меньше максимума (спс кепу за комент)
вроде поиск минимума и максимума сделано по книжке, а границы как ты писал тут уже сделал но почему то критует

[SonicBob]

РЕЗУЛЬТАТ
всем кто будет сталкиватся с такой проблемой что надо построить 2 графика в одном tChart и из за этого происходит изменение масштаба все скачет и происходит не понять что СОВЕТ как я это решил 2й графк вывел на 2 другие оси получилось так график №1 - left и Bottom, график №2 - Righ и Top (2й клик по т чарт - Series - genarel - меняем оси на нужные) и что б не мешались лишние оси и сетки от них(или их я не знаю как правильно) идем в chart- axis выбираем нужную ось и снимаем флажок visible, оказалось все намного проще чем я думал)
всем кому поможет удачи)