test1frmadaptivethreshold.pas

来自「ImageMagick library of image with Visua」· PAS 代码 · 共 53 行

unit Test1frmAdaptiveThreshold;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, ComCtrls;

type
  TfrmAdaptiveThresholdOptions = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    btnHelp: TButton;
    edtWidth: TEdit;
    updWidth: TUpDown;
    updHeight: TUpDown;
    edtHeight: TEdit;
    updOffset: TUpDown;
    edtOffset: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  public
    ThreshWidth,ThreshHeight:Cardinal;
    ThreshOffset:Integer;
  end;

var
  frmAdaptiveThresholdOptions: TfrmAdaptiveThresholdOptions;


implementation

{$R *.DFM}

procedure TfrmAdaptiveThresholdOptions.FormCreate(Sender: TObject);
begin
  ThreshWidth:=updWidth.Position;
  ThreshHeight:=updHeight.Position;
  ThreshOffset:=updOffset.Position;
end;

procedure TfrmAdaptiveThresholdOptions.btnOKClick(Sender: TObject);
begin
  ThreshWidth:=updWidth.Position;
  ThreshHeight:=updHeight.Position;
  ThreshOffset:=updOffset.Position;
end;

end.