Delphi 与 DirectX 之 DelphiX(41): TDIB.SplitBlur();
2009-01-16 16:34
281 查看
本例效果图:
![](http://images.cnblogs.com/cnblogs_com/del/171104/o_0911617.gif)
代码文件:
窗体文件:
![](http://images.cnblogs.com/cnblogs_com/del/171104/o_0911617.gif)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const ImgPath1 = 'C:\Temp\DX.jpg'; begin DXPaintBox1.DIB.LoadFromFile(ImgPath1); DXPaintBox1.Width := DXPaintBox1.DIB.Width; DXPaintBox1.Height := DXPaintBox1.DIB.Height; DXPaintBox1.Repaint; end; procedure TForm1.Button2Click(Sender: TObject); begin DXPaintBox1.DIB.SplitBlur(1); DXPaintBox1.Repaint; end; procedure TForm1.Button3Click(Sender: TObject); begin DXPaintBox1.DIB.SplitBlur(4); DXPaintBox1.Repaint; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 142 ClientWidth = 226 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object DXPaintBox1: TDXPaintBox Left = 8 Top = 8 Width = 81 Height = 73 AutoStretch = False Center = False KeepAspect = False Stretch = False ViewWidth = 0 ViewHeight = 0 end object Button1: TButton Left = 143 Top = 22 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 143 Top = 78 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 143 Top = 109 Width = 75 Height = 25 Caption = 'Button3' TabOrder = 2 OnClick = Button3Click end end
相关文章推荐
- Delphi 与 DirectX 之 DelphiX(29): TDIB.AddMonoNoise();
- Delphi 与 DirectX 之 DelphiX(37): TDIB.AddRGB();
- Delphi 与 DirectX 之 DelphiX(44): TDIB.DoAddColorNoise();
- Delphi 与 DirectX 之 DelphiX(51): TDIB.DoDarkness();
- Delphi 与 DirectX 之 DelphiX(59): TDIB.DoSpotLight();
- Delphi 与 DirectX 之 DelphiX(69): TDIB.Greyscale();
- Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();
- Delphi 与 DirectX 之 DelphiX(82): TDIB.DrawMandelbrot();
- Delphi 与 DirectX 之 DelphiX(91): TDIB.DrawMono();
- Delphi 与 DirectX 之 DelphiX(30): TDIB.AddGradiantNoise();
- Delphi 与 DirectX 之 DelphiX(38): TDIB.Filter();
- Delphi 与 DirectX 之 DelphiX(45): TDIB.DoAddMonoNoise();
- Delphi 与 DirectX 之 DelphiX(52): TDIB.DoSaturation();
- Delphi 与 DirectX 之 DelphiX(60): TDIB.DoTrace();
- Delphi 与 DirectX 之 DelphiX(70): TDIB.Mirror();
- Delphi 与 DirectX 之 DelphiX(31): TDIB.Twist();
- Delphi 与 DirectX 之 DelphiX(39): TDIB.Sharpen();
- Delphi 与 DirectX 之 DelphiX(46): TDIB.DoAntiAlias;
- Delphi 与 DirectX 之 DelphiX(53): TDIB.DoSplitBlur();
- Delphi 与 DirectX 之 DelphiX(61): TDIB.DoEmboss;