在Form上显示图象(100分)

X

xgd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #1

不用Timage显示图象的控件,在纯form上显示各类型图象.(bmp,Jpg,..),当Form改变大小时,
图象能自适应.当Form 重画时,不能看到图象重画的情景,(刷新快),另外对系统资源的占用要
尽可能的小.请高手指点,将不胜感激!

 

4

4.13

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #2

bitmap.loadfromfile()

procedure onpaint;
begin
...
form.canvas.draw(...,bitmap);
end;

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #3

1. 图象格式全部转成TBitmap.
2.
TxxxxForm = class(TForm)
private
......
FBkgnd: TBitmap;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
........


procedure TxxxxForm.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
StretchBlt(Message.DC, 0, 0, ClientWidth, ClientHeight, FBkgnd.Canvas.Handle,
0, 0, FBkgnd.Width, FBkgnd.Height, SRCCOPY);
Message.Result := 1;
end;

 

P

pyh_jerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #4

学习学习。

 

X

xgd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #5

Another_eYes:
谢谢!,你说是给Form添加一个Bkgnd属性,那怎样继承TForm,做出新的TFrom控件!
另外,那么多图形格式都转化成BMP,有一个简单方法吗?

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #6

1. 你在Delphi中打开一个新Form就是在继承TForm呀, 直接在你Form相关的pas文件
里加上上面的代码就可以了.
2. .bmp, .jpg简单, Delphi有相关类支持(TBitmap和TJPegImage). Gif, Tiff, ico........就
复杂了, 需要用第三方的类或者你自己写.
转换最简单的就是用TBitmap.Assign了, 一般其他图象类(包括第三方的)都支持.

 

X

xgd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #7

接受答案了.