请问大家内存画图究竟是怎样画的,比如我想用内存画的图显示到image上面,怎么写啊,那位大哥能不能给点详细的代码,我现在主要是想解决闪屏问题,就是直接在一张图上画点,由于数量多屏幕闪得厉害,那位大哥帮帮忙
解决方案 »
- 请问如何在Delphi中挂上自己的菜单,再又如何在Delphi中按 Ctrl+U 等快捷键就能跳出自己做的程序
- VC语言改Delphi
- 求CX控件,在线等
- 为什么控件作为参数传到DLL中会报错呢???
- 如何把主明结构数据生成WORD文档.
- 怎样得到一个目录下所有的文件个数?并且遍历它?
- 要分何用?
- 向窗体发送消息 比如 Ctrl+s
- 在线等待,高分请教:Delphi 编程如何设置:IE 里的 "工具"==>>"Internet 选项..."==>>"设置(S)"
- 打印StringGrid的内容
- cs结构中,客户端如何使用线程查询?
- 用QuickReport打印报表,打印预览后,直接点打印,无反应,必须先点打印设置,然后点打印才开始打印
m_tmpBmp: TBitmap;
begin
m_tmpBmp:= TBitmap.Create; try
m_tmpBmp.Width := image1.Width;
m_tmpBmp.Height:= Image1.Height; //在这里画图吧
m_tmpBmp.Canvas.Font.Color:= clRed;
m_tmpBmp.Canvas.Pen.Color:= clRed;
m_tmpBmp.Canvas.Brush.Color:= clBlack;
m_tmpBmp.Canvas.Rectangle(0, 0, m_tmpBmp.Width, m_tmpBmp.height); //绘图完毕,将内存中的copy到显示bitmap上
Bitblt(Image1.Canvas.Handle, 0, 0, image1.Width, image1.Height,
m_tmpBmp.Canvas.Handle, 0, 0, SRCCOPY);
image1.Refresh; //刷新Image1显示,这句是必须的
finally
FreeAndNil(m_tmpBmp);
end;
end;
http://download.csdn.net/source/197437