[Intripio]

Доброе время суток! Есть форма, на форме создан Image, а в него вставлена картинка, которая представляет собой график. Как сделать так, чтобы при наведении на сия график по нему бегала красная точка?

P.S. нужно сделать не для всего графика, а скажем для 5 точек на графике.....

[YVitaliy]

Нужно знать функцию, по которой построен график, тоесть, зависимость X от Y. А дальше дело техники.

[Страдалецъ]

Да не нужно здесь функции, он ведь Image вставил а не TChart. Если картинка не масштабируется, то просто записываем константный массив нужных точек на графике и по событию MouseMove для Image проверяем текущие координаты мыши и точки из массива. Совпали - рисуем точку, причем желательно в режиме XOR, тогда ее легче будет потом стереть.
Если картинка масштабируется, то уже хуже т.к. придется высчитывать новые координаты с учетом искажений вызванных масштабированием, но тоже реально.

[Pyro]

если график обвести цветной линией, то можно вычислить где рисовать эту красную точку

[YVitaliy]

Ну вот, судя по ответам, нужно взять карандаш в руку, и дорисовать точку. Я просто предьявил самый оптимальный вариант, но если функция неизвестна - то, конечно, можно и вручную...

[Intripio]

Сообщение от Страдалецъ

Да не нужно здесь функции, он ведь Image вставил а не TChart. Если картинка не масштабируется, то просто записываем константный массив нужных точек на графике и по событию MouseMove для Image проверяем текущие координаты мыши и точки из массива. Совпали - рисуем точку, причем желательно в режиме XOR, тогда ее легче будет потом стереть.
Если картинка масштабируется, то уже хуже т.к. придется высчитывать новые координаты с учетом искажений вызванных масштабированием, но тоже реально.

Можно какой нибудь банальный пример пары точек с применением XOR...картинка не маштабируется...

[Pyro]

PHP код:

const r = 5;
var point: TRect;

procedure draw(canvas: tcanvas; what: TRect);
begin
  canvas.Pen.Mode := pmXor;
  canvas.Brush.Color := clAqua;  // на белом - красный
  canvas.Rectangle(what);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(Image1.Canvas, point);
  point := rect(x-r, y-r, x+r, y+r);
  draw(Image1.Canvas, point);
end; 


[Intripio]

Сообщение от Pyro

PHP код:

const r = 5;
var point: TRect;

procedure draw(canvas: tcanvas; what: TRect);
begin
  canvas.Pen.Mode := pmXor;
  canvas.Brush.Color := clAqua;  // на белом - красный
  canvas.Rectangle(what);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(Image1.Canvas, point);
  point := rect(x-r, y-r, x+r, y+r);
  draw(Image1.Canvas, point);
end; 


Спасибо! Примерно понял как все работает.
Теперь вопрос в другом. Как сделать так, чтобы при нажатии левой кнопкой мыши данная точка оставалась там где произошло нажатие. Чтобы при дальнейшем MouseMove по картинке точка не бегала за мышью.

[Intripio]

Сообщение от Pyro

PHP код:

const r = 5;
var point: TRect;

procedure draw(canvas: tcanvas; what: TRect);
begin
  canvas.Pen.Mode := pmXor;
  canvas.Brush.Color := clAqua;  // на белом - красный
  canvas.Rectangle(what);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(Image1.Canvas, point);
  point := rect(x-r, y-r, x+r, y+r);
  draw(Image1.Canvas, point);
end; 


Спасибо! Примерно понял как все работает.
Правда если в Image вставлена картинка, то ругается на строчку draw(Image1.Canvas, point); (((((((((

А как сделать так, чтобы от этой точки еще спускались прямые на ось X и на ось Y (ну чтобы пользователь мог примерно увидеть где ставит точку). Спасибо!!!!

[Intripio]

Чтобы было вот так...

[Pyro]

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

[YVitaliy]

Если в Image вставлена картинка, то, кажись, нужно использовать Image1.Picture.Bitmap.Canvas для рисования.

[Intripio]

Сообщение от YVitaliy

Если в Image вставлена картинка, то, кажись, нужно использовать Image1.Picture.Bitmap.Canvas для рисования.

Можете на каком нибудь примере показать.....спасибо!