datamodule.pas

来自「数字图像预出处理系统」· PAS 代码 · 共 35 行

unit datamodule;

interface

uses
  SysUtils, Classes, Graphics;
   //Windows, Classes, Forms, Controls, StdCtrls, ExtCtrls, Menus,
     // math,Messages, SysUtils, Variants,Dialogs, ExtDlgs, ComCtrls;
  const //distance=5;
      //FilterWindowsWidth=16;  //纹理区域块宽度
      //GrayLayerNum=16;     //灰度层数
      Dimension=16;
type
  TDataModule1 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;
  mark1,mark2,ChoiceImageMark,mark4,mark5,Dot_ManualChioce:boolean;
  loaderbmp:TBitmap ;
  withdrawbmp,ChangedBitmap:TBitmap;
  distance:integer;
  FilterWindowsWidth:integer;  //纹理区域块宽度
  GrayLayerNum:integer;     //灰度层数
  //Dimension:integer;
implementation

{$R *.dfm}

end.