给定一个圆心,如何画出同心圆。犹如圆型雷达一样!

hsly110 2009-12-28 01:17:54
给定一个圆心,如何画出同心圆。犹如圆型雷达一样!

这个同心圆,大概包含4个圆,每个圆的半径都是 相差5.
比如 最外面的圆半径是100, 那么第二圆是95,第三个是90,第四个85.

我想循环画同心圆,做个雷达效果。
...全文
228 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bdmh 2009-12-28

var
i:Integer;
rect:TRect;
begin
Self.Canvas.Pen.Style := psSolid;
Self.Canvas.Pen.Color := clRed;
rect.Left := 100;
rect.Right := 500;
rect.Bottom := 500;
rect.Top := 100;
for i := 0 to 3 do
begin
rect.Left := rect.Left + i*20;
rect.Right := rect.Right - i*20;
rect.Top := rect.Top + i*20;
rect.Bottom := rect.Bottom - i*20;
Self.Canvas.Ellipse(rect);
end;
end;
回复
mdejtod 2009-12-28
canvas.ellipse(rect : trect);
用一个循环,每次都改变rect的坐标和大小
回复
hjkto 2009-12-28
up
回复
lhy 2009-12-28
canvas.arc
回复
hsly110 2009-12-28
多谢楼上各位解答。按照你们的方法,搞定了!
回复
相关推荐
发帖
GAME,图形处理/多媒体
创建于2007-08-02

1166

社区成员

Delphi GAME,图形处理/多媒体
申请成为版主
帖子事件
创建了帖子
2009-12-28 01:17
社区公告
暂无公告