Delphi 与 DirectX 之 DelphiX(63): TDIB.DoPosterize();
本例效果图:
代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class(TForm)DXPaintBox1: TDXPaintBox;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(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.DoPosterize(50);DXPaintBox1.Repaint;
end;procedure TForm1.Button3Click(Sender: TObject);
beginDXPaintBox1.DIB.DoPosterize(150);DXPaintBox1.Repaint;
end;procedure TForm1.Button4Click(Sender: TObject);
beginDXPaintBox1.DIB.DoPosterize(250);DXPaintBox1.Repaint;
end;end.
转载于:https://www.cnblogs.com/del/archive/2009/01/16/1377330.html
Delphi 与 DirectX 之 DelphiX(63): TDIB.DoPosterize();相关推荐
- 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 ...
- Delphi 与 DirectX 之 DelphiX(72): TDIB.SephiaEffect();
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...
最新文章
- .net multi-threads synchronization : Use Lock effective
- C语言实验——最小公倍数和最大公约数_JAVA
- Android开发之单例模式
- 多级菜单栏展开隐藏动画
- SpringBoot基础篇AOP之基本使用姿势小结
- 徽柏工业机器人_新松机器人股票（中国机器人公司排名是怎样的？）
- ViewPage最全解析
- 刷题总结——瞭望塔（bzoj1038）
- eclipse修改java热部署免重启tomcat在Host标签下增加Context直接将docBase指定为项目的WebContent路径
- ASP.NET:判断session是否合法示例
- high performance web sites 阅读小记
- Windows 查看端口使用情况
- 关于Big-Endian 和Little-Endian
- ls 列出文件、ll以长格式列出文件详细信息
- 计算机开机更新失败怎么办,windows update更新失败怎么办,详细教您windows update更新失败怎么办...
- windows使用备忘录
- 【科研数据处理】[基础]类别变量频数分析图表、数值变量分布图表与正态性检验（包含对数正态）
- 资讯类App主流框架（一）
- 快鲸科技邀您一起合作，共同发展
- python新式类和旧式类的区别_浅谈python新式类和旧式类区别