cvs := TCanvas.Create;
cvs.Handle := GetWindowDC(Panel1.Handle);
// cvs.Draw(0,0,bakImg);
hei:=0;
repeat
cvs.Draw(0,hei,TopLftImg);
wid:=TopLftImg.Width;
repeat
cvs.Draw(wid,hei,TopRigImg);
wid:=wid+TopRigImg.Width;
until wid>=width; inc(hei,TopLftImg.Height);
until hei>=Panel1.Height;
ReleaseDC(Panel1.Handle, cvs.Handle);
cvs.Free;程序一开始 就 执行 这个, 但 发现 图上 的图片 晃了一下就不见了。
cvs.Handle := GetWindowDC(Panel1.Handle);
// cvs.Draw(0,0,bakImg);
hei:=0;
repeat
cvs.Draw(0,hei,TopLftImg);
wid:=TopLftImg.Width;
repeat
cvs.Draw(wid,hei,TopRigImg);
wid:=wid+TopRigImg.Width;
until wid>=width; inc(hei,TopLftImg.Height);
until hei>=Panel1.Height;
ReleaseDC(Panel1.Handle, cvs.Handle);
cvs.Free;程序一开始 就 执行 这个, 但 发现 图上 的图片 晃了一下就不见了。
解决方案 »
- 窗体的ICO哪里没有搞对
- 关于“TList”的疑惑!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- d过程代码太长怎么永久不显示,就是点那个+号缩起代码了的效果
- 我想問一個關於調試的小問題, 我覺得這個調試技術很有用, 希望知道的不知道的都進來看一下, 多謝!!!
- 寻求控件:LvNeoUIPack,200分,GZ、UP有分
- 关于数据库程序运行时的问题
- 编码实现NTFS格式下删除文件的恢复(续一)
- MSCOMM控件问题
- 如何调用regsvr32.exe注册控件
- Spcomm控件的文件传输问题
- 求解这个函数的意思---------keybd_event(VK_TAB, 0, 0, 0);
- 关于公式计算的问题
当然也会有些问题,不过只要不要十分强调效率话,一般的机器都没有问题。记得使用DoubleBuffered模式。