社区
Delphi
帖子详情
Delphi paintbox.canvas所画的图形拖到屏幕外面,再拖回来看图像就被清除了,怎么处理保证图像一直存在
虎口脱险_睡在上铺的兄弟
2017-01-22 05:49:34
如图,图像都被擦除了一半了,onpaint事件可以,但是图像一直在闪,不好,且我会根据设置需要变换不同的图像,在onpaint事件里面做变化图像特麻烦。有没有什么方法属性,或者其他画图方法。
...全文
500
5
打赏
收藏
Delphi paintbox.canvas所画的图形拖到屏幕外面,再拖回来看图像就被清除了,怎么处理保证图像一直存在
如图,图像都被擦除了一半了,onpaint事件可以,但是图像一直在闪,不好,且我会根据设置需要变换不同的图像,在onpaint事件里面做变化图像特麻烦。有没有什么方法属性,或者其他画图方法。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
虎口脱险_睡在上铺的兄弟
2017-01-24
打赏
举报
回复
解决问题了,我现在用image.canvas来画的,image.picture.bitmap.width可以设置很大,所以满足现在的需求了。至于二缓冲也是个好办法,只是我没需要每时每刻都刷新图片,要是做动态画面变化的话可以试试的,谢谢各位帮助
santiaodahan
2017-01-23
打赏
举报
回复
画在Image组件上可以保持持久性。用PaintBox就应该在OnPaint中重绘,这没有问题。重绘闪烁可以用双缓冲的方式,比如先画在一个bitmap上,然后PaintBox1.Canvas.Draw(0,0, bitmap);
蓝色光芒
2017-01-23
打赏
举报
回复
Form的OnCreate方法上,加上 procedure TForm1.FormCreate(Sender: TObject); begin Self.DoubleBuffered := True; end; 这样就不会太闪烁,如果刷新相当快,用Canvas是明显不行的了,那要用DirectDraw了
lyhoo163
2017-01-23
打赏
举报
回复
建议使用二缓冲,一个显示,一个临时存贮。这样,可以快速重绘和复制。
虎口脱险_睡在上铺的兄弟
2017-01-23
打赏
举报
回复
用Image来画确实可行,但是另外一个问题来了,我在另外一个程序用image.canvas画图,软件全屏后image已经设置为alltop了,但是image.width不会变到最大,我验证了image.width的最大值只有755那么大,设置超过也会自动默认755。这怎么办哦
delphi
7新鲜出炉就一个pas的 二维码qrcode for d7 无需dpk无需dll
专用
delphi
7,1个pas的 二维码qrcode for d7 无需dpk无需dll 解释一下:dx10有个zxing,改成可以d7使用的pas ,引用一个pas即可用。 附赠调用例子,包括生成二维码和保存成图片的函数,物超所值。 procedure TForm4.
Paint
Box
1
Paint
(Sender: TObject); var Scale: Double; begin
Paint
Box
1.
Canvas
.Brush.Color := clWhite;
Paint
Box
1.
Canvas
.FillRect(Rect(0, 0,
Paint
Box
1.Width,
Paint
Box
1.Height)); if ((QRCodeBitmap.Width > 0) and (QRCodeBitmap.Height > 0)) then begin if (
Paint
Box
1.Width <
Paint
Box
1.Height) then begin Scale :=
Paint
Box
1.Width / QRCodeBitmap.Width
shizhong.rar_
Paint
Box
_
delphi
paint
box
一个时钟的小程序,可以学习
delphi
中
paint
Box
的使用方法,提高
delphi
学习乐趣!
Paint
Box
for
delphi
7
基于
paint
box
,绘制曲线、矩形、圆形、划线颜色、填充、添加注释等功能
Paint
Box
代码设计
Paint
Box
项目允许用户使用不同形状和颜色绘制各种
图形
,一个被绘制的独立形状都是相应类的一个实例,在绘图按钮中,应注意椭圆类和矩形类都是由一个外接矩形定义,所以需要存储外接矩形的左上角坐标及其宽度和高度等。
paint
Box
NULL 博文链接:https://jiang-dlut.iteye.com/blog/814562
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章