iamdream
24920
|
2006/7/14 15:47:06 |
mbahamut的方法的确简单,不过如果出现滚动条,则点滚动条时效果就不好了。 |
mbahamut
24649
|
2006/6/29 12:54:39 |
不用这么复杂...这五行足够解决问题: procedure TForm1.FormCreate(Sender: TObject); begin Brush.Bitmap := TBitmap.Create; Brush.Bitmap.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Back.bmp'); Brush.Bitmap.FreeImage; end;
procedure TForm1.FormDestroy(Sender: TObject); begin Brush.Bitmap.Free; Brush.Bitmap := nil; end; |
goodpb
24642
|
2006/6/29 8:45:27 |
好象可以直接放TIMAGE组件的吧 |
kinneng
24639
|
2006/6/28 23:47:41 |
bitblt 是Windows系统一个绘图函数,即系统API |
chl_csdn
24636
|
2006/6/28 23:14:12 |
"当然里面只是使用了 Form 的 Canvas 来绘图,如果使用 BitBlt 可能更快,但是在这里应该察觉不出来,大家可以尝试使用 BitBlt 和 StretchBlt 来改写。"
什么是bitblt啊?delphi6中我找不到的,可以详细解释一下吗? |