source: cprs/branches/tmg-cprs/CPRS-Chart/fARTFreeTextMsg.pas@ 1593

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.3 KB
RevLine 
[453]1//kt -- Modified with SourceScanner on 7/15/2007
2unit fARTFreeTextMsg;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8 Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls, DKLang;
9
10type
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 + <-- original line. //kt 7/15/2007
26// 'is going to be sent with the request to add this reactant.' + CRLF + CRLF + <-- original line. //kt 7/15/2007
27
28// 'You may want to add things like sign/symptoms, observed or historical, etc.,' + CRLF + <-- original line. //kt 7/15/2007
29// 'that may be useful to the reviewer.' + CRLF + CRLF + <-- original line. //kt 7/15/2007
30
31// 'Already included are the entry you attempted, the patient you attempted to' + CRLF + <-- original line. //kt 7/15/2007
32// 'enter it for, and your name, title, and contact information.'; <-- original line. //kt 7/15/2007
33
34 var
35 tmpList: TStringList;
36
37 procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
38
39implementation
40
41{$R *.dfm}
42
43//kt Begin Mod (change Consts to Vars) 7/15/2007
44var
45 LABEL_TEXT : string; //kt
46//kt End Mod -------------------
47
48procedure SetupVars;
49//kt Added entire function to replace constant declarations 7/15/2007
50begin
51 LABEL_TEXT := DKLangConstW('fARTFreeTextMsg_You_may_now_add_any_comments_you_may_have_to_the_message_that') + CRLF +
52 DKLangConstW('fARTFreeTextMsg_is_going_to_be_sent_with_the_request_to_add_this_reactant') + CRLF + CRLF +
53 DKLangConstW('fARTFreeTextMsg_You_may_want_to_add_things_like_signsymptoms_observed_or_historical_etc') + CRLF +
54 DKLangConstW('fARTFreeTextMsg_that_may_be_useful_to_the_reviewer') + CRLF + CRLF +
55 DKLangConstW('fARTFreeTextMsg_Already_included_are_the_entry_you_attempted_the_patient_you_attempted_to') + CRLF +
56 DKLangConstW('fARTFreeTextMsg_enter_it_for_and_your_name_title_and_contact_information');
57end;
58
59procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
60var
61 frmARTFreeTextMsg: TfrmARTFreeTextMsg;
62begin
63 SetupVars; //kt added 7/15/2007 to replace constants with vars.
64 frmARTFreeTextMsg := TfrmARTFreeTextMsg.Create(Application);
65 tmpList := TStringList.Create;
66 try
67 with frmARTFreeTextMsg do
68 begin
69 FContinue := OKtoContinue;
70 tmpList.Text := '';
71 lblText.Caption := LABEL_TEXT;
72 ResizeFormToFont(TForm(frmARTFreeTextMsg));
73 ActiveControl := memFreeText;
74 frmARTFreeTextMsg.ShowModal;
75 OKtoContinue := FContinue;
76 AFreeTextComment.Assign(tmpList);
77 end;
78 finally
79 tmpList.Free;
80 frmARTFreeTextMsg.Release;
81 end;
82end;
83
84procedure TfrmARTFreeTextMsg.cmdContinueClick(Sender: TObject);
85begin
86 inherited;
87 tmpList.Assign(memFreeText.Lines);
88 FContinue := True;
89 Close;
90end;
91
92end.
Note: See TracBrowser for help on using the repository browser.