home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_Templ.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-03  |  2KB  |  81 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {            New Template form             }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_Templ;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  19.   QStdCtrls, QExtCtrls, FR_Const;
  20.  
  21. type
  22.   TfrTemplNewForm = class(TForm)
  23.     GroupBox2: TGroupBox;
  24.     Panel1: TPanel;
  25.     Image1: TImage;
  26.     Button1: TButton;
  27.     Button2: TButton;
  28.     Button3: TButton;
  29.     OpenDialog1: TOpenDialog;
  30.     Memo1: TMemo;
  31.     Label1: TLabel;
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure FormActivate(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.     procedure Localize;
  38.   public
  39.     { Public declarations }
  40.   end;
  41.  
  42.  
  43. implementation
  44.  
  45. uses FR_Utils;
  46.  
  47. {$R *.xfm}
  48.  
  49. procedure TfrTemplNewForm.Button1Click(Sender: TObject);
  50. begin
  51.   OpenDialog1.Filter := (SBMPFile) + ' (*.bmp)|*.bmp';
  52.   with OpenDialog1 do
  53.   if Execute then
  54.     Image1.Picture.LoadFromFile(FileName);
  55. end;
  56.  
  57. procedure TfrTemplNewForm.FormActivate(Sender: TObject);
  58. begin
  59.   Memo1.Lines.Clear;
  60.   Image1.Picture.Assign(nil);
  61.   Memo1.SetFocus;
  62. end;
  63.  
  64. procedure TfrTemplNewForm.Localize;
  65. begin
  66.   Caption := S53320;
  67.   Label1.Caption := S53321;
  68.   GroupBox2.Caption := S53322;
  69.   Button1.Caption := S53323;
  70.   Button2.Caption := (SOk);
  71.   Button3.Caption := (SCancel);
  72. end;
  73.  
  74. procedure TfrTemplNewForm.FormCreate(Sender: TObject);
  75. begin
  76.   Localize;
  77. end;
  78.  
  79. end.
  80.  
  81.