Module

fPtSelOptSave

Path

C:\CPRS\CPRS30\fPtSelOptSave.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fBase508Form -

Units Used in Implementation

Name Comments
fPtSelOptns -
rCore -

Classes

Name Comments
TfrmPtSelOptSave -

Procedures

Name Owner Declaration Scope Comments
btnCancelClick TfrmPtSelOptSave procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick TfrmPtSelOptSave procedure btnOKClick(Sender: TObject); Public/Published -
FormCreate TfrmPtSelOptSave procedure FormCreate(Sender: TObject); Public/Published -
rGrpClinSaveClick TfrmPtSelOptSave procedure rGrpClinSaveClick(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmPtSelOptSave TfrmPtSelOptSave frmPtSelOptSave: TfrmPtSelOptSave; -


Module Source

1     unit fPtSelOptSave;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, ExtCtrls, ORCtrls, ORFn, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmPtSelOptSave = class(TfrmBase508Form)
11        pnlClinSave: TPanel;
12        rGrpClinSave: TKeyClickRadioGroup;
13        lblClinSettings: TMemo;
14        btnOK: TButton;
15        btnCancel: TButton;
16        procedure FormCreate(Sender: TObject);
17        procedure btnCancelClick(Sender: TObject);
18        procedure btnOKClick(Sender: TObject);
19        procedure rGrpClinSaveClick(Sender: TObject);
20      private
21        { Private declarations }
22      public
23        { Public declarations }
24      end;
25    
26    var
27      frmPtSelOptSave: TfrmPtSelOptSave;
28    
29    implementation
30    
31    {$R *.DFM}
32    
33    uses
34      rCore, fPtSelOptns;
35    
36    procedure TfrmPtSelOptSave.FormCreate(Sender: TObject);
37    begin
38      ResizeAnchoredFormToFont(self);
39      self.caption := 'Save Patient List Settings';
40      fPtSelOptns.clinDoSave := false; // Initialize.
41      fPtSelOptns.clinSaveToday := false;
42      lblClinSettings.text := 'Save ' + fPtSelOptns.clinDefaults +
43                                 CRLF + ' defaults as follows?';
44      rGrpClinSave.itemIndex := -1;
45    //  rGrpClinSave.TabStop := True;
46      btnOK.Enabled := False;
47    end;
48    
49    procedure TfrmPtSelOptSave.btnCancelClick(Sender: TObject);
50    begin
51      close;
52    end;
53    
54    procedure TfrmPtSelOptSave.btnOKClick(Sender: TObject);
55    begin
56    
57    if ((rGrpClinSave.itemIndex < 0) or (rGrpClinSave.itemIndex >1)) then
58      begin
59        InfoBox('No selection made', 'Clinic Save Options', MB_OK);
60        exit;
61      end;
62      if (rGrpClinSave.itemIndex = 0) then
63        fPtSelOptns.clinSaveToday := false;
64      if (rGrpClinSave.itemIndex = 1) then
65        fPtSelOptns.clinSaveToday := true;
66      fPtSelOptns.clinDoSave := true;
67    close;
68    
69    end;
70    
71    procedure TfrmPtSelOptSave.rGrpClinSaveClick(Sender: TObject);
72    var
73      Chosen: Boolean;
74    begin
75      Chosen := rGrpClinSave.ItemIndex >= 0;
76    //  rGrpClinSave.TabStop := not Chosen;
77      btnOK.Enabled := Chosen;
78    end;
79    
80    end.

Module Calls (2 levels)


fPtSelOptSave
 ├fBase508Form
 │ ├uConst
 │ └uHelpManager
 └fPtSelOptns
   ├fBase508Form...
   ├rCore
   ├fPtSelOptSave...
   └fPtSel

Module Called-By (2 levels)


       fPtSelOptSave
       fPtSelOptns┘ 
          fPtSel┤   
fPtSelOptSave...┤   
   fOptionsLists┘