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

Вниз

Работа с Chart , можно ли вычислить значение   Найти похожие ветки 

 
aha   (2004-02-29 15:26) [0]

функции кривой по ее абсциссе ( предположим есть две точки соединенные прямой ). мне нужно вычислить значение ведя мышкой для всей кривой ,а не тока для заданных точек , не знаю наскоко смог обьяснить свою проблему ?


 
тихий вовочка ©   (2004-02-29 16:04) [1]

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

var p : TPoint;
a,b : real;
begin
GetCursorPos(p);
a:=Series1.XScreenToValue(X);
b:=Series1.YScreenToValue(Y);

ShowMessage(FloatToStr(a)+" "+FloatToStr(b));
end;


 
aha   (2004-02-29 16:15) [2]

это же не совсем то .. мне то нужно щелкнуть предположим мышкой по любому месту по оси Х и чтобы по кривой можно было вычислить значение функции...


 
тихий вовочка ©   (2004-02-29 18:29) [3]

Тогда попробуй
a:=Round(Series1.XScreenToValue(X));
ShowMessage(FloatToStr(Series1.YValues[a]));


 
aha   (2004-02-29 19:35) [4]

.. спасибо , было бы хорошо , если тока у меня целые числа а , у меня они дробные .. другого варианта похоже нет ?



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
1-43665
YurikGl
2004-03-01 19:42
2004.03.14
Вопрос по Excell


1-43445
Kyrt
2004-03-01 04:04
2004.03.14
Вопрос по Memo


3-43377
belyh
2004-02-14 23:45
2004.03.14
компонент QUERY -???


1-43525
Batoon
2004-02-28 12:56
2004.03.14
Опять LISTBOX


14-43887
Xelibris
2004-02-24 17:57
2004.03.14
Просто почитайте...