Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();
本例效果图:
代码文件:
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.Distort(DXPaintBox1.DIB,dtFast,DXPaintBox1.Width div 2,DXPaintBox1.Height div 2,90,6.5);DXPaintBox1.Repaint;
end;end.
Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();相关推荐
- 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(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 ...
- Delphi 与 DirectX 之 DelphiX(72): TDIB.SephiaEffect();
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...
最新文章
- Azure PowerShell (6) 设置单个Virtual Machine Endpoint
- mysql 1z0_MySQL 8 OCP(1Z0-908)认证考试题库原题（第10题）
- weka: exhaustive search
- python截图识别文字_用百度ocr+微信截图实现文字识别
- JavaScript数组方法终极指南-地图
- 网站后台输入密码错误
- el-tree多选获取选中的节点ID
- 5、最长回文子串（python）
- OpenCV图像模糊处理
- java贪吃蛇难度设计_Java贪吃蛇应用的设计与实现
- ElasticSearch介绍ES客户端IK分词器Kibana安装
- stm32硬件消抖_STM32 软件按键消抖
- cocos 层级渲染与管理
- psd文件图层不多却很大很卡
- 【web素材】11—15套免费网站后台管理模板
- JavaScript中会打印出undefined的情况汇总
- 史上最详细bitbucket入门手册，手把手操作指南
- excel熵值法计算权重_一文讲清楚分散投资（下）——让很多人顿悟的“熵增定律”在投资中的应用...
- 【FFT-类字符串匹配】LOJ6388 [THUPC2018]赛艇 / Citing
- yii2.0域名目录绑定（二级域名）以及url美化 url伪静态 Apache ,Ngnix和 IIS