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

相关问题

• cad
• delphi
• newbmp
• 淡入淡出
• bmpheight
• bpasswordenabled
• bmpwidth
• 失效
• screensaver
• image1

• 帖主：bbsboyy
• tiger

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载