登录
首页 » Delphi源码 » Delphi设计制作BMP图像的推拉动画效果

Delphi设计制作BMP图像的推拉动画效果

于 2022-02-03 发布 文件大小:1.57 MB
0 100
下载积分: 2 下载次数: 1

代码说明:

Delphi设计制作BMP图像的推拉动画效果,类似PPT幻灯片中的图像飞入效果,图片本应该在窗口上显示,但经过本代码的控制后,图像由底部向上部被推出来,其实就是由下到上的图片滑动效果,有兴趣的可下载源码参考主文件代码。   注:本程序好像只对BMP图像有效,其它格式如JPG/gif等图像暂且不支持该动画效果。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论


0 个回复

  • Delphi 垂直交错显示效果
    图片的垂直交错效果,Delphi 编写的图片垂直交错显示效果,之前就分享过这种效果,类似百叶窗的交替显示效果,可用于图片转场,不过本效果还有很多地方需要优化,当时是写给一本书,作为随书实例的,有兴趣的可参考,关于本功能的关键代码部分,请看以下代码:   newbmp:= TBitmap.Create;   newbmp.Width:=image1.Width;   newbmp.Height:=image1.Height;   bmpheight:=image1.Height;   bmpwidth:=image1.Width;   i:=0;   while i0 do    begin    newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));    newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));    j:=j-2;    Application.ProcessMessages;    end;    form1.Canvas.Draw(0,0,newbmp);    i:=i+2;   end;   newbmp.free;
    2023-04-12 21:35:03下载
    积分:1
  • Delphi IntToHex函数用法举例
    关于IntToHex,在Delphi中使用频率也是挺高的,不过像我这种菜鸟,对IntToHex的具体用法仍是不太熟悉,后来看了这个小程序,了解了一些,分享给大家,特别是以下代码会加深你对IntToHex函数的用法理解。   procedure TForm1.Button1Click(Sender: TObject);   var    S:integer;   begin    S:=2147483647;    showmessage(inttoHex(s,8));    showmessage(inttoHex(s,10));    showmessage(inttoHex(s,16));    showmessage(inttoHex(s,32));   end;
    2022-09-07 01:20:03下载
    积分:1
  • Delphi创建透明图像效果的窗体
    Delphi创建透明图像效果的窗体,这个示例实际是演示调用透明图片并显示的效果,用此制作成一个无边框且透明的窗口,制作时需要把此窗口设为Desktop型的。图片最好是BMP或PNG透明格式的,这样当图片显示时,会显示为一个无边框的透明窗口,没有图像的部分会显示窗口下层的内容,演示了一种制作透明窗口的方法。
    2022-02-25 21:57:42下载
    积分:1
  • Delphi 获得汉字区位
    Delphi 获得汉字区位码的源码,输入指定汉字,将得到这些汉字的区位码,关键代码请参考以下的源码:   procedure TForm1.Button1Click(Sender: TObject);   var    str:string;    hi,lo:integer;   begin    str:=trim(edit2.Text);    hi:=byte(str[1])-$a0;    lo:=byte(str[2])-$a0;    edit1.Text:=inttostr(hi)+inttostr(lo);   end;
    2022-02-21 00:07:08下载
    积分:1
  • Delphi 枚举线程示例
    枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
    2022-08-16 10:03:07下载
    积分:1
  • Delphi生成立体字效果
    Delphi生成立体字效果,在文字下面增加阴影效果,这个在PS软件中是一个常用的特效,用Delphi也可以实现这种原生效果,阴影大小和面积、角度在代码中可以设置,最终自定义的阴影效果如图所示,实现了一个不错的立体文字效果。
    2023-07-03 14:00:03下载
    积分:1
  • Delphi 打印图形(图片)
    Delphi 打印图形,把图片打印出来,通过这个例子,你可以学习到:    strect:Trect;//定义打印输出矩形框的大小    temhi,temwd:integer;   begin    if DIGPrint.execute then    begin    temhi:=imgpic.picture.height;    temwd:=imgpic.picture.width;    while (temhi = printer.pageheight div 2)and    //将图形放大到打印页面的1/2大小    (temwd = printer.pagewidth div 2) do    begin    temhi:=temhi+temhi;    temwd:=temwd+temwd;    end;    with strect do //定义图形在页面上的中心位置输出    begin    left := (printer.pagewidth -temwd) div 2;    top := (printer.pageheight-temhi) div 2;    right := left+temwd;    bottom := top+temhi;    end;    with printer do    begin    begindoc;    canvas.stretchdraw(strect,imgpic.picture.graphic);    enddoc;    end;    end;
    2022-10-24 23:35:04下载
    积分:1
  • Delphi 模拟制作Windows XP风格界面的下拉页
    Delphi 模拟制作Windows XP风格界面的下拉页,实际上就是XP资源管理器界面的右侧窗口,鼠标单击会向下展开,再次单击会重新合拢,像一个折叠展开的面板那样,这种形式的窗口在Windows中已经早有应用,这只是一个用Delphi代码仿写的效果,希望对大家的Delphi界面设计有所帮助。
    2022-07-24 03:34:24下载
    积分:1
  • 一个包括了下拉菜单的Delphi窗口设计范例程序
    一个包括了菜单的Delphi窗口设计范例程序,以一个销售管理系统的主窗口界面设计为例,演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素,比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握,在很多的Delphi应用程序中,都会有此需求,欢迎下载源码。
    2022-12-24 17:00:02下载
    积分:1
  • 一个相当不错的Delphi TreeView树控菜单
    一个Delphi编写的相当不错的TreeView树控菜单,类似于Windows资源管理器中的树状菜单。   ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口   Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表   HasExpanded: Boolean; // 节点是否展开   通过这个树形菜单制作实例,你可以学习到几个对项目标识符进行操作的函数,同时还有将二进制表示的项目标识符列表转换成有可识的项目名,获得每个文件夹在系统中的图标,获得系统的图标列表,生成文件夹管理树等。
    2022-02-01 01:44:12下载
    积分:1
  • 696518资源总数
  • 104441会员总数
  • 19今日下载