delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看

来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 01:47:25
delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看

delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看
delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?
delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?
forestry98的回答 我试试看

delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看
procedure TForm1.Button1Click(Sender:TObject);
begin
DrowRectangle(100,100,200,200);
end;
//中心坐标X、中心坐标Y,矩形宽度、矩形高度
procedure TForm1.DrowRectangle(ACenterX,ACenterY,AWidth,AHeight:Integer);
var
iLeftTop,iRigthBottom:TPoint;
begin
//计算矩形左上角坐标
iLeftTop.X := ACenterX - Ceil(AWidth / 2);
iLeftTop.Y := ACenterY - Ceil(AHeight / 2);
//计算矩形右下角坐标
iRigthBottom.X := iLeftTop.X + AWidth;
iRigthBottom.Y := iLeftTop.Y + AHeight;
//画矩形
Canvas.Rectangle(iLeftTop.X,iLeftTop.Y,iRigthBottom.X,iRigthBottom.Y);
end;

delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看 delphi在image1中画直线,image1.Canvas.MoveTo(10,10);image1.Canvas.LineTo(20,100);画的直线看起来不直见附图.如何处理才能看起来像条直线. delphi image1.canvas.moveto(x,y),image1,canvas.lineto(x1,y1).连续画直线,每画一段中间是断续的? 圆弧如何寻找中心点? 我在使用 DELPHI 编程的时候 用CANVAS.MOVETO (0,0) ; CANVAS LINETO使用了如下代码化直线,在运行后在窗体上可以看到一条直线；CANVAS.MOVETO(0,0);CANVAS.LINETO(100,100);但是如果在后面加上,如下代码后 运行 已知涵洞中心点坐标如何推算其方位角根据已知涵洞中心点坐标如何推算涵洞四角的坐标，请详细举例说明！新手上阵 圆形木板.如何找中心点. 正多边形的中心点如何求? 正方形的中心点如何计算 canvas是什么意思? delphi用线程时出现错误canvas does not allow draw把一段通讯程序放到线程中,运行一段时间（可能十几分钟,也可能十几个小时）就会报错”canvas does not allow draw”,但按F7后,程序没有停止,线程已经 ai物体旋转复制如何自定义中心点 ai中如何围绕中心点旋转复制 直角梯形的中心点如何找? 已知三维空间几个点如何求中心点 AI中如何找画板中心点? 如何计算html5中canvas绘制一个图形所需的时间? AutoCad2010中如何找一条线段的中心点如何找中心点 才学的 没分了