文档章节

Delphi 与 DirectX 之 DelphiX(88): TDIB.DrawQuickAlpha();

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 572
阅读 14
收藏 0
点赞 0
评论 0

本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DIB, StdCtrls;

type
  TForm1 = class(TForm)
    DXPaintBox1: TDXPaintBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  dib: TDIB;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dib := TDIB.Create;
  dib.SetSize(DXPaintBox1.Width, DXPaintBox1.Height, 24);
  dib.Fill(0);
  dib.Canvas.Brush.Style := bsClear;
  dib.Canvas.Font.Color := clRed;
  dib.Canvas.Font.Name := 'Tahoma';
  dib.Canvas.Font.Size := 32;
  dib.Canvas.Font.Style := [fsBold];
  dib.Canvas.TextOut(10, 10, 'DelphiX');
  Self.Color := clWhite;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  dib.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Assign(dib);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack, fmNormal);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack, fmMix75);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack, fmMix50);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack, fmMix25);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed, fmNormal);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed, fmMix75);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed, fmMix50);
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Fill(Self.Color);
  DXPaintBox1.DIB.DrawQuickAlpha(dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed, fmMix25);
  DXPaintBox1.Repaint;
end;

end.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 224
  ClientWidth = 208
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object DXPaintBox1: TDXPaintBox
    Left = 8
    Top = 8
    Width = 193
    Height = 73
    AutoStretch = False
    Center = False
    KeepAspect = False
    Stretch = False
    ViewWidth = 0
    ViewHeight = 0
  end
  object Button1: TButton
    Left = 8
    Top = 92
    Width = 67
    Height = 125
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 81
    Top = 92
    Width = 58
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 145
    Top = 92
    Width = 57
    Height = 25
    Caption = 'Button3'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 81
    Top = 123
    Width = 58
    Height = 25
    Caption = 'Button4'
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 145
    Top = 123
    Width = 57
    Height = 25
    Caption = 'Button5'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 81
    Top = 161
    Width = 58
    Height = 25
    Caption = 'Button6'
    TabOrder = 5
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 145
    Top = 161
    Width = 57
    Height = 25
    Caption = 'Button7'
    TabOrder = 6
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 81
    Top = 192
    Width = 58
    Height = 25
    Caption = 'Button8'
    TabOrder = 7
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 145
    Top = 192
    Width = 57
    Height = 25
    Caption = 'Button9'
    TabOrder = 8
    OnClick = Button9Click
  end
end

 
 
 
 
 

 

 

  

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

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

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

Matrix4X4 ⋅ 2012/04/17 ⋅ 0

delphi7 打开project/options 出错

出错提示: Access violation at address 0012F88F. Write of address 0012F88F. 然后又提示一条: Access violation at address 0012F9DB. Write of address 0012F9DB. 操作系统windows2003......

MartinKing ⋅ 2015/12/18 ⋅ 0

C++游戏开发

来自CSDN 相信有很多和我一样摸索着编游戏的自学者,自学是辛苦的,一没明确的引导,二没正确的工具,我就谈一下自己的经验,也许可以让你少走一点弯路。3D的先不谈,2D作为基础还是有必要研...

xiahuawuyu ⋅ 2012/04/17 ⋅ 0

如何用 Delphi 创建系统服务程序?

如何用 Delphi 创建系统服务程序? Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处: (1)不用登陆进系统即可运行. (2)具有SYSTEM特权.所以你在进程管理...

vga ⋅ 2014/04/26 ⋅ 0

漫谈 C# 在游戏领域的应用

原文出处:慕容小匹夫 0x00 前言 随着微软越来越开放,C#也变得越来越吸引人们的眼球。而在游戏行业中,C#也开始慢慢地获得了关注。这不, 网易绝代双娇手游团队已经全面使用.Net Core支持前...

慕容小匹夫 ⋅ 2016/06/28 ⋅ 0

2012年5月编程语言排行榜 - Java 持续下挫

Java 自从上个月丢掉第一个的宝座以后,这个月的的走势依然下挫。在过去8年中,前10名的编程语言几乎没有变化,只是 Objective-C 把 Delphi 给挤了出去。人们对新语言的接受程度进展缓慢,这...

oschina ⋅ 2012/05/09 ⋅ 56

典型开源3D引擎分类比较

常见的3D引擎有:Unreal、Quake、Lithtech、OGRE、Nebula、Irrlicht、Truevision3D... 其中开源免费的有:OGRE、irrlicht、fly3d、NeoEngine、revolution3d、 Nebula2、Genesis3d等。 OGRE 在...

长平狐 ⋅ 2013/01/06 ⋅ 0

DirectX 将会被命名为 DirectX 12

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

oschina ⋅ 2014/03/06 ⋅ 48

【Visual C++】游戏开发笔记十九 DirectX与OpenGL的博弈

本系列文章由zhmxy555(毛星云)编写,转载请注明出处。 http://blog.csdn.net/zhmxy555/article/details/7522960 作者:毛星云 邮箱: happylifemxy@qq.com 欢迎邮件交流编程心得 作为游戏开...

长平狐 ⋅ 2012/11/12 ⋅ 0

【Visual C++】游戏开发笔记三十二 浅墨DirectX提高班之一 DirectX大局观认知篇

本系列文章由zhmxy555(毛星云)编写,转载请注明出处。 文章链接: http://blog.csdn.net/zhmxy555/article/details/8172615 作者:毛星云(浅墨) 邮箱: happylifemxy@163.com 这篇文章作...

长平狐 ⋅ 2012/11/12 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

大数据工程师需要精通算法吗,要达到一个什么程度呢?

机器学习是人工智能的一个重要分支,而机器学习下最重要的就是算法,本文讲述归纳了入门级的几个机器学习算法,加大数据学习群:716581014一起加入AI技术大本营。 1、监督学习算法 这个算法由...

董黎明 ⋅ 34分钟前 ⋅ 0

Kylin 对维度表的的要求

1.要具有数据一致性,主键值必须是唯一的;Kylin 会进行检查,如果有两行的主键值相同则会报错。 2.维度表越小越好,因为 Kylin 会将维度表加载到内存中供查询;过大的表不适合作为维度表,默...

无精疯 ⋅ 37分钟前 ⋅ 0

58到家数据库30条军规解读

军规适用场景:并发量大、数据量大的互联网业务 军规:介绍内容 解读:讲解原因,解读比军规更重要 一、基础规范 (1)必须使用InnoDB存储引擎 解读:支持事务、行级锁、并发性能更好、CPU及...

kim_o ⋅ 40分钟前 ⋅ 0

代码注释中顺序更改 文件读写换行

`package ssh; import com.xxx.common.log.LogFactory; import com.xxx.common.log.LoggerUtil; import org.apache.commons.lang3.StringUtils; import java.io.*; public class DirErgodic ......

林伟琨 ⋅ 48分钟前 ⋅ 0

linux实用操作命令

参考 http://blog.csdn.net/qwe6112071/article/details/50806734 ls [选项] [目录名 | 列出相关目录下的所有目录和文件 -a 列出包括.a开头的隐藏文件的所有文件-A 同-a,但不列出"."和"...

简心 ⋅ 今天 ⋅ 0

preg_match处理中文符号 url编码方法

之前想过直接用符号来替换,但失败了,或者用其他方式,但有有些复杂,这个是一个新的思路,亲测可用 <?php$str='637朗逸·超速新风王(300)(白光)'; $str=iconv("UTF-8","GBK",$s...

大灰狼wow ⋅ 今天 ⋅ 0

DevOps 资讯 | PostgreSQL 的时代到来了吗 ?

PostgreSQL是对象-关系型数据库,BSD 许可证。拼读为"post-gress-Q-L"。 作者: Tony Baer 原文: Has the time finally come for PostgreSQL?(有删节) 近30年来 PostgreSQL 无疑是您从未听...

RiboseYim ⋅ 今天 ⋅ 0

github太慢

1:用浏览器访问 IPAddress.com or http://tool.chinaz.com 使用 IP Lookup 工具获得github.com和github.global.ssl.fastly.net域名的ip地址 2:/etc/hosts文件中添加如下格式(IP最好自己查一...

whoisliang ⋅ 今天 ⋅ 0

非阻塞同步之 CAS

为解决线程安全问题,互斥同步相当于以时间换空间。多线程情况下,只有一个线程可以访问同步代码。这种同步也叫阻塞同步(Blocking Synchronization). 这种同步属于一种悲观并发策略。认为只...

长安一梦 ⋅ 今天 ⋅ 0

云计算的选择悖论如何对待?

人们都希望在工作和生活中有所选择。但心理学家的调查研究表明,在多种选项中进行选择并不一定会使人们更快乐,甚至不会产生更好的决策。心理学家Barry Schwartz称之为“选择悖论”。云计算为...

linux-tao ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部