/Gedemin/Storage/st_dlgFind_unit.pas

 1unit st_dlgFind_unit;
 2
 3interface
 4
 5uses
 6  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 7  ActnList, StdCtrls, gd_createable_form, Mask, xDateEdits,
 8  ExtCtrls;
 9
10type
11  Tst_dlgFind = class(TCreateableForm)
12    Label1: TLabel;
13    edFindText: TEdit;
14    gbView: TGroupBox;
15    cbFolder: TCheckBox;
16    cbValue: TCheckBox;
17    cbData: TCheckBox;
18    btnFind: TButton;
19    btnClose: TButton;
20    xdeFrom: TxDateEdit;
21    xdeTo: TxDateEdit;
22    cbDate: TCheckBox;
23    Label2: TLabel;
24    rgSetting: TRadioGroup;
25    procedure cbDateClick(Sender: TObject);
26    procedure FormCreate(Sender: TObject);
27  private
28  public
29  end;
30
31var
32  st_dlgFind: Tst_dlgFind;
33
34implementation
35
36{$R *.DFM}
37
38procedure Tst_dlgFind.cbDateClick(Sender: TObject);
39begin
40  xdeFrom.Enabled := cbDate.Checked;
41  xdeTo.Enabled := cbDate.Checked;
42end;
43
44procedure Tst_dlgFind.FormCreate(Sender: TObject);
45begin
46  xdeFrom.Enabled := cbDate.Checked;
47  xdeTo.Enabled := cbDate.Checked;
48end;
49
50end.