frmeffects.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 58 行

{******************************************************************************}
{*                                                                            *}
{*                       Adirondack Software & Graphics                       *}
{*                       Apprehend 2000 frmEffects Unit                       *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

unit frmEffects;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons,
  ExtCtrls;

type
  TEffectsDlg = class ( TForm )
    OKBtn: TButton;
    CancelBtn: TButton;
    GroupBox1: TGroupBox;
    cbMandel: TCheckBox;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ProcessEffects ( Sender: TObject );
  end;

var
  EffectsDlg: TEffectsDlg;

implementation

uses FrmMain;

{$R *.DFM}

procedure TEffectsDlg.ProcessEffects ( Sender: TObject );
begin
  if RadioButton1.Checked then FormMain.EffectsNegative1Execute ( Sender );
  if RadioButton2.Checked then FormMain.EffectsSharpen1Execute ( Sender );
  if RadioButton3.Checked then FormMain.EffectsSmoothern1Execute ( Sender );
  if RadioButton4.Checked then FormMain.EffectsEdgeDetection1Execute ( Sender );
  if RadioButton5.Checked then FormMain.EffectsEmboss1Execute ( Sender );
  if RadioButton6.Checked then FormMain.EffectsGamma1Execute ( Sender );
  if RadioButton7.Checked then FormMain.ImageConvertToGray1Execute ( Sender );
end;

end.