delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 12:51:02
![delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?delphi canvas如何根据中心点坐标 和矩形的宽度 动态的画出矩形?forestry98的回答 我试试看](/uploads/image/z/15047849-65-9.jpg?t=delphi+canvas%E5%A6%82%E4%BD%95%E6%A0%B9%E6%8D%AE%E4%B8%AD%E5%BF%83%E7%82%B9%E5%9D%90%E6%A0%87+%E5%92%8C%E7%9F%A9%E5%BD%A2%E7%9A%84%E5%AE%BD%E5%BA%A6+%E5%8A%A8%E6%80%81%E7%9A%84%E7%94%BB%E5%87%BA%E7%9F%A9%E5%BD%A2%3Fdelphi+canvas%E5%A6%82%E4%BD%95%E6%A0%B9%E6%8D%AE%E4%B8%AD%E5%BF%83%E7%82%B9%E5%9D%90%E6%A0%87+%E5%92%8C%E7%9F%A9%E5%BD%A2%E7%9A%84%E5%AE%BD%E5%BA%A6+%E5%8A%A8%E6%80%81%E7%9A%84%E7%94%BB%E5%87%BA%E7%9F%A9%E5%BD%A2%3Fforestry98%E7%9A%84%E5%9B%9E%E7%AD%94+%E6%88%91%E8%AF%95%E8%AF%95%E7%9C%8B)
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;