afmanio.pas

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

unit afmanio;

interface

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

type
  Tfmanio = class(TForm)
    epImage1: TepImage;
    ALabel32: TepLabel;
    ALabel34: TepLabel;
    ALabel33: TepLabel;
    AImagePanel5: TepImagePanel;
    ARunPanel1: TepRunPanel;
    ARunStr1: TepRunStr;
    AAniImage1: TepAniImage;
    ABMPCheckBox23: TepBMPCheckBox;
    ABMPCheckBox24: TepBMPCheckBox;
    ABMPCheckBox28: TepBMPCheckBox;
    ABMPCheckBox27: TepBMPCheckBox;
    ABMPCheckBox26: TepBMPCheckBox;
    ABMPCheckBox25: TepBMPCheckBox;
    epBitmap1: TepBitmap;
    procedure ABMPCheckBox23Click(Sender: TObject);
    procedure ABMPCheckBox24Click(Sender: TObject);
    procedure ABMPCheckBox27Click(Sender: TObject);
    procedure ABMPCheckBox28Click(Sender: TObject);
    procedure ABMPCheckBox25Click(Sender: TObject);
    procedure ABMPCheckBox26Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmanio: Tfmanio;

implementation

{$R *.DFM}


procedure Tfmanio.ABMPCheckBox23Click(Sender: TObject);
begin
  AAniImage1.Stretch := ABMPCheckBox23.Checked;
end;

procedure Tfmanio.ABMPCheckBox24Click(Sender: TObject);
begin
  AAniImage1.Active := ABMPCheckBox24.Checked;
end;

procedure Tfmanio.ABMPCheckBox27Click(Sender: TObject);
begin
  ARunStr1.Transparent := ABMPCheckBox27.Checked;
end;

procedure Tfmanio.ABMPCheckBox28Click(Sender: TObject);
begin
  ARunStr1.Active := ABMPCheckBox28.Checked;
end;

procedure Tfmanio.ABMPCheckBox25Click(Sender: TObject);
begin
  ARunPanel1.Transparent := ABMPCheckBox25.Checked;
end;

procedure Tfmanio.ABMPCheckBox26Click(Sender: TObject);
begin
  ARunPanel1.Active := ABMPCheckBox26.Checked;
end;




end.