Module

fAbout

Path

C:\CPRS\CPRS30\fAbout.pas

Last Modified

7/15/2014 3:26:36 PM

Units Used in Interface

Name Comments
fAutoSz -

Classes

Name Comments
TfrmAbout -

Procedures

Name Owner Declaration Scope Comments
FormCreate TfrmAbout procedure FormCreate(Sender: TObject); Public/Published -
ShowAbout - procedure ShowAbout; Interfaced -


Module Source

1     unit fAbout;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       fAutoSz, StdCtrls, ExtCtrls, VA508AccessibilityManager;
8     
9     type
10      TfrmAbout = class(TfrmAutoSz)
11        pnlLogo: TPanel;
12        Image1: TImage;
13        lblProductName: TStaticText;
14        lblFileVersion: TStaticText;
15        lblCompanyName: TStaticText;
16        lblComments: TStaticText;
17        lblCRC: TStaticText;
18        lblFileDescription: TStaticText;
19        lblInternalName: TStaticText;
20        lblOriginalFileName: TStaticText;
21        pnlBottom: TPanel;
22        pnlButton: TPanel;
23        cmdOK: TButton;
24        pnlCopyright: TPanel;
25        lblLegalCopyright: TMemo;
26        pnl508Disclaimer: TPanel;
27        lbl508Notice: TMemo;
28        procedure FormCreate(Sender: TObject);
29      private
30        { Private declarations }
31      public
32        { Public declarations }
33      end;
34    
35    procedure ShowAbout;
36    
37    implementation
38    
39    {$R *.DFM}
40    
41    uses VAUtils, ORFn;
42    
43    procedure ShowAbout;
44    var
45      frmAbout: TfrmAbout;
46    begin
47      frmAbout := TfrmAbout.Create(Application);
48      try
49        ResizeFormToFont(TForm(frmAbout));
50        frmAbout.lblLegalCopyright.SelStart := 0;
51        frmAbout.lblLegalCopyright.SelLength := 0;
52        frmAbout.lbl508Notice.SelStart := 0;
53        frmAbout.lbl508Notice.SelLength := 0;
54        frmAbout.ShowModal;
55      finally
56        frmAbout.Release;
57      end;
58    end;
59    
60    procedure TfrmAbout.FormCreate(Sender: TObject);
61    begin
62      inherited;
63      lblCompanyName.Caption        := 'Developed by the ' + FileVersionValue(Application.ExeName, FILE_VER_COMPANYNAME);
64      lblFileDescription.Caption    := 'Compiled ' + FileVersionValue(Application.ExeName, FILE_VER_FILEDESCRIPTION);  //date
65      lblFileVersion.Caption        := FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
66      lblInternalName.Caption       := FileVersionValue(Application.ExeName, FILE_VER_INTERNALNAME);
67      lblLegalCopyright.Text        := FileVersionValue(Application.ExeName, FILE_VER_LEGALCOPYRIGHT);
68      lblOriginalFileName.Caption   := FileVersionValue(Application.ExeName, FILE_VER_ORIGINALFILENAME);  //patch
69      lblProductName.Caption        := FileVersionValue(Application.ExeName, FILE_VER_PRODUCTNAME);
70      lblComments.Caption           := FileVersionValue(Application.ExeName, FILE_VER_COMMENTS);  // version comment
71      lblCRC.Caption                := 'CRC: ' + IntToHex(CRCForFile(Application.ExeName), 8);
72    end;
73    
74    end.

Module Calls (2 levels)


fAbout
 └fAutoSz
   └fBase508Form

Module Called-By (2 levels)


                     fAbout
                   fFrame┘ 
              CPRSChart┤   
                  fPage┤   
                uOrders┤   
                fODBase┤   
                UBACore┤   
                fOrders┤   
                   uPCE┤   
      fBALocalDiagnoses┤   
             fEncVitals┤   
                fVitals┤   
                 fCover┤   
                 rCover┤   
              fPtSelMsg┤   
                 fPtSel┤   
            fOrdersSign┤   
         fPrintLocation┤   
                  fMeds┤   
                fRptBox┤   
                 fNotes┤   
               fReports┤   
                 fEncnt┤   
                 fProbs┤   
          fReportsPrint┤   
                fGraphs┤   
              fConsults┤   
                fDCSumm┤   
        fReminderDialog┤   
                  fLabs┤   
              fLabPrint┤   
                fReview┤   
            fIconLegend┤   
           fOrdersPrint┤   
               fSurgery┤   
uVA508CPRSCompatibility┤   
           fOrdersRenew┤   
             fODConsult┤   
                fODProc┤   
                 fODRad┤   
                 fODLab┤   
                fODMeds┤   
               fODMedIV┤   
              fODVitals┤   
                fODAuto┤   
                 fOMSet┤   
         fOrdersRelease┤   
              fODMedNVA┤   
         fOrdersOnChart┤   
             fOCSession┤   
              fODActive┤   
               fPCEEdit┘