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

//kt -- Modified with SourceScanner on 7/15/2007
unit fARTFreeTextMsg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls, DKLang;

type
  TfrmARTFreeTextMsg = class(TfrmAutoSz)
    pnlText: TORAutoPanel;
    pnlButton: TORAutoPanel;
    cmdContinue: TButton;
    lblText: TLabel;
    memFreeText: TCaptionRichEdit;
    lblComments: TOROffsetLabel;
    procedure cmdContinueClick(Sender: TObject);
  private
    FContinue: boolean;
  public
  end;

//  const
//  LABEL_TEXT = 'You may now add any comments you may have to the message that' + CRLF +  <-- original line.  //kt 7/15/2007
//               'is going to be sent with the request to add this reactant.' + CRLF + CRLF +  <-- original line.  //kt 7/15/2007

//               'You may want to add things like sign/symptoms, observed or historical, etc.,' + CRLF +  <-- original line.  //kt 7/15/2007
//               'that may be useful to the reviewer.' + CRLF + CRLF +  <-- original line.  //kt 7/15/2007

//               'Already included are the entry you attempted, the patient you attempted to' + CRLF +  <-- original line.  //kt 7/15/2007
//               'enter it for, and your name, title, and contact information.';  <-- original line.  //kt 7/15/2007

  var
    tmpList: TStringList;

  procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);

implementation

{$R *.dfm}

//kt Begin Mod (change Consts to Vars) 7/15/2007
var
  LABEL_TEXT  : string;  //kt
//kt End Mod -------------------

procedure SetupVars;
//kt Added entire function to replace constant declarations 7/15/2007
begin
  LABEL_TEXT := DKLangConstW('fARTFreeTextMsg_You_may_now_add_any_comments_you_may_have_to_the_message_that') + CRLF +
                DKLangConstW('fARTFreeTextMsg_is_going_to_be_sent_with_the_request_to_add_this_reactant') + CRLF + CRLF +
                DKLangConstW('fARTFreeTextMsg_You_may_want_to_add_things_like_signsymptoms_observed_or_historical_etc') + CRLF +
                DKLangConstW('fARTFreeTextMsg_that_may_be_useful_to_the_reviewer') + CRLF + CRLF +
                DKLangConstW('fARTFreeTextMsg_Already_included_are_the_entry_you_attempted_the_patient_you_attempted_to') + CRLF +
                DKLangConstW('fARTFreeTextMsg_enter_it_for_and_your_name_title_and_contact_information');
end;

procedure GetFreeTextARTComment(var AFreeTextComment: TStringList; var OKtoContinue: boolean);
var
  frmARTFreeTextMsg: TfrmARTFreeTextMsg;
begin
  SetupVars;  //kt added 7/15/2007 to replace constants with vars.
  frmARTFreeTextMsg := TfrmARTFreeTextMsg.Create(Application);
  tmpList := TStringList.Create;
  try
    with frmARTFreeTextMsg do
    begin
      FContinue := OKtoContinue;
      tmpList.Text := '';
      lblText.Caption := LABEL_TEXT;
      ResizeFormToFont(TForm(frmARTFreeTextMsg));
      ActiveControl := memFreeText;
      frmARTFreeTextMsg.ShowModal;
      OKtoContinue := FContinue;
      AFreeTextComment.Assign(tmpList);
    end;
  finally
    tmpList.Free;
    frmARTFreeTextMsg.Release;
  end;
end;

procedure TfrmARTFreeTextMsg.cmdContinueClick(Sender: TObject);
begin
  inherited;
  tmpList.Assign(memFreeText.Lines);
  FContinue := True;
  Close;
end;

end.