source: cprs/branches/tmg-cprs/CPRS-Chart/fNoteBA.pas@ 1725

//kt -- Modified with SourceScanner on 7/19/2007
unit fNoteBA;

interface

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

type
  TfrmNotesByAuthor = class(TForm)
    pnlBase: TORAutoPanel;
    lblAuthor: TLabel;
    radSort: TRadioGroup;
    cboAuthor: TORComboBox;
    cmdOK: TButton;
    cmdCancel: TButton;
    DKLanguageController1: TDKLanguageController;
    procedure cboAuthorNeedData(Sender: TObject; const StartFrom: string;
      Direction, InsertAt: Integer);
    procedure cmdCancelClick(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
  private
    //kt Begin Mod (change Consts to Vars) 7/19/2007
    TX_AUTH_TEXT  : string;  //kt
    TX_AUTH_CAP   : string;  //kt
    //kt End Mod -------------------
    FChanged: Boolean;
    FAuthor: Int64;
    FAuthorName: string;
    FAscending: Boolean;
    procedure SetupVars;  //kt
  end;

  TAuthorContext = record
    Changed: Boolean;
    Author: Int64;
    AuthorName: string;
    Ascending: Boolean;
  end;

procedure SelectAuthor(FontSize: Integer; CurrentContext: TTIUContext; var AuthorContext: TAuthorContext);

implementation

{$R *.DFM}

uses rTIU, rCore, uCore;

//const
//TX_AUTH_TEXT = 'Select a progress note author or press Cancel.';  <-- original line.  //kt 7/19/2007
//TX_AUTH_CAP = 'Missing Author';  <-- original line.  //kt 7/19/2007



procedure TfrmNotesByAuthor.SetupVars;
//kt Added entire function to replace constant declarations 7/19/2007
begin
  TX_AUTH_TEXT := DKLangConstW('fNoteBA_Select_a_progress_note_author_or_press_Cancelx');
  TX_AUTH_CAP := DKLangConstW('fNoteBA_Missing_Author');
end;
 
procedure SelectAuthor(FontSize: Integer; CurrentContext: TTIUContext; var AuthorContext: TAuthorContext);
{ displays author select form for progress notes and returns a record of the selection }
var
  frmNotesByAuthor: TfrmNotesByAuthor;
  W, H: integer;
  CurrentAuthor: Int64;
begin
  frmNotesByAuthor := TfrmNotesByAuthor.Create(Application);
  try
    with frmNotesByAuthor do
    begin
      Font.Size := FontSize;
      W := ClientWidth;
      H := ClientHeight;
      ResizeToFont(FontSize, W, H);
      ClientWidth  := W; pnlBase.Width  := W;
      ClientHeight := H; pnlBase.Height := W;
      FChanged := False;
      CurrentAuthor := CurrentContext.Author;
      with cboAuthor do
        if CurrentAuthor > 0 then
          begin
            InitLongList(ExternalName(CurrentAuthor, 200));
            SelectByIEN(CurrentAuthor);
          end
        else
          begin
            InitLongList(User.Name);
            SelectByIEN(User.DUZ);
          end;
      FAscending := CurrentContext.TreeAscending;
      with radSort do if FAscending then ItemIndex := 0 else ItemIndex := 1;
      ShowModal;
      with AuthorContext do
      begin
        Changed := FChanged;
        Author := FAuthor;
        AuthorName := FAuthorName;
        Ascending := FAscending;
      end; {with AuthorContext}
    end; {with frmNotesByAuthor}
  finally
    frmNotesByAuthor.Release;
  end;
end;

procedure TfrmNotesByAuthor.cboAuthorNeedData(Sender: TObject; const StartFrom: string;
  Direction, InsertAt: Integer);
begin
  cboAuthor.ForDataUse(SubSetOfActiveAndInactivePersons(StartFrom, Direction));
end;

procedure TfrmNotesByAuthor.cmdCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmNotesByAuthor.cmdOKClick(Sender: TObject);
begin
  SetupVars;  //kt added 7/19/2007 to replace constants with vars.
  if cboAuthor.ItemIEN = 0 then
  begin
    InfoBox(TX_AUTH_TEXT, TX_AUTH_CAP, MB_OK or MB_ICONWARNING);
    Exit;
  end;
  FChanged := True;
  FAuthor := cboAuthor.ItemIEN;
  FAuthorName := cboAuthor.DisplayText[cboAuthor.ItemIndex];
  FAscending := radSort.ItemIndex = 0;
  Close;
end;

end.