Produced by Araxis Merge on 4/16/2019 12:20:46 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | fCoverSheet.pas | Wed Dec 12 14:04:36 2018 UTC |
2 | C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | fCoverSheet.pas | Fri Apr 12 13:42:06 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 318 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | unit fCove rSheet; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: CPRS - Covershee t | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: 2015-1 2-21 | |
9 | * | |
10 | * Descriptio n: Main f orm for ot her covers heet compo nents. | |
11 | * | |
12 | * Notes: | |
13 | * | |
14 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
15 | } | |
16 | ||
17 | interface | |
18 | ||
19 | uses | |
20 | Winapi.W indows, | |
21 | Winapi.M essages, | |
22 | System.S ysUtils, | |
23 | System.U ITypes, | |
24 | System.V ariants, | |
25 | System.C lasses, | |
26 | Vcl.Grap hics, | |
27 | Vcl.Cont rols, | |
28 | Vcl.Form s, | |
29 | Vcl.Dial ogs, | |
30 | Vcl.StdC trls, | |
31 | Vcl.ExtC trls, | |
32 | VA508Acc essibility Router, | |
33 | iCoverSh eetIntf; | |
34 | ||
35 | type | |
36 | TfrmCove rSheet = c lass(TForm , ICPRSTab ) | |
37 | gpMain : TGridPan el; | |
38 | private | |
39 | fDispl ayCount: I nteger; | |
40 | fPatie ntCount: I nteger; | |
41 | fCalli ngContext: Integer; | |
42 | ||
43 | { Prev ents auto free when RefCount = 0 needed for interf aces} | |
44 | functi on _AddRef : Integer; stdcall; | |
45 | functi on _Releas e: Integer ; stdcall; | |
46 | protecte d | |
47 | { ICPR STab } | |
48 | proced ure OnClea rPtData(Se nder: TObj ect); virt ual; | |
49 | proced ure OnDisp layPage(Se nder: TObj ect; aCall ingContext : Integer) ; virtual; | |
50 | proced ure OnLoad ed(Sender: TObject); virtual; | |
51 | ||
52 | { ICPR S508 } | |
53 | proced ure OnFocu sFirstCont rol(Sender : TObject) ; virtual; | |
54 | proced ure OnSetF ontSize(Se nder: TObj ect; aNewS ize: Integ er); virtu al; | |
55 | proced ure OnSetS creenReade rStatus(Se nder: TObj ect; aActi ve: boolea n); | |
56 | public | |
57 | { Publ ic declara tions } | |
58 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
59 | end; | |
60 | ||
61 | var | |
62 | frmCover Sheet: Tfr mCoverShee t; | |
63 | ||
64 | implementa tion | |
65 | ||
66 | uses | |
67 | uConst, | |
68 | uCore; | |
69 | ||
70 | {$R *.dfm} | |
71 | ||
72 | { TfrmCove rSheet } | |
73 | ||
74 | constructo r TfrmCove rSheet.Cre ate(aOwner : TCompone nt); | |
75 | begin | |
76 | inherite d; | |
77 | fPatient Count := 0 ; | |
78 | fDisplay Count := 0 ; | |
79 | fCalling Context := 0; | |
80 | end; | |
81 | ||
82 | procedure TfrmCoverS heet.OnFoc usFirstCon trol(Sende r: TObject ); | |
83 | var | |
84 | aCPRS508 : ICPRS508 ; | |
85 | begin | |
86 | if Visib le then | |
87 | if Sup ports(Cove rSheet, IC PRS508, aC PRS508) th en | |
88 | aCPR S508.OnFoc usFirstCon trol(Sende r); | |
89 | end; | |
90 | ||
91 | procedure TfrmCoverS heet.OnLoa ded(Sender : TObject) ; | |
92 | begin | |
93 | inherite d Loaded; | |
94 | Visible := False; | |
95 | Position := poDefa ult; | |
96 | BorderIc ons := []; | |
97 | BorderSt yle := bsN one; | |
98 | HandleNe eded; | |
99 | SetBound s(0, 0, Wi dth, Heigh t); | |
100 | end; | |
101 | ||
102 | procedure TfrmCoverS heet.OnSet FontSize(S ender: TOb ject; aNew Size: Inte ger); | |
103 | begin | |
104 | Font.Siz e := aNewS ize; | |
105 | end; | |
106 | ||
107 | procedure TfrmCoverS heet.OnSet ScreenRead erStatus(S ender: TOb ject; aAct ive: boole an); | |
108 | begin | |
109 | // Nothi ng to do h ere, ICove rSheet is an entry p oint. | |
110 | end; | |
111 | ||
112 | procedure TfrmCoverS heet.OnCle arPtData(S ender: TOb ject); | |
113 | begin | |
114 | CoverShe et.OnClear PtData(Sen der); | |
115 | fPatient Count := 0 ; | |
116 | end; | |
117 | ||
118 | procedure TfrmCoverS heet.OnDis playPage(S ender: TOb ject; aCal lingContex t: Integer ); | |
119 | { cause th e page to be display ed and upd ate the di splay coun ters } | |
120 | begin | |
121 | BringToF ront; | |
122 | ||
123 | Inc(fDis playCount) ; | |
124 | Inc(fPat ientCount) ; | |
125 | ||
126 | if (aCal lingContex t = CC_CLI CK) and (f PatientCou nt = 1) th en | |
127 | fCalli ngContext := CC_INIT _PATIENT | |
128 | else | |
129 | fCalli ngContext := aCallin gContext; | |
130 | ||
131 | if fDisp layCount = 1 then | |
132 | begin | |
133 | Cove rSheet.OnI nitCoverSh eet(Self); | |
134 | Cove rSheet.OnD isplay(Sel f, gpMain) ; | |
135 | end; | |
136 | ||
137 | if fPati entCount = 1 then | |
138 | CoverS heet.OnSwi tchToPatie nt(Self, P atient.DFN ); | |
139 | ||
140 | if Activ eControl < > nil then | |
141 | FocusC ontrol(Act iveControl ) | |
142 | else | |
143 | OnFocu sFirstCont rol(Sender ); | |
144 | end; | |
145 | ||
146 | function T frmCoverSh eet._AddRe f: Integer ; | |
147 | begin | |
148 | Result : = -1; | |
149 | end; | |
150 | ||
151 | function T frmCoverSh eet._Relea se: Intege r; | |
152 | begin | |
153 | Result : = -1; | |
154 | end; | |
155 | ||
156 | initializa tion | |
157 | ||
158 | SpecifyFor mIsNotADia log(TfrmCo verSheet); | |
159 | ||
160 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.