image1.Canvas.Pen.Width := 10 不起作用的原因? 这样写的: image1.Canvas.Pen.Width := 10; image1.Canvas.Pen.mode:=pmnot; //笔的模式为取反 image1.Canvas.DrawFocusRect(rect( ydx,ydy,htdx,htdy) );width 无论写多少都没变化,什么原因 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不要用drawfocusrect用self.Image1.Canvas.Rectangle(10,10,50,50); Rectangle画的是实心的矩形,是不是drawfocusrect就不支持笔的宽度设定? 是你可以通过修改brush的style使矩形变为空心的 self.Image1.Canvas.Brush.Color:=clBlue; self.Image1.Canvas.Brush.Style:=bsClear; self.Image1.Canvas.Pen.Width:=10; self.Image1.Canvas.MoveTo(20,20); self.Image1.Canvas.LineTo(60,60); self.Image1.Canvas.Rectangle(10,10,50,50); 句柄 ? 数据查询问题 怎样用QTplugin.ocx播放mov文件? 使用 ADOquery 添加数据的错误! 简单问题,请帮手,在线等… 求的delphi中指针方面的资料,谢谢帮助! 在websnap技术中,当我想按下“保存”按纽时如何跳出一个象showmessage()这样的对话框,询问“是”,“否”,或者检查出哪些不符合数据规 关于form的问题 扩展名为DAT的是什么文件,用什么软件打开? 怎样通过brush属性改变wincontrol控件的背景? 循环出了个小错误。眼力好的哥们 麻烦进来看看哈 如何用delphi控制数码相机拍照
用self.Image1.Canvas.Rectangle(10,10,50,50);
你可以通过修改brush的style使矩形变为空心的 self.Image1.Canvas.Brush.Color:=clBlue;
self.Image1.Canvas.Brush.Style:=bsClear;
self.Image1.Canvas.Pen.Width:=10;
self.Image1.Canvas.MoveTo(20,20);
self.Image1.Canvas.LineTo(60,60);
self.Image1.Canvas.Rectangle(10,10,50,50);