/Gedemin/Storage/st_dlgFind_unit.pas

http://gedemin.googlecode.com/ · Pascal · 50 lines · 40 code · 9 blank · 1 comment · 0 complexity · 0d2bd5f2cd107d447dd1a559142c6a91 MD5 · raw file 

    

  1. unit st_dlgFind_unit;

    2. 

  2. 

    3. 

  3. interface

    4. 

  4. 

    5. 

  5. uses

    6. 

  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    7. 

  7.   ActnList, StdCtrls, gd_createable_form, Mask, xDateEdits,

    8. 

  8.   ExtCtrls;

    9. 

  9. 

    10. 

  10. type

    11. 

  11.   Tst_dlgFind = class(TCreateableForm)

    12. 

  12.     Label1: TLabel;

    13. 

  13.     edFindText: TEdit;

    14. 

  14.     gbView: TGroupBox;

    15. 

  15.     cbFolder: TCheckBox;

    16. 

  16.     cbValue: TCheckBox;

    17. 

  17.     cbData: TCheckBox;

    18. 

  18.     btnFind: TButton;

    19. 

  19.     btnClose: TButton;

    20. 

  20.     xdeFrom: TxDateEdit;

    21. 

  21.     xdeTo: TxDateEdit;

    22. 

  22.     cbDate: TCheckBox;

    23. 

  23.     Label2: TLabel;

    24. 

  24.     rgSetting: TRadioGroup;

    25. 

  25.     procedure cbDateClick(Sender: TObject);

    26. 

  26.     procedure FormCreate(Sender: TObject);

    27. 

  27.   private

    28. 

  28.   public

    29. 

  29.   end;

    30. 

  30. 

    31. 

  31. var

    32. 

  32.   st_dlgFind: Tst_dlgFind;

    33. 

  33. 

    34. 

  34. implementation

    35. 

  35. 

    36. 

  36. {$R *.DFM}

    37. 

  37. 

    38. 

  38. procedure Tst_dlgFind.cbDateClick(Sender: TObject);

    39. 

  39. begin

    40. 

  40.   xdeFrom.Enabled := cbDate.Checked;

    41. 

  41.   xdeTo.Enabled := cbDate.Checked;

    42. 

  42. end;

    43. 

  43. 

    44. 

  44. procedure Tst_dlgFind.FormCreate(Sender: TObject);

    45. 

  45. begin

    46. 

  46.   xdeFrom.Enabled := cbDate.Checked;

    47. 

  47.   xdeTo.Enabled := cbDate.Checked;

    48. 

  48. end;

    49. 

  49. 

    50. 

  50. end.
    51.