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;