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