source: cprs/trunk/CPRS-Chart/fPtSelOptSave.pas@ 468

unit fPtSelOptSave;

interface

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

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';
  fPtSelOptns.clinDoSave := false; // Initialize.
  fPtSelOptns.clinSaveToday := false;
  lblClinSettings.text := 'Save ' + fPtSelOptns.clinDefaults +
                             CRLF + ' defaults as follows?';
  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);
    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.