Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;
本例效果图:
代码文件:
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;{Negative 是负片效果, 如果超过 8 位色, 这个方法有些问题} procedure TForm1.Button2Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 8;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;procedure TForm1.Button3Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 4;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;procedure TForm1.Button4Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 1;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;end.
Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;相关推荐
- 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 ...
最新文章
- 正确配置Linux系统ulimit值的方法
- 「小程序JAVA实战」小程序视频上传方法的抽象复用(57)
- virtualenv使用说明
- linux删除vip 绑定,linux – VIP不会从备份keepalived中删除
- SET IDENTITY_INSERT [Table] [ON|OFF]
- 数据3分钟丨《数据库发展研究报告(2021年)》发布;PingCAP完成新一轮融资
- [DC]学习design compiler
- PWM级联方案。UART接口的单总线控制多个PWM输出。数字舵机,舵机级联方案
- 实践出真知--ZAC《网络营销实战密码》
- leetcode349 python3 112ms 求两个数组的交集
- 光猫超级账号密码、宽带账号密码 获取
- java 设置jframe大小_Java Swing JFrame设置大小
- 云服务器公网IPv4是什么意思?IPv4还是IPv6好?
- 找工作,还是找户口?
- 安全测试(BurpSuite)常见检查点
- getrusage-进程资源统计函数
- Python邮件收发(SMTP POP3)
- SEOer在网站优化中,如何快速的写出原创的文章?
- USB Type A/B/C的区别和基本知识
- 2020 操作系统 实验二 进程通信
热门文章
- PCA主成分分析 特征降维 opencv实现
- python学习笔记--随时更新
- 分布式系统中的进程标识
- android doc例程---Notepad Tutorial学习要点!
- Windows消息循环理解及窗体创建步骤
- 关于Visual Studio 当前不会命中断点.还没有为该文档加载任何符号的解决方法
- java获取实体类的属性和值
- html5语言基础教程,HTML5基础教程,从入门到精通,零基础学HTML5
- linux中mount -o remount /home,mount -o remount, rw / 很有用..
- latex插入表格心得