Delphi 与 DirectX 之 DelphiX(80): TDIB.BlendPixel();
本例效果图:
代码文件:
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);
varw,h,i: Integer;
beginw := DXPaintBox1.DIB.Width;h := DXPaintBox1.DIB.Height;for i := 0 to 9999 do beginDXPaintBox1.DIB.BlendPixel(Random(w), Random(h div 2), clRed, 255);DXPaintBox1.DIB.BlendPixel(Random(w), Random(h div 2) + (h div 2), clRed, 64);end;DXPaintBox1.Repaint;
end;end.
Delphi 与 DirectX 之 DelphiX(80): TDIB.BlendPixel();相关推荐
- 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(72): TDIB.SephiaEffect();
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...
- 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(28): TDIB.Emboss;
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...
- Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
最新文章
- html溢出攻击,溢出（漏洞）攻击的实现及防御
- 一分钟了解 TCP/IP 模型
- 织梦php首页老是自动恢复,dede首页网址自动加上index.html问题解决方法
- 成功解决ImportError: [joblib] Attempting to do parallel computing without protecting your import on a sy
- 笔记-信息化与系统集成技术-云计算操作系统的主要关键技术
- CentOS 快速安装pip
- 卫星参数大全_【视频】早期国外做工精良的海事卫星电话机拆解
- plsql连接oracle11g怎么配置,怎么使用plsql怎么连接64位Oracle11g数据库?
- Webpack4干货分享(二)，使用loader处理scss,图片以及转换JS
- Mongo 安装、配置、启动 Windows
- 程序员应学习蜡笔小新的心态
- 手眼标定eye-to-hand 示例：handeye_stationarycam_calibration
- Python: 50个能够满足所有需要的模块
- 设置linearlayout最大高度_ICEM CFD网格设置参数意义
- ES2021 更新的内容！
- 第六课－Android四大组件之Activity
- 逆置单链表c语言程序,逆置单链表C语言
- pythonturtle库填充_python turtle库笔记
- V-rep中导入机械臂模型并验证
- 逃跑h5小游戏源码熊出没手机游戏