救急！！！(50分)

流

流星乱舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #1

我现在在image中画出函数的曲线了，而且鼠标点到任意一个点也可以显示出它对应的横纵坐标。但是，现在鼠标点到曲线外，image范围内的其他点也会显示出坐标。
请问怎么只显示曲线上点，而不可以显示其他点的坐标？
而且怎么可以把坐标轴缩小20倍？

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #2

那你可以判断一下你的点是否在曲线上，如果再再显示啊，这个不难吧，把x,y代入函数看看是否一致就可以了
把坐标轴缩小那你自己酌情处理啊，把你算出来的x,y变换成图象上的x,y在画出来啊

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #3

可能先判断鼠标下的点的颜色的值是不是你画的什么画笔的颜色值
是的画显示坐标，否的话就不显示了

 

流

流星乱舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #4

应该有可以限制的语句的吧，编写程序让他判断一下，如果显示的值与算出来的值一致，就可以显示。但是怎么编写？

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #5

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if PointOnLine(X, Y) then
begin
//DoSomething;
end;
end;

function TForm1.PointOnLine(X, Y: Integer): Boolean;
begin
Result := False;
//判断点是否在曲线上;
end;