文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 134
阅读 10
收藏 0
点赞 0
评论 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
推荐Pascal-Delphi、软件工程;数据库开发 一些编程书

HTF 阅读器下载 IT技术 注意:下面的RAR文件名是网页链接,不RAR源文档,如果弹出下载软件,请单击右键打开新页面再下载。 Pascal-Delphi更新日期:2009-12-514:45:59 总数:12 订阅RSS 《D...

jfyes
2009/12/05
0
0
DirectX 12 将会带来非凡的性能提升

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

oschina
2014/12/16
5.2K
15
Google Android 将支持 Vulkan

在 ACM SIGGRAPH '15图形大会上, Khronos Group 宣布发布 OpenGL ES 3.2 规格、新的 OpenGL 桌面扩展,更新 OpenCL 2.0 规格、确认 Google 的 Android 移动系统将支持 Vulkan,而备受期待的...

oschina
2015/08/12
5.7K
22
Unreal Engine 4.9 发布,改进移动设备支持

Unreal Engine 4.9 发布,此版本包括几百个 Unreal Engine 4 更新,129 个改进提交。 此版本主要改进了对移动设备的支持,尝试性支持 DirectX 12。 主要改进: Enhanced Support for Mobile ...

oschina
2015/09/01
2.5K
6
深度启动盘制作工具对外公测

深度启动盘制作工具(Deepin Boot Maker)用于来帮助用户简单便捷的制作Deepin启动U盘。设计上只支持深度系统镜像,但对Ubuntu Live系列镜像都能支持。 现在,深度启动盘制作工具现正式对外公...

cxbii
2014/06/11
9K
46

没有更多内容

加载失败,请刷新页面

加载更多

下一页

什么是Base64

一、什么是Base64? 百度百科中对Base64有一个很好的解释:“Base64是网络上最常见的用于传输8Bit字节码的编码方式之一,Base64就是一种基于64个可打印字符来表示二进制数据的方法”。 什么是...

Jack088
7分钟前
0
0
SQL多表联查leftjoin左边加表单

SELECT IFNULL(u.USER_ACCOUNT, o.USER_ACCOUNT) u.USER_ACCOUNT, o.* FROM gh_orders o LEFT JOIN gh_user u ON o.PARENT_ID = u.ROW_ID 1.假如u.USER_ACCOUNT不空返回u.USER_ACCOUNT,否则返......

森火
11分钟前
0
0
expect脚本同步文件、expect脚本指定host和要同步的文件、构建文件分发系统

expect脚本同步文件 更改权限 执行脚本 查看执行结果 expect eof需要加上,作用是等脚本命令执行完再进行退出 expect脚本指定host和要同步的文件 更改权限,执行脚本 构建文件分发系统 需求背...

Zhouliang6
49分钟前
1
0
Hive应用:外部分区表

Hive应用:外部分区表 介绍 Hive可以创建外部分区表。创建表的时候,分区要在建表语句中体现。建完之后,你不会在表中看到数据,需要进行分区添加,使用alter语句进行添加。然后数据才会显示...

星汉
59分钟前
3
0
点击Enter登录

1. 效果 2. 实现过程(记得引入jq文件) //6.回车事件 登录 $(function() { document.onkeydown = function(event) { var e = event || window.event || arguments.callee.caller.arguments......

Lucky_Me
今天
1
0
点击菜单内容切换

<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Title</title> <style> .menu{ height: 38px; background-color: #eeeeee; line-height: 38px; } .mao{ ......

南桥北木
今天
1
0
OSChina 周六乱弹 —— 妹子和游戏哪个更好玩

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @andonny :分享唐朝乐队的单曲《国际歌》 《国际歌》- 唐朝乐队 手机党少年们想听歌,请使劲儿戳(这里) @举个栗子- :日常祈雨 邪恶的大祭...

小小编辑
今天
613
8
流利阅读笔记32-20180721待学习

“人工智能”造假:只有人工,没有智能 Lala 2018-07-21 1.今日导读 当今社会,擅长单个方面的人工智能已经盛行,手机借助 AI 智慧防抖技术帮助大家拍出清晰照片,谷歌研发的 AI 助手将可以帮...

aibinxiao
今天
10
0
我的成长记录(一)

今天突然精神抖擞,在我的博客下新开一项分类>成长记录,专门记录每隔一段时间我的一点感悟吧。因为今天才专门花时间新开这样一个分类,所以以前有过的一些感悟没有记录下来,现在已经想不起...

dtqq
今天
1
0
机器学习管理平台 MLFlow

最近工作很忙,博客一直都没有更新。抽时间给大家介绍一下Databrick开源的机器学习管理平台-MLFlow。 谈起Databrick,相信即使是不熟悉机器学习和大数据的工程湿们也都有所了解,它由Spark的...

naughty
今天
19
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部