source: cprs/branches/tmg-cprs/CPRS-Chart/fPtSelOptSave.pas@ 455

//kt -- Modified with SourceScanner on 9/5/2007
unit fPtSelOptSave;

interface

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

type
  TfrmPtSelOptSave = class(TForm)
    pnlClinSave: TPanel;
    rGrpClinSave: TKeyClickRadioGroup;
    lblClinSettings: TMemo;
    btnOK: TButton;
    btnCancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure rGrpClinSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPtSelOptSave: TfrmPtSelOptSave;

implementation

{$R *.DFM}

uses
  rCore, fPtSelOptns;

procedure TfrmPtSelOptSave.FormCreate(Sender: TObject);
begin
  ResizeAnchoredFormToFont(self);
//self.caption := 'Save Patient List Settings';  <-- original line.  //kt 9/5/2007
  self.caption := DKLangConstW('fPtSelOptSave_Save_Patient_List_Settings'); //kt added 9/5/2007
  fPtSelOptns.clinDoSave := false; // Initialize.
  fPtSelOptns.clinSaveToday := false;
//lblClinSettings.text := 'Save ' + fPtSelOptns.clinDefaults +  <-- original line.  //kt 9/5/2007
  lblClinSettings.text := DKLangConstW('fPtSelOptSave_Save') + fPtSelOptns.clinDefaults + //kt added 9/5/2007
//                           CRLF + ' defaults as follows?';  <-- original line.  //kt 9/5/2007
                             CRLF + DKLangConstW('fPtSelOptSave_defaults_as_followsx'); //kt added 9/5/2007
  rGrpClinSave.itemIndex := -1;
//  rGrpClinSave.TabStop := True;
  btnOK.Enabled := False;
end;

procedure TfrmPtSelOptSave.btnCancelClick(Sender: TObject);
begin
  close;
end;

procedure TfrmPtSelOptSave.btnOKClick(Sender: TObject);
begin

if ((rGrpClinSave.itemIndex < 0) or (rGrpClinSave.itemIndex >1)) then
  begin
//  InfoBox('No selection made', 'Clinic Save Options', MB_OK);  <-- original line.  //kt 9/5/2007
    InfoBox(DKLangConstW('fPtSelOptSave_No_selection_made'), DKLangConstW('fPtSelOptSave_Clinic_Save_Options'), MB_OK); //kt added 9/5/2007
    exit;
  end;
  if (rGrpClinSave.itemIndex = 0) then
    fPtSelOptns.clinSaveToday := false;
  if (rGrpClinSave.itemIndex = 1) then
    fPtSelOptns.clinSaveToday := true;
  fPtSelOptns.clinDoSave := true;
close;

end;

procedure TfrmPtSelOptSave.rGrpClinSaveClick(Sender: TObject);
var
  Chosen: Boolean;
begin
  Chosen := rGrpClinSave.ItemIndex >= 0;
//  rGrpClinSave.TabStop := not Chosen;
  btnOK.Enabled := Chosen;
end;

end.