Delphi 与 DirectX 之 DelphiX(60): TDIB.DoTrace();
本例效果图:
代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class(TForm)DXPaintBox1: TDXPaintBox;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); constImgPath1 = 'C:\Temp\DX.jpg'; beginDXPaintBox1.DIB.LoadFromFile(ImgPath1);DXPaintBox1.Width := DXPaintBox1.DIB.Width;DXPaintBox1.Height := DXPaintBox1.DIB.Height;DXPaintBox1.Repaint; end;procedure TForm1.Button2Click(Sender: TObject); beginDXPaintBox1.DIB.DoTrace(1);DXPaintBox1.Repaint; end;end.
转载于:https://www.cnblogs.com/del/archive/2009/01/16/1377325.html
Delphi 与 DirectX 之 DelphiX(60): TDIB.DoTrace();相关推荐
- Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();
DelphiX 的组件面板上, 第二个就是 TDXDIB; TDXDIB.DIB 是 TDXDIB 的唯一属性(其他是 TComponent 固有的); TDXDIB.DIB 属性是一个 TDIB 对 ...
- Delphi 与 DirectX 之 DelphiX(89): TDIB.DrawAlphaMask();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(95): TDIB.x
//让 TDIB 的这些特效烦透了: 多.还重复.又不完善; 还没有测试或测试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height ...
- Delphi 与 DirectX 之 DelphiX(33): TDIB.SmoothRotateWrap();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(83): TDIB.FilterLine()、FilterRect();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(52): TDIB.DoSaturation();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
- Delphi 与 DirectX 之 DelphiX(35): TDIB.Saturation();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
最新文章
- CCNP-第五篇-OSPF高级版(二)
- python 财务分析-linux 复制移动命令详解
- OpenGL 的渲染流水线
- 是指能够被程序员看到的计算机系统的属性,计算机组成原理复习范围详细.doc...
- 微信小程序使用默认字体
- 李宏毅自然语言处理——多语言BERT
- Python 基础测试题(含答案)
- 2370. 最长理想子序列(每日一难phase2--day6)
- c 易语言dll 循环,易语言的Dll命令及程序集知识点
- 射手播放器的 clientkey
- 时间管理Smart法则,一个在高盛工作的学姐总结的12个时间管理妙招
- 树莓派linux led字符设备驱动(互斥)
- Redis 哨兵安装-Centos
- 服务器怎么安装debian系统,图解Debian10Linux系统的安装步骤
- 计算机桌面壁纸小,电脑的桌面壁纸大小怎么设置
- CountDownLatch和WaitGroup
- socket 是用什么网络协议
- 网易传媒计算机视觉算法实习生面试总结
- Cardinality_estimate
- 选择困难症患者的福音!PaddleHub帮你任意搭配你想要的颜色!
热门文章
- Spring ActiveMQ示例(第2部分)
- 小程序nginx做反向代理_NGINX作为节点或Angular应用程序的反向代理
- C# Word控件 dsoframer、office viewer、pageoffice、setparent
- 使用zk可以实现Master选举,实现原理是什么?
- 2018年EMUI系统能力分论坛来啦
- “第八期央企CIO论坛”成功举办
- 客户端存储——Storage
- 《信息存储与管理(第二版):数字信息的存储、管理和保护》—— 2.6 磁盘驱动部件...
- eclipse中配置文件设置字符集
- iOS开发 - OC - 苹果为大家提供的后台:CloudKit 的简单使用