source: cprs/branches/tmg-cprs/CPRS-Chart/fNotesBP.pas@ 1619

Last change on this file since 1619 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.7 KB
RevLine 
[453]1//kt -- Modified with SourceScanner on 7/24/2007
2unit fNotesBP;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 fAutoSz, StdCtrls, ExtCtrls, DKLang;
9
10type
11 TfrmNotesBP = class(TfrmAutoSz)
12 Label1: TStaticText;
13 radOptions: TRadioGroup;
14 btnPanel: TPanel;
15 cmdPreview: TButton;
16 cmdClose: TButton;
17 DKLanguageController2: TDKLanguageController;
18 procedure cmdPreviewClick(Sender: TObject);
19 procedure cmdCloseClick(Sender: TObject);
20 procedure FormKeyUp(Sender: TObject; var Key: Word;
21 Shift: TShiftState);
22 private
23 FBPText: TStrings;
24 public
25 { Public declarations }
26 end;
27
28function QueryBoilerPlate(BPText: TStrings): Integer;
29
30implementation
31
32{$R *.DFM}
33
34uses ORFn, fRptBox;
35
36function QueryBoilerPlate(BPText: TStrings): Integer;
37var
38 frmNotesBP: TfrmNotesBP;
39begin
40 frmNotesBP := TfrmNotesBP.Create(Application);
41 try
42 ResizeFormToFont(TForm(frmNotesBP));
43 with frmNotesBP do
44 begin
45 FBPText := BPText;
46 ShowModal;
47 Result := radOptions.ItemIndex;
48 end;
49 finally
50 frmNotesBP.Release;
51 end;
52end;
53
54procedure TfrmNotesBP.cmdPreviewClick(Sender: TObject);
55begin
56 inherited;
57//ReportBox(FBPText, 'Boilerplate Text Preview', False); <-- original line. //kt 7/24/2007
58 ReportBox(FBPText, DKLangConstW('fNotesBP_Boilerplate_Text_Preview'), False); //kt added 7/24/2007
59end;
60
61procedure TfrmNotesBP.cmdCloseClick(Sender: TObject);
62begin
63 inherited;
64 Close;
65end;
66
67procedure TfrmNotesBP.FormKeyUp(Sender: TObject; var Key: Word;
68 Shift: TShiftState);
69begin
70 inherited;
71 if Key = VK_ESCAPE then begin
72 Key := 0;
73 radOptions.ItemIndex := 0; //Ignore
74 Close;
75 end;
76end;
77
78end.
Note: See TracBrowser for help on using the repository browser.