delphi中如何对图象淡入淡出?
delphi中如何对24位图象淡入淡出?
想做一段动画,动画头和尾采用淡入淡出,是在DELPHI中做还是在
生成动画的软件中做?或二者均可?
谢谢
问题点数:50、回复次数:5Top
1 楼tiger(拽小猪)回复于 2000-01-28 14:39:00 得分 50
最好是在生成动画的软件中做.
在delphi中做也可以
用TCanvas.CopyRect就可以满足你的要求, 不过速度不一定保证
下面是某一种算法
procedure TForm1.Button2Click(Sender: TObject);
var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do
begin
Sleep(100);
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;
end;Top
2 楼bbsboyy()回复于 2000-01-28 16:35:00 得分 0
谢谢TIGER
那里有DELPHI做屏保的资料或代码?
Top
3 楼tiger(拽小猪)回复于 2000-01-28 16:55:00 得分 0
做一个类似ScreenSaver的程序,在ScreenSaver运行的时候, 如果有password保护,则CAD便失效. 因此我们骗过Windows,私下设定为ScreenSaver Running状态就可以啦!
具体来说,只需要使用下面的一个API调用就可以啦. SystemParametersInfo(97,bPasswordEnabled,nil,0); 这里:
bPasswordEnabled=1 则CAD失效;
bPasswordEnabled=0 则CAD有效.
同时,Alt-TAB也同时失效了。
Top
4 楼bbsboyy()回复于 2000-01-28 18:15:00 得分 0
又有新问题了,快去拿分Top
5 楼avsuper()回复于 2001-07-02 20:16:53 得分 0
屏幕保护的源程序: http://www.avsuper.comTop




