afboxs.pas

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

unit afboxs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  colcombo, StdCtrls, BoxCtrls, VCLBase, BmpCtrls, EPLabels, EPCtrls,
  ExtCtrls, MediaLib;

type
  Tfmboxs = class(TForm)
    ALabel15: TepLabel;
    AListBox1: TepListBox;
    ABMPCheckBox11: TepBMPCheckBox;
    ABMPCheckBox13: TepBMPCheckBox;
    AComboBox1: TepComboBox;
    ALabel17: TepLabel;
    ABMPCheckBox12: TepBMPCheckBox;
    AColorComboBox1: TepColorComboBox;
    ALabel16: TepLabel;
    Label1: TLabel;
    Panel1: TPanel;
    AGroupBox1: TepGroupBox;
    ABevel4: TepBevel;
    ALabel19: TepLabel;
    ALabel21: TepLabel;
    ATextLabel3: TepTextLabel;
    AImage2: TepImage;
    AImagePanel1: TepImagePanel;
    ALabel18: TepLabel;
    AOpenBox1: TepOpenBox;
    ABMPCheckBox21: TepBMPCheckBox;
    AImagePanel2: TepImagePanel;
    ALabel20: TepLabel;
    AImage1: TepImage;
    ABMPCheckBox14: TepBMPCheckBox;
    ABMPCheckBox15: TepBMPCheckBox;
    ABMPCheckBox16: TepBMPCheckBox;
    ASplitter2: TepSplitter;
    ASplitter1: TepSplitter;
    epBitmap1: TepBitmap;
    procedure ABMPCheckBox11Click(Sender: TObject);
    procedure ABMPCheckBox13Click(Sender: TObject);
    procedure ABMPCheckBox12Click(Sender: TObject);
    procedure ABMPCheckBox21Click(Sender: TObject);
    procedure ABMPCheckBox14Click(Sender: TObject);
    procedure ABMPCheckBox15Click(Sender: TObject);
    procedure ABMPCheckBox16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmboxs: Tfmboxs;

implementation

{$R *.DFM}


procedure Tfmboxs.ABMPCheckBox11Click(Sender: TObject);
begin
  with AListBox1 do
  begin
    if ABMPCheckBox11.Checked
    then
      begin
        TransparentSelect := True;
        SelectTextColor := clMaroon;
      end
    else
      begin
        TransparentSelect := False;
        SelectTextColor := clYellow;
      end;
  end;
end;

procedure Tfmboxs.ABMPCheckBox13Click(Sender: TObject);
begin
  AListBox1.MultiSelect := ABMPCheckBox13.Checked;
end;

procedure Tfmboxs.ABMPCheckBox12Click(Sender: TObject);
begin
 with AComboBox1 do
  begin
    if ABMPCheckBox12.Checked
    then
      begin
        TransparentSelect := True;
        InnerFocusColor := clWhite;
        OuterFocusColor := clGray;
        SelectTextColor := clBlue;
      end
    else
      begin
        TransparentSelect := False;
        InnerFocusColor := clSilver;
        OuterFocusColor := clBlack;
        SelectTextColor := clLime;
      end;
  end;
end;


procedure Tfmboxs.ABMPCheckBox21Click(Sender: TObject);
begin
  AOpenBox1.BtnTransparent := ABMPCheckBox21.Checked;
end;

procedure Tfmboxs.ABMPCheckBox14Click(Sender: TObject);
begin
  AImage1.GlyphTransparent := ABMPCheckBox14.Checked;
end;

procedure Tfmboxs.ABMPCheckBox15Click(Sender: TObject);
begin
  AImage1.Stretch := ABMPCheckBox15.Checked;
end;

procedure Tfmboxs.ABMPCheckBox16Click(Sender: TObject);
begin
  AImage1.WallStyle := ABMPCheckBox16.Checked;
end;

end.