home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / nastroje / d6 / SPYPRIMO.ZIP / spyobjects / mainspyprimo.pas < prev    next >
Pascal/Delphi Source File  |  2002-06-03  |  4KB  |  175 lines
  1. unit mainspyprimo;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, messages,
  6.      spyobjects, StdCtrls, ExtCtrls;
  7.  
  8.  
  9.  type
  10.  
  11.   TAcercaDelGranPrimo = class(TForm)
  12.     l11: TLabel;
  13.     l1: TLabel;
  14.     B1: TButton;
  15.     b2: TButton;
  16.     erealdi: TEdit;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     edtime: TEdit;
  20.     b3: TButton;
  21.     Label3: TLabel;
  22.     E1: TEdit;
  23.     GroupBox1: TGroupBox;
  24.     rb1: TRadioButton;
  25.     rb2: TRadioButton;
  26.     rb3: TRadioButton;
  27.     Spy: TSpyPrimo;
  28.     GroupBox2: TGroupBox;
  29.     rbs1: TRadioButton;
  30.     rbs2: TRadioButton;
  31.     rbs3: TRadioButton;
  32.     rbs4: TRadioButton;
  33.     rbs5: TRadioButton;
  34.     GroupBox3: TGroupBox;
  35.     kr1: TRadioButton;
  36.     kr2: TRadioButton;
  37.     kr3: TRadioButton;
  38.     GroupBox4: TGroupBox;
  39.     rh1: TRadioButton;
  40.     rh2: TRadioButton;
  41.     rh3: TRadioButton;
  42.     procedure tMitButton1Click(Sender: TObject);
  43.     procedure B1Click(Sender: TObject);
  44.     procedure FormActivate(Sender: TObject);
  45.     procedure FormCreate(Sender: TObject);
  46.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  47.     procedure b2Click(Sender: TObject);
  48.     procedure b3Click(Sender: TObject);
  49.  
  50.   private
  51.  
  52.  
  53.     procedure Error(Sender: TObject; E: Exception);
  54.     procedure setenables;
  55.  
  56.   end;
  57.  
  58. procedure AcercaDePrimo;
  59.  
  60.  
  61. implementation
  62.  
  63.  
  64. {$R *.DFM}
  65.  
  66. procedure acercadeprimo;
  67. var AboutBox :TAcercaDelGranPrimo;
  68. begin
  69.   AboutBox := TAcercaDelGranPrimo.Create(application);
  70.   try
  71.     AboutBox.ShowModal;
  72.   finally
  73.     AboutBox.Free;
  74.   end;
  75. end;
  76.  
  77.  
  78. procedure TAcercaDelGranPrimo.tMitButton1Click(Sender: TObject);
  79. begin
  80.   close;
  81. end;
  82.  
  83. procedure TAcercaDelGranPrimo.B1Click(Sender: TObject);
  84. begin
  85.   hide;
  86. end;
  87.  
  88. procedure TAcercaDelGranPrimo.FormActivate(Sender: TObject);
  89. begin
  90.   Application.OnException:=error;
  91. end;
  92.  
  93. procedure TAcercaDelGranPrimo.Error(Sender: TObject; E: Exception);
  94. begin
  95. end;
  96.  
  97.  
  98. procedure TAcercaDelGranPrimo.FormCreate(Sender: TObject);
  99. begin
  100. // spy:=TSpyPrimo.Create(self);
  101.  spy.Enabled:=false;
  102.  erealdi.text:=spy.dirSave;
  103.  edtime.text:=IntToStr (spy.Interval);
  104.  E1.text:=inttostr(spy.limite);
  105. end;
  106.  
  107.  
  108. procedure TAcercaDelGranPrimo.FormClose
  109.           (Sender: TObject; var Action: TCloseAction);
  110. begin
  111.    spy.enabled:=false;
  112.    if  formstyle= fsMDIChild then
  113.        action:=cafree;
  114. end;
  115.  
  116. procedure TAcercaDelGranPrimo.setenables;
  117. begin
  118.   b2.Enabled:=not spy.Enabled;
  119.   b3.Enabled:=spy.Enabled;
  120.  
  121. end;
  122.  
  123.  
  124. procedure TAcercaDelGranPrimo.b2Click(Sender: TObject);
  125. begin
  126.  spy.limite:= valorint_(E1.text);
  127.  if rb2.Checked then
  128.    spy.kindReport:=krFirst else
  129.    if rb3.Checked then
  130.    spy.kindReport:=krevery else
  131.    spy.kindReport:=krnone ;
  132.  if kr1.Checked then
  133.    spy.kinddump:=dmnone else
  134.    if kr2.Checked then
  135.    spy.kinddump:=dmdump else
  136.    spy.kinddump:=dmdumpident;
  137.  if rbs1.Checked then
  138.    spy.kindspy:=ksnone else
  139.    if rbs2.Checked then
  140.    spy.kindspy:=kschangescreen else
  141.    if rbs3.Checked then
  142.    spy.kindspy :=ksevery else
  143.    if rbs4.Checked then
  144.    spy.kindspy :=kschangeObject
  145.    else spy.kindspy :=ksChangeAny;
  146.  if rh1.Checked then
  147.    spy.kindhtml:=htmOnePage else
  148.    if rh2.Checked then
  149.    spy.kindhtml:=htmMultiPage else
  150.    spy.kindHtml:=htmAnimation;
  151.  
  152.  spy.dirsave:= erealdi.text;
  153.  spy.Interval:= ValorInt_( edtime.text);
  154.  Spy.enabled:=true;
  155. // Spy.control:=self;
  156. // spy.ActiveCapture:=true;
  157.  setenables;
  158. end;
  159.  
  160.  
  161. procedure TAcercaDelGranPrimo.b3Click(Sender: TObject);
  162. begin
  163.   spy.enabled:=false;
  164.   setenables;
  165. end;
  166.  
  167.  
  168.  
  169. end.
  170.  
  171.  
  172.  
  173.  
  174.  
  175.