文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 134
阅读 11
收藏 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
深圳
程序员
私信 提问
DirectX 将会被命名为 DirectX 12

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

oschina
2014/03/06
5.1K
48
开源游戏框架(转至wiki)

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

Matrix4X4
2012/04/17
1K
0
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
2.2K
4
DirectX 12 将会带来非凡的性能提升

Stardock公司的CEO Bard Wardell通过他的官方博客透露了一些微软即将到来的图形API DirectX 12的一些消息,根据他的说法,DX12将会非常特别,因为它能够把进程分配给多个核心,在提高效率同时...

oschina
2014/12/16
5.3K
15

没有更多内容

加载失败,请刷新页面

加载更多

解析JQuery中each方法的使用

each() 方法规定为每个匹配元素规定运行的函数。写的十分的全面细致,具有一定的参考价值,对此有需要的朋友可以参考学习下。如有不足之处,欢迎批评指正。 概述: each() 方法规定为每个匹配...

前端攻城小牛
4分钟前
0
0
深入解析Vue开发动态刷新Echarts组件的教程

需求背景:dashboard作为目前企业中后台产品的“门面”,如何更加实时、高效、炫酷的对统计数据进行展示,是值得前端开发工程师和UI设计师共同思考的一个问题。今天就从0开始,封装一个动态渲...

peakedness丶
17分钟前
2
0
memcached

memcached 为了避免内存碎片化(传统的内存管理方式是,使用完通过malloc分配的内存后通过free来回收内存,这种方式容易产生内存碎片并降低操作系统对内存的管理效率),采用了 slab allocatio...

Cobbage
18分钟前
2
0
keepalived的介绍及配置高可用集群

12月19日任务 18.1 集群介绍 18.2 keepalived介绍 18.3/18.4/18.5 用keepalived配置高可用集群 集群介绍 根据功能划分为2类:高可用和负载均衡 高可用集群:通常为两台服务器,一台工作,另外...

robertt15
19分钟前
5
0
WiFi攻击的三种方式

导读 WiFi的安全问题已经引起了不少的使用者重视,甚至已经出现草木皆兵的现象。那么黑客到底是如何做到绕过身份验证来获取WiFi使用权的呢?主要有以下三种方式,其中最后一种方式十分简单。 ...

问题终结者
33分钟前
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部