home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_Pgopt.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-03  |  3KB  |  146 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {              Page options                }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_Pgopt;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  19.   QStdCtrls, QExtCtrls, QComCtrls, FR_Ctrls, QButtons;
  20.  
  21. type
  22.   TfrPgoptForm = class(TForm)
  23.     Button1: TButton;
  24.     Button2: TButton;
  25.     PageControl1: TPageControl;
  26.     TabSheet1: TTabSheet;
  27.     TabSheet2: TTabSheet;
  28.     TabSheet3: TTabSheet;
  29.     GroupBox2: TGroupBox;
  30.     imgLandScape: TImage;
  31.     imgPortrait: TImage;
  32.     RB1: TRadioButton;
  33.     RB2: TRadioButton;
  34.     GroupBox1: TGroupBox;
  35.     CB1: TCheckBox;
  36.     GroupBox3: TGroupBox;
  37.     ComB1: TComboBox;
  38.     GroupBox4: TGroupBox;
  39.     CB5: TCheckBox;
  40.     E3: TEdit;
  41.     Label3: TLabel;
  42.     Label4: TLabel;
  43.     E4: TEdit;
  44.     Label5: TLabel;
  45.     Label6: TLabel;
  46.     E5: TEdit;
  47.     E6: TEdit;
  48.     GroupBox5: TGroupBox;
  49.     Label7: TLabel;
  50.     E7: TEdit;
  51.     Label8: TLabel;
  52.     Edit1: TEdit;
  53.     Panel8: TPanel;
  54.     SB1: TfrSpeedButton;
  55.     SB2: TfrSpeedButton;
  56.     CB2: TCheckBox;
  57.     procedure RB1Click(Sender: TObject);
  58.     procedure RB2Click(Sender: TObject);
  59.     procedure FormActivate(Sender: TObject);
  60.     procedure FormCreate(Sender: TObject);
  61.     procedure SB1Click(Sender: TObject);
  62.     procedure SB2Click(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.     procedure Localize;
  66.   public
  67.     { Public declarations }
  68.   end;
  69.  
  70.  
  71. implementation
  72.  
  73. {$R *.xfm}
  74.  
  75. uses FR_Prntr, FR_Class, FR_Const, FR_Utils;
  76.  
  77. procedure TfrPgoptForm.RB1Click(Sender: TObject);
  78. begin
  79.   ImgPortrait.Show;
  80.   ImgLandscape.Hide;
  81. end;
  82.  
  83. procedure TfrPgoptForm.RB2Click(Sender: TObject);
  84. begin
  85.   ImgLandscape.Show;
  86.   ImgPortrait.Hide;
  87. end;
  88.  
  89. procedure TfrPgoptForm.FormActivate(Sender: TObject);
  90. begin
  91.   if RB1.Checked then RB1Click(nil) else RB2Click(nil);
  92. end;
  93.  
  94. procedure TfrPgoptForm.Localize;
  95. begin
  96.   Caption := S53390;
  97.   TabSheet1.Caption := S53391;
  98.   GroupBox2.Caption := S53392;
  99.   RB1.Caption := S53393;
  100.   RB2.Caption := S53394;
  101.   GroupBox3.Caption := S53395;
  102.   TabSheet2.Caption := S53398;
  103.   GroupBox4.Caption := S53399;
  104.   Label3.Caption := S53400;
  105.   Label4.Caption := S53401;
  106.   Label5.Caption := S53402;
  107.   Label6.Caption := S53403;
  108.   CB5.Caption := S53404;
  109.   TabSheet3.Caption := S53405;
  110.   GroupBox1.Caption := S53406;
  111.   CB1.Caption := S53407;
  112.   CB2.Caption := S53413;
  113.   GroupBox5.Caption := S53408;
  114.   Label7.Caption := S53409;
  115.   Label8.Caption := S53410;
  116.   Button1.Caption := SOk;
  117.   Button2.Caption := SCancel;
  118. end;
  119.  
  120. procedure TfrPgoptForm.FormCreate(Sender: TObject);
  121. begin
  122.   Localize;
  123. end;
  124.  
  125. procedure TfrPgoptForm.SB1Click(Sender: TObject);
  126. var
  127.   i: Integer;
  128. begin
  129.   i := StrToInt(Edit1.Text);
  130.   Inc(i);
  131.   Edit1.Text := IntToStr(i);
  132. end;
  133.  
  134. procedure TfrPgoptForm.SB2Click(Sender: TObject);
  135. var
  136.   i: Integer;
  137. begin
  138.   i := StrToInt(Edit1.Text);
  139.   Dec(i);
  140.   if i < 0 then i := 0;
  141.   Edit1.Text := IntToStr(i);
  142. end;
  143.  
  144. end.
  145.  
  146.