Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Вопрос, как маштабировати и просматривать график.   Найти похожие ветки 

 
dimonf   (2002-01-14 16:44) [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. В чем проблема? А то я уже заклинил :)))


 
Alx2 ©   (2002-01-14 17:00) [1]

А может, установить нужные размеры/позицию Chart1 и, если он не поместится на форме (на ScrollBoxе), скроллировать его штатными средствами (скроллбарами от формы (от ScrollBoxа))?



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

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
6-100035
митя
2001-11-08 18:08
2002.01.31
Импорт данных из Excel-я в Delphi


1-99954
Yuraz
2002-01-13 19:03
2002.01.31
Помогите! Не могу разобраться, почему в этой проц. печатается менее 6 букв


14-100052
evgeg
2001-12-08 15:16
2002.01.31
Какой проект можно считать большим? И кто в таких участвовал?


3-99889
KMZ
2001-12-27 13:06
2002.01.31
Как можно конвертировать таблицы с данными в Interbase


1-100010
nikols
2002-01-15 12:05
2002.01.31
Надо конвертировать отчет QuickReport в Excel.