paintbox画图

sunny906 2009-02-19 11:42:30
在button的单击事件里:
with paintbox1 do
begin
canvas.MoveTo(left+width,top);
canvas.LineTo(left+width,top+height);
canvas.MoveTo(left,top+height);
canvas.LineTo(left+width,top+height);
end;

运行单击button,在paintbox上并没有出现相应的图线
请大虾们帮忙看看为什么会这样
...全文
73 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
sanguomi 2009-02-20
  • 打赏
  • 举报
回复

begin
with Self.PaintBox1 do
begin
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;
canvas.MoveTo(width, 0);
canvas.LineTo(width, height);
canvas.MoveTo(0, height);
canvas.LineTo(width, height);
end;
end;

你的已经越界了
goodseraph 2009-02-20
  • 打赏
  • 举报
回复
设置笔宽能看到一点
Canvas.pen.width:=......
bdmh 2009-02-19
  • 打赏
  • 举报
回复
left+width已经超出了paintbox1 的画布范围,你得坐标取值有问题
willflyz 2009-02-19
  • 打赏
  • 举报
回复
因为你的坐标已经起出了PaintBox的范围了,画布最大也就在Width-1那里加上Left就超出了,改成如下即可

with paintbox1 do
begin
canvas.MoveTo(left,top);
canvas.LineTo(left,top+height);
canvas.MoveTo(left,top);
canvas.LineTo(left+width,top);
end;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧