Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

График.   Найти похожие ветки 

← →
dimonf   (2002-01-15 15:51) [3]

Вот что я делал:

procedure TMDIChild.ScrollBar2Change(Sender: TObject);
var Difer:Double;
begin
With Chart1.BottomAxis do
Begin
Difer:=Maximum-Minimum;
Maximum:=Chart1.MaxXValue(Chart1.BottomAxis)-ScrollBar2.Position;
Minimum:=Maximum-Difer;
end;
end;

procedure TMDIChild.ScrollBar1Change(Sender: TObject);
var Difer:Double;
begin
Chart1.BottomAxis.SetMinMax(ScrollBar1.Position,10);
ScrollBar2.PageSize:=Trunc((ScrollBar1.Position/935)*ScrollBar2.Max);
end;

Но все время выскакивает ошибка Maximum>=Minimum. В чем проблема?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c