home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / HAWKEYE / HAWKEVAL.ZIP / _SETUP.1 / TestMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-17  |  1.4 KB  |  62 lines
  1. unit TestMain;
  2.  
  3. {*********************************************************************
  4.     Please NOTE: *********
  5.  
  6. In order for this sample to run, please ensure that the path in which
  7. agnieyespy.dcu resides is included in your library path, or in the
  8. search path of this project.
  9.  
  10. When you run this project click on the Create Eye Spy menu, to bring up
  11. Agni's Eye Spy. You can click on Free Eye Spy to hide Agni's Eye Spy.
  12.  
  13. *********************************************************************}
  14.  
  15. interface
  16.  
  17. uses
  18.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  19.   ExtCtrls, StdCtrls, Menus, AgniEyeSpy;
  20.  
  21. type
  22.   TForm1 = class(TForm)
  23.     Label1: TLabel;
  24.     Edit1: TEdit;
  25.     Memo1: TMemo;
  26.     Button1: TButton;
  27.     RadioButton1: TRadioButton;
  28.     Shape1: TShape;
  29.     Bevel1: TBevel;
  30.     Image1: TImage;
  31.     Timer1: TTimer;
  32.     PopupMenu1: TPopupMenu;
  33.     MainMenu1: TMainMenu;
  34.     CreateEyeSpy1: TMenuItem;
  35.     FreeEyeSpy1: TMenuItem;
  36.     procedure CreateEyeSpy1Click(Sender: TObject);
  37.     procedure FreeEyeSpy1Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm1.CreateEyeSpy1Click(Sender: TObject);
  52. begin
  53.     CreateEyeSpy;
  54. end;
  55.  
  56. procedure TForm1.FreeEyeSpy1Click(Sender: TObject);
  57. begin
  58.     FreeEyeSpy;
  59. end;
  60.  
  61. end.
  62.