为什么80%的码农都做不了架构师？>>>   

本例效果图:


代码文件:

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.SephiaEffect(20);DXPaintBox1.Repaint;
end;end.

转载于:https://my.oschina.net/hermer/blog/319713

Delphi 与 DirectX 之 DelphiX(72): TDIB.SephiaEffect();相关推荐

  1. Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();

    DelphiX 的组件面板上, 第二个就是 TDXDIB; TDXDIB.DIB 是 TDXDIB 的唯一属性(其他是 TComponent 固有的); TDXDIB.DIB 属性是一个 TDIB 对 ...

  2. Delphi 与 DirectX 之 DelphiX(89): TDIB.DrawAlphaMask();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  3. Delphi 与 DirectX 之 DelphiX(95): TDIB.x

    //让 TDIB 的这些特效烦透了: 多.还重复.又不完善; 还没有测试或测试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height ...

  4. Delphi 与 DirectX 之 DelphiX(33): TDIB.SmoothRotateWrap();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  5. Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  6. Delphi 与 DirectX 之 DelphiX(83): TDIB.FilterLine()、FilterRect();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  7. Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  8. Delphi 与 DirectX 之 DelphiX(52): TDIB.DoSaturation();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

  9. Delphi 与 DirectX 之 DelphiX(35): TDIB.Saturation();

    本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

最新文章

  1. spring Java相对路径/绝对路径总结
  2. ADO.NET之一：连接层
  3. OpenCV中CvArr* 的含义~
  4. 使用xshell 登陆aws的ec2
  5. Qt入门之常用qt控件认知之QLabel
  6. onSaveInstanceState与onRestoreInstanceState何时调用、如何使用
  7. 开源文件管理服务器,GitHub - biiliwuiid/file-manager: 文件服务器管理系统
  8. G1手机上的VOIP之旅 - SIP Server + SipDroid
  9. sqlserver中where条件加判断
  10. 怎么压缩ppt文件大小？
  11. Python基础---如何运行Python程序？（How to Excute a python programe?）
  12. 电子词典系统vc++_MFC 电子词典
  13. 维谛技术（Vertiv）：一切研发创新都以客户需求为核心
  14. Python实现邮箱自动群发工资条
  15. 【转载】linux top命令及参数详解
  16. dom元素转化成字符串；字符串html 转换成 实际代码html; innerHTML, outerHTML,
  17. 使用STM32F103 I2C驱动SHT30
  18. (转载)悟透JavaScript
  19. 面向对象的七种原则：单一职责原则，开放关闭原则
  20. 对于有抱负的软件开发人员：采访是一条两条路

热门文章

  1. linux卸载vs codeblocks,哪个适合linux？ GNU make vs cmake vs codeblocks vs qmake
  2. windows下的守护进程C++
  3. VC 使用SetCheck(TRUE)函数的注意事项
  4. 解决win10系统中截图异常放大的问题
  5. php中提示注意怎么解决,PHP中操作MySQL时一定要注意
  6. linux下载文件一直超时,Linux下connect超时处理（总结）
  7. micropython开发环境_micropython开发者指南
  8. java如何打logo,利用java给网站图片打上文本或图片logo
  9. 主从多机matlab代码,Jenkins的Master Slave主从进行多机多环境部署-配置
  10. python可以处理什么文件夹_Python处理文件和文件夹的10条命令