source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fARTFreeTextMsg.pas@ 1704

Last change on this file since 1704 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 2.1 KB
Line 
1unit fARTFreeTextMsg;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls,
8 VA508AccessibilityManager;
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 +
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
39implementation
40
41{$R *.dfm}
42
43procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
44var
45 frmARTFreeTextMsg: TfrmARTFreeTextMsg;
46begin
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;
65end;
66
67procedure TfrmARTFreeTextMsg.cmdContinueClick(Sender: TObject);
68begin
69 inherited;
70 tmpList.Assign(memFreeText.Lines);
71 FContinue := True;
72 Close;
73end;
74
75end.
Note: See TracBrowser for help on using the repository browser.