背景设计(0分)

  • 主题发起人 主题发起人 liguigao
  • 开始时间 开始时间
L

liguigao

Unregistered / Unconfirmed
GUEST, unregistred user!
在开发的一个小型管理系统中,为美化界面,在主form的oncreate event中
增加了如下代码:
form1.brush.bitmap:=image1.picture.bitmap:
当然用其他方式都可以,就是为form设置背景图片,但设计的图片文件是800*600象素,
一般在1M左右,太大,谁能告诉我究竟如何设置使图片文件最小,且很清晰,
具体的更好的设计方法代码怎么写?



 
应该在 OnPaint事件中实现
procedure TForm1.FormPaint(Sender: TObject);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.LoadFromFile('c:/10.bmp');
Canvas.Draw(0,0,Bmp);
Canvas.Refresh;
Bmp.Free;
end;
 
???
为什么不用 JPG 呢,
为什么不直接用 TImage 呢
 
这样图片文件一般为*.bmp,
但该文件大小仍然是问题,你的意思是重绘以后立即从内存中清除,
是这样吗?
若是,文件大小问题可以不考虑吗?

 
jpg文件一般分辨率不高,而且好象多数没有使用的,
 
使用Jpg會好些,一般情況下視覺沒有什麽變化。
 
后退
顶部