Module

fNotesBP

Path

C:\CPRS\CPRS30\fNotesBP.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fAutoSz -

Units Used in Implementation

Name Comments
fRptBox -

Classes

Name Comments
TfrmNotesBP -

Procedures

Name Owner Declaration Scope Comments
cmdCloseClick TfrmNotesBP procedure cmdCloseClick(Sender: TObject); Public/Published -
cmdPreviewClick TfrmNotesBP procedure cmdPreviewClick(Sender: TObject); Public/Published -
FormKeyUp TfrmNotesBP procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -

Functions

Name Owner Declaration Scope Comments
QueryBoilerPlate - function QueryBoilerPlate(BPText: TStrings): Integer; Interfaced -


Module Source

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

Module Calls (2 levels)


fNotesBP
 ├fAutoSz
 │ └fBase508Form
 └fRptBox
   ├fFrame
   ├fBase508Form...
   ├uReports
   └rReports

Module Called-By (2 levels)


           fNotesBP
           fNotes┤ 
         fFrame┤ │ 
     fPrintList┤ │ 
    fNoteSTStop┤ │ 
      fConsults┤ │ 
fReminderDialog┤ │ 
        fReview┘ │ 
     fConsults...┤ 
          fDCSumm┤ 
      fFrame...┤ │ 
  fPrintList...┤ │ 
     fReview...┤ │ 
   fAddlSigners┘ │ 
         fSurgery┘ 
      fFrame...┤   
     fReview...┘