Produced by Araxis Merge on 5/10/2019 1:00:05 PM Eastern 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 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParam_CPRS_Allergies.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParam_CPRS_Allergies.pas | Thu May 9 00:51:35 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 114 |
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 oCove rSheetPara m_CPRS_All ergies; | |
2 | ||
3 | { | |
4 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
5 | * | |
6 | * Applicatio n: CPRS - CoverShee t | |
7 | * Developer: PII | |
8 | * Site: Salt L ake City I SC | |
9 | * Date: 2015-1 2-04 | |
10 | * | |
11 | * Descriptio n: Inheri ted from b ase. This parameter is used to override | |
12 | * the Ne wCoverShee tControl m ethod. | |
13 | * | |
14 | * Notes: | |
15 | * | |
16 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
17 | } | |
18 | interface | |
19 | ||
20 | uses | |
21 | System.C lasses, | |
22 | Vcl.Cont rols, | |
23 | oCoverSh eetParam_C PRS, | |
24 | iCoverSh eetIntf; | |
25 | ||
26 | type | |
27 | TCoverSh eetParam_C PRS_Allerg ies = clas s(TCoverSh eetParam_C PRS, ICove rSheetPara m) | |
28 | protecte d | |
29 | functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide; | |
30 | public | |
31 | constr uctor Crea te(aInitSt ring: stri ng); | |
32 | destru ctor Destr oy; overri de; | |
33 | end; | |
34 | ||
35 | implementa tion | |
36 | ||
37 | uses | |
38 | mCoverSh eetDisplay Panel_CPRS _Allergies ; | |
39 | ||
40 | { TCoverSh eetParam_C PRS_Allerg ies } | |
41 | ||
42 | constructo r TCoverSh eetParam_C PRS_Allerg ies.Create (aInitStri ng: string ); | |
43 | begin | |
44 | inherite d Create(a InitString ); | |
45 | setAllow DetailPrin t(True); | |
46 | end; | |
47 | ||
48 | destructor TCoverShe etParam_CP RS_Allergi es.Destroy ; | |
49 | begin | |
50 | inherite d; | |
51 | end; | |
52 | ||
53 | function T CoverSheet Param_CPRS _Allergies .NewCoverS heetContro l(aOwner: TComponent ): TContro l; | |
54 | begin | |
55 | Result : = TfraCove rSheetDisp layPanel_C PRS_Allerg ies.Create (aOwner); | |
56 | end; | |
57 | ||
58 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.