afpnls.pas

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

unit afpnls;

interface

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

type
  Tfmpnls = class(TForm)
    epImagePanel1: TepImagePanel;
    ARndPanel2: TepRndPanel;
    ARndPanel1: TepRndPanel;
    ColorDialog1: TColorDialog;
    ALabel26: TepLabel;
    ALabel28: TepLabel;
    AGauge1: TepGauge;
    ARegulator4: TepRegulator;
    ALabel30: TepLabel;
    ALabel31: TepLabel;
    ASwitch1: TepSwitch;
    ALabel29: TepLabel;
    AEfGauge1: TepEffectGauge;
    epBitmap1: TepBitmap;
    epBitmap2: TepBitmap;
    procedure ARegulator4Change(Sender: TObject);
    procedure ASwitch1On(Sender: TObject);
    procedure ASwitch1Off(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmpnls: Tfmpnls;

implementation

{$R *.DFM}


procedure Tfmpnls.ARegulator4Change(Sender: TObject);
begin
  AGauge1.Progress := ARegulator4.Value;
  AEfGauge1.Progress := ARegulator4.Value;
end;

procedure Tfmpnls.ASwitch1On(Sender: TObject);
begin
  AGauge1.Transparent := True;
end;

procedure Tfmpnls.ASwitch1Off(Sender: TObject);
begin
  AGauge1.Transparent := False;
end;

end.