delphi canvas如何根据中心点坐标和矩形的宽度动态的画出矩形?

来源：学生作业帮编辑：搜搜考试网作业帮分类：数学作业时间：2024/07/12 08:37:37

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;

cad如何画出距图形界限一定宽度的矩形在photoshop里的图片上,任意画出一个矩形,如何查出它的宽度和高度? matlab 已知矩形的中心点,长和宽 ,试绘制一个矩形 matlab中如何画出矩形场景的figure? PS中如何可以画出边框为虚线的矩形? 如下图 PS如何画出四条边都是弧形的矩形 AI如何画出两个角有弧度的矩形? 在一个矩形中,长度和宽度的差为2,对角线长度为4,求这个矩形的面积. X是一个矩形厘米的宽度,长度是宽度的2倍,它的面积和周长的求CAD矩形的画法?我想画个长1000,宽474的矩形?前提我是想在定了中心线的中心点上后画这个矩形,并且该矩形的中心点宽与长成黄金分割比的矩形被称为黄金矩形,怎样画出一个黄金矩形呢? delphi7里printer.canvas.moveto(x,y)坐标的单位是什么?和mm的换算

delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?

delphi canvas如何根据中心点坐标和矩形的宽度动态的画出矩形?