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


    本例效果图:



    代码文件:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DXClass, DXDraws, ComCtrls;
    
    type
      TForm1 = class(TForm)
        DXDraw1: TDXDraw;
        TrackBar1: TTrackBar;
        procedure FormCreate(Sender: TObject);
        procedure TrackBar1Change(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      DXDraw1.Align := alClient;
      TrackBar1.Align := alBottom;
      TrackBar1.Height := 22;
      TrackBar1.ShowSelRange := False;
      TrackBar1.Max := 255;
    end;
    
    procedure TForm1.TrackBar1Change(Sender: TObject);
    begin
      DXDraw1.Surface.Fill(0);
      DXDraw1.Surface.Lock;
      DXDraw1.Surface.Noise(DXDraw1.Surface.ClientRect, TrackBar1.Position);
      DXDraw1.Surface.UnLock;
      DXDraw1.Flip;
    end;
    
    end.
    

  • 相关阅读:
    2. redis的数据类型
    1. redis简介
    6. 职责链设计模式
    9. 桥梁设计模式
    一. 序言
    网络中常见的面试题
    JDBC
    Mybatis批量操作数据的方法
    ORM框架的概述
    Mybatis动态sql技术
  • 原文地址:https://www.cnblogs.com/del/p/1376554.html
Copyright © 2011-2022 走看看