Главная страница
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.038 c
3-43329
BlackTiger
2004-02-17 16:48
2004.03.14
Как сделать аналог


1-43629
Silver_
2004-03-01 19:28
2004.03.14
Трабл с XPManifest-ом в D7. В D6 все OK


14-43772
Beria
2004-02-17 06:49
2004.03.14
С чего начать делать игру? - КОНЕЧНО С ВЫБОРА СРЕДЫ!!


1-43436
revo
2004-03-01 09:32
2004.03.14
Как доинсталлировать Quick Report в Delphi 7?


1-43638
GrTik
2004-03-02 13:02
2004.03.14
TCheckListBox - событие checked