Module

fARTFreeTextMsg

Path

C:\CPRS\CPRS30\fARTFreeTextMsg.pas

Last Modified

7/15/2014 3:26:36 PM

Units Used in Interface

Name Comments
fAutoSz -

Classes

Name Comments
TfrmARTFreeTextMsg -

Procedures

Name Owner Declaration Scope Comments
cmdContinueClick TfrmARTFreeTextMsg procedure cmdContinueClick(Sender: TObject); Public/Published -
GetFreeTextARTComment - procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean); Interfaced -

Global Variables

Name Type Declaration Comments
tmpList TStringList tmpList: TStringList; -

Constants

Name Declaration Scope Comments
LABEL_TEXT 'You may now add any comments you may have to the message that' + CRLF + Interfaced -


Module Source

1     unit fARTFreeTextMsg;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7       Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls,
8       VA508AccessibilityManager;
9     
10    type
11      TfrmARTFreeTextMsg = class(TfrmAutoSz)
12        pnlText: TORAutoPanel;
13        pnlButton: TORAutoPanel;
14        cmdContinue: TButton;
15        lblText: TLabel;
16        memFreeText: TCaptionRichEdit;
17        lblComments: TOROffsetLabel;
18        procedure cmdContinueClick(Sender: TObject);
19      private
20        FContinue: boolean;
21      public
22      end;
23    
24      const
25        LABEL_TEXT = 'You may now add any comments you may have to the message that' + CRLF +
26                     'is going to be sent with the request to add this reactant.' + CRLF + CRLF +
27    
28                     'You may want to add things like sign/symptoms, observed or historical, etc.,' + CRLF +
29                     'that may be useful to the reviewer.' + CRLF + CRLF +
30    
31                     'Already included are the entry you attempted, the patient you attempted to' + CRLF +
32                     'enter it for, and your name, title, and contact information.';
33    
34      var
35        tmpList: TStringList;
36    
37      procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
38    
39    implementation
40    
41    {$R *.dfm}
42    
43    procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
44    var
45      frmARTFreeTextMsg: TfrmARTFreeTextMsg;
46    begin
47      frmARTFreeTextMsg := TfrmARTFreeTextMsg.Create(Application);
48      tmpList := TStringList.Create;
49      try
50        with frmARTFreeTextMsg do
51        begin
52          FContinue := OKtoContinue;
53          tmpList.Text := '';
54          lblText.Caption := LABEL_TEXT;
55          ResizeFormToFont(TForm(frmARTFreeTextMsg));
56          ActiveControl := memFreeText;
57          frmARTFreeTextMsg.ShowModal;
58          OKtoContinue := FContinue;
59          FastAssign(tmpList, AFreeTextComment);
60        end;
61      finally
62        tmpList.Free;
63        frmARTFreeTextMsg.Release;
64      end;
65    end;
66    
67    procedure TfrmARTFreeTextMsg.cmdContinueClick(Sender: TObject);
68    begin
69      inherited;
70      tmpList.Assign(memFreeText.Lines);
71      FContinue := True;
72      Close;
73    end;
74    
75    end.

Module Calls (2 levels)


fARTFreeTextMsg
 └fAutoSz
   └fBase508Form

Module Called-By (2 levels)


fARTFreeTextMsg
   fAllgyFind┘ 
  fARTAllgy┤   
   fODAllgy┘