1 
2 {*****************************************}
3 {                                         }
4 {             FastReport v2.3             }
5 {            New Template form            }
6 {                                         }
7 {  Copyright (c) 1998-99 by Tzyganenko A. }
8 {                                         }
9 {*****************************************}
10 
11 unit LR_Templ;
12 
13 interface
14 
15 {$I LR_Vers.inc}
16 
17 uses
18   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
19   StdCtrls,ClipBrd,ExtCtrls, ButtonPanel, LR_Const;
20 
21 type
22 
23   { TfrTemplNewForm }
24 
25   TfrTemplNewForm = class(TForm)
26     ButtonPanel1: TButtonPanel;
27     GroupBox2: TGroupBox;
28     Panel1: TPanel;
29     Image1: TImage;
30     Button1: TButton;
31     OpenDialog1: TOpenDialog;
32     Memo1: TMemo;
33     Label1: TLabel;
34     procedure Button1Click(Sender: TObject);
35     procedure FormActivate(Sender: TObject);
36     procedure FormCreate(Sender: TObject);
37   private
38     { Private declarations }
39   public
40     { Public declarations }
41   end;
42 
43 var
44   frTemplNewForm: TfrTemplNewForm;
45 
46 implementation
47 
48 {$R *.lfm}
49 
50 procedure TfrTemplNewForm.Button1Click(Sender: TObject);
51 begin
52   OpenDialog1.Filter := sBMPFile + ' (*.bmp)|*.bmp';
53   with OpenDialog1 do
54   if Execute then
55     Image1.Picture.LoadFromFile(FileName);
56 end;
57 
58 procedure TfrTemplNewForm.FormActivate(Sender: TObject);
59 begin
60   Memo1.Lines.Clear;
61   Image1.Picture.Assign(nil);
62   Memo1.SetFocus;
63 end;
64 
65 procedure TfrTemplNewForm.FormCreate(Sender: TObject);
66 begin
67   Caption := sNewTemplate;
68   Label1.Caption := sTemplFormDesc;
69   GroupBox2.Caption := sGEditorFormCapt;
70   Button1.Caption := sGEditorFormLoad;
71 end;
72 
73 end.
74 
75