Delphi 与 DirectX 之 DelphiX(33): TDIB.SmoothRotateWrap();
本例效果图:
代码文件:
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);procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}vardib: TDIB;procedure TForm1.Button1Click(Sender: TObject);
constImgPath1 = 'C:\Temp\DX.jpg';
begindib.LoadFromFile(ImgPath1);DXPaintBox1.DIB.Assign(dib);DXPaintBox1.Width := dib.Width;DXPaintBox1.Height := dib.Height;DXPaintBox1.Repaint;
end;procedure TForm1.Button2Click(Sender: TObject);
beginDXPaintBox1.DIB.SmoothRotateWrap(dib, dib.Width div 2, dib.Height div 2, 15.5);DXPaintBox1.DIB.Assign(dib);DXPaintBox1.Repaint;
end;procedure TForm1.FormCreate(Sender: TObject);
begindib := TDIB.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
begindib.Free;
end;end.
Delphi 与 DirectX 之 DelphiX(33): TDIB.SmoothRotateWrap();相关推荐
- 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(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 ...
最新文章
- linux深度定制,Linux Deepin 12.06 beta1 发布
- Linux Shell中的延时函数
- php模块化安装教程,homestead安装php 扩展 教程
- java 高级工程师面试
- 当网页数据到达用户计算机,当网页数据到达用户计算机时,数据进行转换步骤是()...
- 像python一样运行js的__main__
- 设计Instagram
- html5在线拍照,h5调用html5拍照上传功能
- 地区 经纬度 json 数据
- iphone11返回上一级手势怎么设置_iPhone 11 系列手势操作大全你了解吗？
- 台式机创建文件服务器,如何将台式机做成云存储服务器
- 创新实训（11）——推荐系统实现之基于流行度和新鲜度的推荐
- h3c交换机配置远程管理_h3c 交换机配置VLAN和远程管理
- 苹果App Store强行收取30%手续费，终于被告垄断啦！
- 前端项目怎样合理使用模块化和闭包？
- 流程图设计(html+css+js)
- 送什么礼物给小学生比较有纪念意义？适合送小学生的小礼物
- 第15节-热区Hot Spots | 剑雨Axure RP9系列【基础】
- 手机锁屏后有时收不到微信通知，有时又能收到是怎么回事？
- 西游记中观世音菩萨的三个箍