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




Вниз

Проблема маштабирования и просмотра графика. 


dimonf   (2002-01-12 21:07) [0]

Народ, подскажите как мне от маштабировать и потом просматриват маштабированный график с помощью двух ScrollBar-ов?
Вот что у меня получилось:

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

procedure TMDIChild.ScrollBar1Change(Sender: TObject);
var Difer:Double;
begin
Chart1.BottomAxis.SetMinMax(ScrollBar1.Position,10);
With Chart1.BottomAxis do
Begin
Difer:=Maximum-Minimum;
ScrollBar2.Max:=Trunc(Chart1.MaxXValue(Chart1.BottomAxis)-ScrollBar2.Position);//*Difer/100.0;
ScrollBar2.Min:=Trunc(Maximum-Difer);
end;
ScrollBar2.PageSize:=Trunc((ScrollBar1.Position/935)*ScrollBar2.Max);
end;

Но почемуто при порсмотре иногда выскакивает ошибка Maximum>=Minimum. В чем проблема? А то я уже заклинил :)))



dimonf   (2002-01-13 11:08) [1]

Народ, неужели нет мыслей?




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




Наверх





Память: 0.71 MB
Время: 0.055 c
1-99979           dimonf                2002-01-14 16:44  2002.01.31  
Вопрос, как маштабировати и просматривать график.


14-100049         Игорь                 2001-12-02 19:29  2002.01.31  
Вопрос почти про графику


14-100055         VEG                   2001-12-10 22:01  2002.01.31  
Нужен компонент типа LABEL, только с большей скоростью перерисовки!!!


14-100062         Лисий Хвост           2001-12-10 09:22  2002.01.31  
Программистам-Битломанам


3-99891           Наташа                2001-12-27 09:00  2002.01.31  
Как возвратить значение сгенерированного ID на клиента