请问怎样在Image中画一条箭头直线啊的

[paulzsf]

请问怎样在Image中画一条箭头直线啊的
通过点击两下鼠标，一个始点，一个终点，
谢谢！！！！

[CCLIS]

如果始点的坐标为x1, y1, 终点的坐标为x2, y2
Image 中的图形的Canvas 为 Canvas, 可以如下来写

// 画直线
Canvas->MoveTo(x1, y1);
Canvas->LineTo(x2, y2);

// 假定箭头的长度为5个象素，要先计算另外两个点的坐标。

int x3, y3, x4, y4;
if(x1 == x2)//垂直线
{
x3 = x1 - 5;
x4 = x1 + 5;
if(y1 < y2)
y3 = y4 = y2 - 5;
else
if(y1 > y2)
y3 = y4 = y2 + 5;
else // 只是一个点。
return;
}

if(y1 == y2) // 水平线
{
y3 = y1 - 5;
y4 = y1 + 5;
if(x1 < x2)
x3 = x4 = x2 - 5;
else
if(x1 > x2)
x3 = x4 = x2 + 5;
else // 只是一点
return;
}

// 斜线的情况, 先计算出x3, y3, x4, y4

Canvas->LineTo(x3, y3);
Canvas->MoveTo(x2, y2);
Canvas->LineTo(x4, y4);

[chenpeng20000]

可以这样：
设一个全局变量
int i=0;
然后在
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{}中写

i=i+1;
if(i%2==1)
Image1->Canvas->MoveTo(X,Y);
else Image1->Canvas->LineTo(X,Y);

[tigerhohoo]

箭头必须自己来画了没有什么技巧.

[yjy1001]

CCLIS(www.cclis.com) 解答得很好 了

[sprewellkobe]

计算好箭头的坐标,照着画就完了

其实最好的方法是找一个箭头的照片,然后CopyRect

[weibz0525]

如果是斜线呢？
计算肯定不会这么简单

[Kabin]

TPoint Arrow1[4];
Arrow1[0]= Point(80,105);
Arrow1[1]= Point(106,66);
Arrow1[2]= Point(80,87);
Arrow1[3]= Point(94,98);

Image1->Canvas->Pen->Color = clBlue;
Image1->Canvas->Pen->Width = 1;
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[1].x,Arrow1[1].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[2].x,Arrow1[2].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[3].x,Arrow1[3].y);