fclbtns.pas

来自「漏洞扫描系列中HB Network Scanner 测试用练习代码」· PAS 代码 · 共 74 行

unit fclbtns;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EPCtrls, VCLBase, BoxCtrls, IndiCtrls, wavctrl, regions, EffBtns,
  EPLabels, EPButtons, BmpCtrls, MediaLib, ExtCtrls;

type
  TFrmBtns = class(TForm)
    epRegionForm1: TepRegionForm;
    epClose: TepEfRndBtn;
    AImagePanel4: TepImagePanel;
    epEfTrBtn1: TepEfTrBtn;
    ChkNoise: TepBMPCheckBox;
    epEfRndBtn1: TepEfRndBtn;
    epEfRndBtn2: TepEfRndBtn;
    epEfTrRndBtn1: TepEfTrRndBtn;
    epEfTrRndBtn2: TepEfTrRndBtn;
    epEfBtn1: TepEfBtn;
    epEfButton1: TepEfButton;
    epImagePanel1: TepImagePanel;
    epShBtn1: TepShadowBtn;
    epShBtn2: TepShadowBtn;
    epShBtn3: TepShadowBtn;
    epBMPCheckBox1: TepBMPCheckBox;
    epWaveLabel1: TepWaveLabel;
    epMoveForm1: TepMoveForm;
    epBitmap1: TepBitmap;
    epBitmap2: TepBitmap;
    procedure epCloseClick(Sender: TObject);
    procedure epBMPCheckBox1Click(Sender: TObject);
    procedure ChkNoiseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBtns: TFrmBtns;

implementation

{$R *.DFM}


procedure TFrmBtns.epCloseClick(Sender: TObject);
begin
  Close;
end;


procedure TFrmBtns.epBMPCheckBox1Click(Sender: TObject);
begin
  epShBtn1.BlurShadow := epBMPCheckBox1.Checked;
  epShBtn2.BlurShadow := epBMPCheckBox1.Checked;
  epShBtn3.BlurShadow := epBMPCheckBox1.Checked;
end;

procedure TFrmBtns.ChkNoiseClick(Sender: TObject);
begin
  epEfBtn1.Noise := ChkNoise.Checked;
  epEfTrBtn1.Noise := ChkNoise.Checked;
  epEfRndBtn1.Noise := ChkNoise.Checked;
  epEfTrRndBtn1.Noise := ChkNoise.Checked;
  epEfTrRndBtn2.Noise := ChkNoise.Checked;
  epEfRndBtn2.Noise := ChkNoise.Checked;
end;

end.