delphi 与 directx 之 delphix(72): tdib.sephiaeffect(); -凯发k8官方网

为什么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

总结

以上是凯发k8官方网为你收集整理的delphi 与 directx 之 delphix(72): tdib.sephiaeffect();的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得凯发k8官方网网站内容还不错，欢迎将凯发k8官方网推荐给好友。