afbmpctl.pas

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

unit afbmpctl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  VCLBase, BMSlider, BmpCtrls, EPCtrls, EPLabels;

type
  Tfmbmpctrls = class(TForm)
    epImage1: TepImage;
    epBMPButton1: TepBMPButton;
    epBMPSlider1: TepBMPSlider;
    epBMPSlider2: TepBMPSlider;
    epBMPCheckBox1: TepBMPCheckBox;
    epBMPCheckBox2: TepBMPCheckBox;
    epBMPSwitch1: TepBMPSwitch;
    epBMPRadioButton1: TepBMPRadioButton;
    epBMPRadioButton2: TepBMPRadioButton;
    epLabel1: TepLabel;
    epLabel2: TepLabel;
    epLabel3: TepLabel;
    procedure epBMPCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmbmpctrls: Tfmbmpctrls;

implementation

{$R *.DFM}

procedure Tfmbmpctrls.epBMPCheckBox1Click(Sender: TObject);
begin
  epBMPSlider2.Transparent := epBMPCheckBox1.Checked;
end;

end.