home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_Restr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-03  |  1.4 KB  |  68 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {           Restrictions editor            }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_Restr;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls;
  19.  
  20. type
  21.   TfrRestrictionsForm = class(TForm)
  22.     GroupBox1: TGroupBox;
  23.     CB1: TCheckBox;
  24.     CB2: TCheckBox;
  25.     Cb3: TCheckBox;
  26.     CB4: TCheckBox;
  27.     CB5: TCheckBox;
  28.     CB6: TCheckBox;
  29.     CB7: TCheckBox;
  30.     Button1: TButton;
  31.     Button2: TButton;
  32.     procedure FormCreate(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.     procedure Localize;
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40.  
  41. implementation
  42.  
  43. uses FR_Const, FR_Utils;
  44.  
  45. {$R *.xfm}
  46.  
  47.  
  48. procedure TfrRestrictionsForm.Localize;
  49. begin
  50.   Caption := (S53260);
  51.   CB1.Caption := (S53261);
  52.   CB2.Caption := (S53262);
  53.   CB3.Caption := (S53263);
  54.   CB4.Caption := (S53264);
  55.   CB5.Caption := (S53265);
  56.   CB6.Caption := (S53266);
  57.   CB7.Caption := (S53267);
  58.   Button1.Caption := (SOk);
  59.   Button2.Caption := (SCancel);
  60. end;
  61.  
  62. procedure TfrRestrictionsForm.FormCreate(Sender: TObject);
  63. begin
  64.   Localize;
  65. end;
  66.  
  67. end.
  68.