afbtns.pas

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

unit afbtns;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  EPLabels, EPButtons, VCLBase, EPCtrls, BmpCtrls, MediaLib, epMorph,
  ExtCtrls;

type
  Tafmbtns = class(TForm)
    ColorDialog1: TColorDialog;
    epBitmap1: TepBitmap;
    epBitmap2: TepBitmap;
    epBitmap3: TepBitmap;
    epImagePanel1: TepImagePanel;
    epImagePanel2: TepImagePanel;
    epMorphButton1: TepMorphButton;
    epMorphButton2: TepMorphButton;
    epImagePanel3: TepImagePanel;
    epALabelButton1: TepLabelButton;
    epLabelButton2: TepLabelButton;
    epColorButton1: TepColorButton;
    ABMPCheckBox5: TepBMPCheckBox;
    ASP4: TepSpeedButton;
    epSpeedButton1: TepSpeedButton;
    epSpeedButton2: TepSpeedButton;
    epSpeedButton3: TepSpeedButton;
    ALabel10: TepLabel;
    AColorButton2: TepColorButton;
    AColorButton4: TepColorButton;
    AColorButton5: TepColorButton;
    AColorButton3: TepColorButton;
    ABMPCheckBox6: TepBMPCheckBox;
    AImagePanel3: TepImagePanel;
    ABMPCheckBox18: TepBMPCheckBox;
    ATrBtn1: TepTransparentBtn;
    ATrBtn2: TepTransparentBtn;
    ATrBtn3: TepTransparentBtn;
    epFocusButton1: TepFocusButton;
    epFocusButton2: TepFocusButton;
    epImagePanel4: TepImagePanel;
    epLabel1: TepLabel;
    epImagePanel5: TepImagePanel;
    epMorphButton4: TepMorphButton;
    epMorphButton3: TepMorphButton;
    epMoveForm1: TepMoveForm;
    epBMPCheckBox1: TepBMPCheckBox;
    procedure ABMPCheckBox5Click(Sender: TObject);
    procedure ABMPCheckBox6Click(Sender: TObject);
    procedure AColorButton2Change(Sender: TObject);
    procedure AColorButton4Change(Sender: TObject);
    procedure AColorButton3Change(Sender: TObject);
    procedure AColorButton5Change(Sender: TObject);
    procedure ABMPCheckBox18Click(Sender: TObject);
    procedure epMorphButton1Click(Sender: TObject);
    procedure epMorphButton2Click(Sender: TObject);
    procedure epBMPCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  afmbtns: Tafmbtns;

implementation

{$R *.DFM}



procedure Tafmbtns.ABMPCheckBox5Click(Sender: TObject);
begin
  epColorButton1.UseFrame := ABMPCheckBox5.Checked;
end;

procedure Tafmbtns.ABMPCheckBox6Click(Sender: TObject);
begin
  ASP4.Flat := ABMPCheckBox6.Checked;
  ASP4.Transparent := ABMPCheckBox6.Checked;
end;

procedure Tafmbtns.AColorButton2Change(Sender: TObject);
begin
  ASP4.InnerColor := AColorButton2.ColorValue;
end;

procedure Tafmbtns.AColorButton4Change(Sender: TObject);
begin
  ASP4.Color := AColorButton4.ColorValue;
end;

procedure Tafmbtns.AColorButton3Change(Sender: TObject);
begin
  ASP4.OuterColor := AColorButton3.ColorValue;
end;

procedure Tafmbtns.AColorButton5Change(Sender: TObject);
begin
  ASP4.PatternColor := AColorButton5.ColorValue;
end;

procedure Tafmbtns.ABMPCheckBox18Click(Sender: TObject);
begin
  ATrBtn1.MiddleTransparent := ABMPCheckBox18.Checked;
  ATrBtn2.MiddleTransparent := ABMPCheckBox18.Checked;
  epFocusButton1.MiddleTransparent := ABMPCheckBox18.Checked;
end;

procedure Tafmbtns.epMorphButton1Click(Sender: TObject);
begin
  Close;
end;

procedure Tafmbtns.epMorphButton2Click(Sender: TObject);
begin
  Application.Minimize;
end;

procedure Tafmbtns.epBMPCheckBox1Click(Sender: TObject);
begin
  ATrBtn1.ShowFocus := epBMPCheckBox1.Checked;
  ATrBtn2.ShowFocus := epBMPCheckBox1.Checked;
  epFocusButton1.ShowFocus := epBMPCheckBox1.Checked;
  ATrBtn3.ShowFocus := epBMPCheckBox1.Checked;
  epFocusButton2.ShowFocus := epBMPCheckBox1.Checked;
end;

end.