zoukankan      html  css  js  c++  java
  • Delphi 与 DirectX 之 DelphiX(23): TDirectDrawSurface.Blur;


    本例效果图:



    代码文件:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DXDraws, StdCtrls;
    
    type
      TForm1 = class(TForm)
        DXDraw1: TDXDraw;
        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}
    
    const
      ImgPath1 = 'C:\Temp\DelphiX.bmp';
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      DXDraw1.Surface.Fill(0);
      DXDraw1.Surface.LoadFromFile(ImgPath1);
      DXDraw1.Flip;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      DXDraw1.Surface.Fill(0);
      DXDraw1.Surface.LoadFromFile(ImgPath1);
      DXDraw1.Surface.Lock;
      DXDraw1.Surface.Blur;
      DXDraw1.Surface.UnLock;
      DXDraw1.Flip;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      with DXDraw1.Surface do begin
        Fill(0);
        LoadFromFile(ImgPath1);
        Lock;
        Blur; Blur;
        UnLock;
      end;
      DXDraw1.Flip;
    end;
    
    end.
    

  • 相关阅读:
    2017.7.18 linux下ELK环境搭建
    2017.7.18 linux下用户、组和文件的操作
    action解耦方式
    action 耦合方式
    分页查询
    request,response,session
    Struts2
    hibernate中session,HQL,持久化,一对多,多对一
    hibernate 配置文件
    hibernate
  • 原文地址:https://www.cnblogs.com/del/p/1376605.html
Copyright © 2011-2022 走看看