main.pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  regions, wavctrl, MediaLib, ExtCtrls, mediabtn, scheme, StdCtrls, Buttons,
  EPButtons, VCLBase, EPLabels, EPCtrls, BmpCtrls, epHint, ToolWin,
  ComCtrls, ImgList, Menus, RxMenus, Grids, GKHexEditor, RXCtrls;

type
  TfrmMain = class(TForm)
    wavSwitch: TepWavePlayer;
    wavClick: TepWavePlayer;
    bmpMarble: TepBitmap;
    mlScheme1: TepScheme;
    mlSchemeStore1: TepSchemeStore;
    mlSchemeStore2: TepSchemeStore;
    MainFormHint: TepHint;
    epBitmap1: TepBitmap;
    OFPDemoHint: TepHint;
    PlayerHint: TepHint;
    ScanControlHint: TepHint;
    PlayerHintBitMap: TepBitmap;
    OFPDemoHintBitmap: TepBitmap;
    ImageListMainMenu: TImageList;
    StatusBar1: TStatusBar;
    ImageListMainToolBar: TImageList;
    ImageListMainToolBarHot: TImageList;
    ImageListMainToolBarDis: TImageList;
    mlSchemeForm1: TepSchemeForm;
    Panel1: TPanel;
    ListView1: TListView;
    TreeView1: TTreeView;
    ToolBarMain: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    GKHexEditor1: TGKHexEditor;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    epBlurButton1: TepBlurButton;
    epBlurButton2: TepBlurButton;
    epBlurButton3: TepBlurButton;
    epBlurButton4: TepBlurButton;
    PopupMenuPass: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    PopupMenuDecode: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
{
    procedure btnWallClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnMorphClick(Sender: TObject);
    procedure btnindsClick(Sender: TObject);
    procedure btnAboutClick(Sender: TObject);
    procedure btnLLClick(Sender: TObject);
    procedure btnCGClick(Sender: TObject);
    procedure mlMediaButton1Click(Sender: TObject);
    procedure btnChangeClick(Sender: TObject);
    procedure btnRgnFormClick(Sender: TObject);
    procedure epMediaButton1Click(Sender: TObject);
    procedure epMediaButton2Click(Sender: TObject);
    procedure epMediaButton3Click(Sender: TObject);
    procedure epSpeedButton1Click(Sender: TObject);
    procedure epSpeedButton2Click(Sender: TObject);
    procedure epBMPCheckBox1Click(Sender: TObject);
    procedure epEfButton1Click(Sender: TObject);
    procedure epMediaButton4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
 }
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

uses frmOld, frmor, frmKnd, frmLLd, frmCG, frmEff,
     ShellAPI, About, ExRegion, fclbtns, frmcllbs, afamain, OFPDemo;
{
procedure TfrmMain.btnWallClick(Sender: TObject);
begin
  frmOldVersion.ShowModal;
end;

procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.btnMorphClick(Sender: TObject);
begin
  frmMorph.ShowModal;
end;

procedure TfrmMain.btnindsClick(Sender: TObject);
begin
  frmKinds.ShowModal;
end;

procedure TfrmMain.btnAboutClick(Sender: TObject);
begin
  frmAbout.ShowModal;
end;

procedure TfrmMain.btnLLClick(Sender: TObject);
begin
  /// Light Label Buttons
  frmLLDemo.ShowModal;
end;

procedure TfrmMain.btnCGClick(Sender: TObject);
begin
  // CG Buttons
  frmCGDemo.ShowModal;
end;

procedure TfrmMain.mlMediaButton1Click(Sender: TObject);
begin
  // Image Effects
  frmEffDemo.ShowModal;
end;


procedure TfrmMain.btnChangeClick(Sender: TObject);
begin
  if mlScheme1.SchemeStore = mlSchemeStore2 then
    mlScheme1.SchemeStore := mlSchemeStore1
  else
    mlScheme1.SchemeStore := mlSchemeStore2;
end;

procedure TfrmMain.btnRgnFormClick(Sender: TObject);
begin
  fexRegion.ShowModal;
end;

procedure TfrmMain.epMediaButton1Click(Sender: TObject);
begin
  fmamain.ShowModal;
end;

procedure TfrmMain.epMediaButton2Click(Sender: TObject);
begin
  FrmBtns.ShowModal;
end;

procedure TfrmMain.epMediaButton3Click(Sender: TObject);
begin
  FrmLbs.ShowModal;
end;

procedure TfrmMain.epSpeedButton1Click(Sender: TObject);
begin
  frmAbout.ShowModal;
end;

procedure TfrmMain.epSpeedButton2Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.evgesoft.com/dev/indexreg.html',
               nil, nil, SW_SHOWNORMAL);
end;

procedure TfrmMain.epBMPCheckBox1Click(Sender: TObject);
begin
  mlSchemeForm1.ShowCaption := cbCaption.Checked;
end;

procedure TfrmMain.epEfButton1Click(Sender: TObject);
begin
  if mlScheme1.SchemeStore = mlSchemeStore2 then
    mlScheme1.SchemeStore := mlSchemeStore1
  else
    mlScheme1.SchemeStore := mlSchemeStore2;
end;

procedure TfrmMain.epMediaButton4Click(Sender: TObject);
begin
  OFPForm.Show;
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
  MainFormHint.Active := True;
end;

}
end.