frmcllbs.pas

漏洞扫描系列中HB Network Scanner 测试用练习代码

unit frmcllbs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  VCLBase, EffBtns, regions, StdCtrls, EPLabels, EPCtrls, BmpCtrls,
  EPButtons, EffBMP;

type
  TFrmLbs = class(TForm)
    epImage1: TepImage;
    Edit1: TEdit;
    epWaveLabel1: TepWaveLabel;
    Edit2: TEdit;
    AShLabel1: TepShadowLabel;
    epBMPCheckBox1: TepBMPCheckBox;
    epLabel: TepLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    epTextLabel4: TepTextLabel;
    ARegulator2: TepRegulator;
    ARegulator3: TepRegulator;
    ARegulator1: TepRegulator;
    epBitLabel1: TepBitLabel;
    CBGK: TComboBox;
    epBevel1: TepBevel;
    Label1: TLabel;
    epBMPCheckBox2: TepBMPCheckBox;
    epBMPCheckBox3: TepBMPCheckBox;
    procedure epEfRndBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ARegulator1Change(Sender: TObject);
    procedure ARegulator2Change(Sender: TObject);
    procedure ARegulator3Change(Sender: TObject);
    procedure epBMPCheckBox1Click(Sender: TObject);
    procedure epEfButton1Click(Sender: TObject);
    procedure CBGKChange(Sender: TObject);
    procedure epBMPCheckBox2Click(Sender: TObject);
    procedure epBMPCheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLbs: TFrmLbs;

implementation

{$R *.DFM}


procedure TFrmLbs.epEfRndBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmLbs.Edit1Change(Sender: TObject);
begin
  epBitLabel1.Caption := Edit1.Text;
end;

procedure TFrmLbs.Edit2Change(Sender: TObject);
begin
  epWaveLabel1.Caption := Edit2.Text;
end;

procedure TFrmLbs.ARegulator1Change(Sender: TObject);
begin
  epWaveLabel1.RatioVal := ARegulator1.Value;
end;

procedure TFrmLbs.ARegulator2Change(Sender: TObject);
begin
  epWaveLabel1.XDiv := ARegulator2.Value;
end;

procedure TFrmLbs.ARegulator3Change(Sender: TObject);
begin
  epWaveLabel1.YDiv := ARegulator3.Value;
end;

procedure TFrmLbs.epBMPCheckBox1Click(Sender: TObject);
begin
  AShLabel1.BlurShadow := epBMPCheckBox1.Checked;
end;





procedure TFrmLbs.epEfButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmLbs.CBGKChange(Sender: TObject);
begin
  case CBGK.ItemIndex of
    0: epLabel.GradKind := gdRight;
    1: epLabel.GradKind := gdLeft;
    2: epLabel.GradKind := gdTop;
    3: epLabel.GradKind := gdBottom;
    4: epLabel.GradKind := gdHCenter;
    5: epLabel.GradKind := gdVCenter;
  end;
end;

procedure TFrmLbs.epBMPCheckBox2Click(Sender: TObject);
begin
  epLabel.Transparent := epBMPCheckBox2.Checked;
end;

procedure TFrmLbs.epBMPCheckBox3Click(Sender: TObject);
begin
  epLabel.MiddleTransparent := epBMPCheckBox3.Checked;
end;

end.