Module

fVitalsDate

Path

C:\CPRS\CPRS30\Vitals\fVitalsDate.pas

Last Modified

7/15/2014 3:26:44 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmVitalsDate -

Procedures

Name Owner Declaration Scope Comments
btnNowClick TfrmVitalsDate procedure btnNowClick(Sender: TObject); Public/Published -
FormCreate TfrmVitalsDate procedure FormCreate(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmVitalsDate TfrmVitalsDate frmVitalsDate: TfrmVitalsDate; -


Module Source

1     unit fVitalsDate;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, ORDtTm, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmVitalsDate = class(TfrmBase508Form)
11        dteVitals: TORDateBox;
12        Label1: TLabel;
13        btnOK: TButton;
14        btnCancel: TButton;
15        btnNow: TButton;
16        procedure btnNowClick(Sender: TObject);
17        procedure FormCreate(Sender: TObject);
18      private
19        { Private declarations }
20      public
21        { Public declarations }
22      end;
23    
24    var
25      frmVitalsDate: TfrmVitalsDate;
26    
27    implementation
28    
29    {$R *.DFM}
30    
31    uses
32      ORFn;
33      
34    procedure TfrmVitalsDate.btnNowClick(Sender: TObject);
35    begin
36      dteVitals.Text := 'NOW';
37    end;
38    
39    procedure TfrmVitalsDate.FormCreate(Sender: TObject);
40    begin
41      ResizeAnchoredFormToFont(Self);
42    end;
43    
44    end.

Module Calls (2 levels)


fVitalsDate
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)


        fVitalsDate
          uVitals┘ 
         fFrame┤   
     uReminders┤   
           uPCE┤   
     fEncVitals┤   
        fVitals┤   
fReminderDialog┤   
           fvit┘