以下是我计算角度的方法。
procedure TForm1.Label13MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
mx,my,seq:integer;
begin
if seq=0 then
begin
image1.Canvas.moveTo(x,y);
end
else if seq=1 then
begin
image1.Canvas.MoveTo(mx,my);
image1.Canvas.LineTo(x,y);
end
else if seq=2 then
begin
image1.Canvas.MoveTo(mx,my);
image1.Canvas.LineTo(x,y);
end;
mx:=x;my:=y;
seq:=(seq+1) mod 3 ;
end;
角度该咋算??
procedure TForm1.Label13MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
mx,my,seq:integer;
begin
if seq=0 then
begin
image1.Canvas.moveTo(x,y);
end
else if seq=1 then
begin
image1.Canvas.MoveTo(mx,my);
image1.Canvas.LineTo(x,y);
end
else if seq=2 then
begin
image1.Canvas.MoveTo(mx,my);
image1.Canvas.LineTo(x,y);
end;
mx:=x;my:=y;
seq:=(seq+1) mod 3 ;
end;
角度该咋算??
解决方案 »
- Twebbrowser 如何实现一个自定义下载管理器 delphi该如何实现?高手帮帮忙啊
- ■■ 又一个困扰我的问题?
- 祝贺Belphi2006发布,只能放100分,呵呵
- 关于QUERY控件的一个问题
- 我想知道下载量作弊是怎么搞的,能不能用DELPHI编写啊??
- 关于透明窗体的问题。
- 如何调节PrintDBGridEh1第三方控件的预览边界及设定横向打印??
- 寻求一些经典的加密算法单元。。。>>>>>>>>>>>>>>>
- delphi中调用api函数(参数匹配问题,急!!)
- 怎么样把多个程序打包到一个文件中,然后怎么样释放出来!高分求答案(分两次给100分)!
- 利用ICS的HttpCli控件从本地数据库上传图片记录的问题。
- 在sql server2000的日期类型字段里,输入‘年月’不输入‘日’会报错,如何解决?
gz是啥意思?
得到弧度!
接分吧