使用DelphiX显示图片并把图片作为背景

本代码是给予DelphiX的，各位朋友可以去www.2ccc.com上下载

步骤：

（1）在新建立的工程的主窗体上放置以下空间：DXImageList， DXDraw, DXSpriteEngine, DXTimer

（2）设置要显示的图片：DXImageList -> Items -> 新建一个 TPictureCollectionItem 命名为 BackGroundPicture -> 选择该项的 Picture 属性 -> 选择图片(BMP格式的)；

以下是代码：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DXClass, DXDraws, DXInput, DXSprite, ExtCtrls;

type
TForm1 = class(TDXForm)
    pnlPlan: TPanel;
    DXDraw1: TDXDraw;
    DXSpriteEngine1: TDXSpriteEngine;
    DXTimer1: TDXTimer;
    DXImageList1: TDXImageList;
    procedure DXDraw1Initialize(Sender: TObject);
    procedure DXDraw1Finalize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
private
    { Private declarations }
    procedure DrawBackGroundPicture;
public
    { Public declarations }
    BackGroundSprite: TBackGroundSprite; {游戏的背景图}
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DXDraw1Initialize(Sender: TObject);
begin
DXTimer1.Enabled := True;
end;

procedure TForm1.DXDraw1Finalize(Sender: TObject);
begin
DXTimer1.Enabled := False;
end;

procedure TForm1.DrawBackGroundPicture;
begin
DXImageList1.Items.MakeColorTable;
//更新系统调色板
DXDraw1.ColorTable := DXImageList1.Items.ColorTable;
DXDraw1.DefColorTable := DXImageList1.Items.ColorTable;
DXDraw1.UpdatePalette;
//设置要显示的并要作为背景的图片
BackGroundSprite := TBackGroundSprite.Create(DXSpriteEngine1.Engine);
with TBackGroundSprite(BackGroundSprite) do
begin
    SetMapSize(1, 1);
    Image := DXImageList1.Items.Find('BackGroundPicture');
    //图片层次
    Z := -2;
    //平铺
    Tile := True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DrawBackGroundPicture;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
if not DXDraw1.CanDraw then exit;
//以下为绘制背景图片
LagCount := 1000 div 60;
DXSpriteEngine1.Move(LagCount);
DXSpriteEngine1.Dead;
DXDraw1.Surface.Fill(0);
DXSpriteEngine1.Draw;
DXDraw1.Flip;
end;

end.

使用DelphiX显示图片并把图片作为背景相关推荐

fastreport打印指定路径图片显示不出来_报表工具中图片文件怎么展示---本地图片--网络图片--数据库图片...
用于报表展示的图片来源有多种,如:数据库的图片字段.服务器本地图片.网络图片等,因此,报表工具也针对多种图片来源提供了多种多样的处理方式. 下面从不同的图片来源角度,举例介绍报表工具如何设置呈现. 图 ...
Flask显示图片并设置图片的缓存时间
1.显示图片想要Flask在网页中显示图片,需要使用template 模板,例如 index.py from flask import Flask, render_template, url_for ...
如何在python中显示电脑中的图片-python如何实现多个图片显示在屏幕上？
pygame的三个方法(屏幕上显示需要的图片) yuhu102319582018-12-16 python将多幅图片显示在一张图片上 wugui1111116282018-06-15 iOS 图片显示 ...
如何显示服务器上的图片,显示服务器上的图片怎么写
显示服务器上的图片怎么写内容精选换一换内容审核服务输入图片参数"Image"是图片的base64编码,本节介绍利用谷歌浏览器进行图片格式转换,获取图片的base64编码信息. ...
access找不到输入表或者dual_在Access窗体中显示指定路径的图片
↑↑↑点击上方图片,了解详情在Access中,如果把图形对象以OLE格式的字段保存,那么在窗体中可以直接显示出图片来.但是这样做有以下不足: 一.需要将图片逐一插入到表中,工作量太大. 二.使数据库 ...
用CImage类来显示PNG JPG等图片
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 系统环境 ...
前端：JS/29/实例:控制div显示_滚动的图片
实例:控制div显示_滚动的图片 <!DOCTYPE html> <html lang="en"><head><meta charset= ...
怎样在CSDN的博客里面显示上传的图片，教你一招
有些时候,博客里面用的图片,这肯定是很正常的,CSDN也给我们提供了图片上传的功能,并且也能够将图片上传上去,并且提供了一个很好的图片及文件管理工具,心想这下可以给我的博客装装衣衣服了,因为博客里面总 ...
html点击文字展开图片,DIV CSS鼠标经过悬停在图片上时图片上方显示文字
DIV CSS鼠标悬停在没有文字内容图片上时图片上方显示文字,完全是纯css div实现.CSS实现鼠标悬停放图片上方时显示美化内容. 原始图片显示没有文字在上方,当鼠标经过悬停时显示文字并且文字背景 ...
vue通过链接显示服务器上的图片_图片网站该如何做SEO优化？详细讲解图片优化技巧...
通常,在网站搜索引擎优化的过程中,很多站长和SEOer经常忽略图片的优化,但事实上,每个网站都有很多图片,所以优化网站图片就像优化其他内容一样,成为搜索引擎优化的一个重要工作内容. 如果你能成功地优化 ...

使用DelphiX显示图片并把图片作为背景

使用DelphiX显示图片并把图片作为背景相关推荐

最新文章

热门文章