文档章节

Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 134
阅读 10
收藏 0

本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  PicItem: TPictureCollectionItem;

procedure TForm1.FormCreate(Sender: TObject);
const
  ImgPath1 = 'C:\Temp\DelphiX.bmp';
begin
  DXImageList1.DXDraw := DXDraw1;
  PicItem := TPictureCollectionItem(DXImageList1.Items.Add);
  PicItem.Picture.LoadFromFile(ImgPath1);

  TrackBar1.Max := 255;
  TrackBar1.Min := 0;
  TrackBar1.Height := 22;
  TrackBar1.ShowSelRange := False;
  TrackBar1.Align := alBottom;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  r: TRect;
begin
  r := Bounds((DXDraw1.Width - PicItem.Width) div 2,
              (DXDraw1.Height - PicItem.Height) div 2,
               PicItem.Width,
               PicItem.Height);

  DXDraw1.Surface.Fill(0);
  PicItem.DrawAlpha(DXDraw1.Surface, r, 0, TrackBar1.Position);
  DXDraw1.Flip;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/01/13/1375087.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
开源游戏框架(转至wiki)

免费和开源引擎,转载自维基 Agar - 一个高级图形应用程序框架,用于2D和3D游戏。 Allegro - 基于 C/C++ 的游戏引擎,支持图形,声音,输入,游戏时钟,浮点,压缩文件以及GUI。 Axiom 引擎 ...

Matrix4X4
2012/04/17
1K
0
DirectX 将会被命名为 DirectX 12

本周早些时候我们曾报道过,微软将会在GDC大会上宣布全新版本的DirectX。现在微软已经在DirectX的博客页面确认了下一代DirectX API的正式名称,延续之前的产品代号,DirectX将会被命名为Dir...

oschina
2014/03/06
5.1K
48
DirectX 12 将抛弃 Windows 7 这一天还是来了

据 Windows Central 报道,一位 AMD 代表近日宣称微软下一代 Windows 图形 API DirectX 12 将不支 持 Windows 7。虽然消息来的震撼,但也算在意料之中。微软此前曾宣布 DirectX 12 将于 2015...

oschina
2014/11/16
5.6K
40
Star Citizen 计划放弃 DirectX 并使用 Vulkan 图形 API

Cloud Imperium Games即将推出的太空模拟游戏Star Citizen将停止支持DirectX 11并切换到Vulkan API,同时也放弃了之前支持DirectX 12的计划。Cloud Imperium Games的图形工程总监Ali Brown在...

达尔文
2017/03/20
1K
4
DirectX停滞一年多 只因等待Windows 8?

毫无疑问,微软现在的首要目标是开发Windows 8,以致于直接或间接地影响了其它产品的进展,比如说DirectX。 DirectX SDK软件开发包和End-User Runtime终端用户运行时曾经坚持每两个月就更新一...

红薯
2011/08/01
1K
9

没有更多内容

加载失败,请刷新页面

加载更多

TypeScript基础入门之高级类型的字符串字面量类型

转发TypeScript基础入门之高级类型的字符串字面量类型 高级类型 字符串字面量类型 字符串字面量类型允许你指定字符串必须的固定值。 在实际应用中,字符串字面量类型可以与联合类型,类型保护...

durban
15分钟前
2
0
iOS权限授权添加

<!-- 相册 --> <key>NSPhotoLibraryUsageDescription</key> <string>App需要您的同意,才能访问相册</string> <!-- 相册写入 --> <key>NSPhotoLibraryAddUsageDescription</key> <string>App......

RainOrz
20分钟前
1
0
支配树(Dominator Tree)

MAT中的支配树 在使用MAT分析项目的内存泄漏问题时,其中有一个支配树(Dominator)视图。如果我们把Java对象之间的引用关系看做一张有向图(可以存在环)的话,对象的支配树体现了对象之间的...

akane_oimo
21分钟前
1
0
xshell官网下载及安装(免费版本)

百度搜索xshell,点击xshell官网下载链接,如图 然后点击下图的按钮 点击Latest Products,可以下载最新版本,选择要下载的版本,点击下载 选择上面红框里面的,并填写内容,submit之后会有邮...

曾大大胖
26分钟前
2
0
Android 调用系统分享文字、图片、文件,可直达微信、朋友圈、QQ、QQ空间、微博

兼容SDK 18以上的系统,直接调用系统分享功能,分享文本、图片、文件到第三方APP,如:微信、QQ、微博等 因为偷懒,可直达微信、朋友圈、QQ、QQ空间、微博的分享仅写了图片分享的,其他的文本...

她叫我小渝
28分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部