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.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParam.pas | Thu May 9 00:51:33 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 206 |
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; | |
2 | ||
3 | { | |
4 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
5 | * | |
6 | * Applicatio n: CPRS - Covershee t | |
7 | * Developer: PII | |
8 | * Site: Salt L ake City I SC | |
9 | * | |
10 | * Descriptio n: Simple object th at maintai ns the par ameters fo r any | |
11 | * CoverS heet panel . | |
12 | * | |
13 | * Notes: | |
14 | * | |
15 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
16 | } | |
17 | interface | |
18 | ||
19 | uses | |
20 | System.C lasses, | |
21 | System.S ysUtils, | |
22 | Vcl.Cont rols, | |
23 | Vcl.Grap hics, | |
24 | iCoverSh eetIntf; | |
25 | ||
26 | type | |
27 | TCoverSh eetParam = class(TIn terfacedOb ject, ICov erSheetPar am) | |
28 | private | |
29 | // | |
30 | protecte d | |
31 | fID: i nteger; | |
32 | fDispl ayCol: int eger; | |
33 | fDispl ayRow: int eger; | |
34 | fTitle : string; | |
35 | ||
36 | functi on getID: integer; | |
37 | functi on getDisp layColumn: integer; | |
38 | functi on getDisp layRow: in teger; | |
39 | functi on getTitl e: string; | |
40 | ||
41 | proced ure setDis playColumn (const aVa lue: integ er); | |
42 | proced ure setDis playRow(co nst aValue : integer) ; | |
43 | proced ure setTit le(const a Value: str ing); | |
44 | ||
45 | functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; virtu al; abstra ct; | |
46 | public | |
47 | constr uctor Crea te; | |
48 | destru ctor Destr oy; overri de; | |
49 | end; | |
50 | ||
51 | implementa tion | |
52 | ||
53 | { TCoverSh eetParam } | |
54 | ||
55 | constructo r TCoverSh eetParam.C reate; | |
56 | begin | |
57 | inherite d Create; | |
58 | fID := 0 ; | |
59 | fDisplay Col := -1; | |
60 | fDisplay Row := -1; | |
61 | fTitle : = 'Base TC overSheetP aram'; | |
62 | end; | |
63 | ||
64 | destructor TCoverShe etParam.De stroy; | |
65 | begin | |
66 | inherite d; | |
67 | end; | |
68 | ||
69 | function T CoverSheet Param.getI D: integer ; | |
70 | begin | |
71 | Result : = fID; | |
72 | end; | |
73 | ||
74 | function T CoverSheet Param.getD isplayColu mn: intege r; | |
75 | begin | |
76 | Result : = fDisplay Col; | |
77 | end; | |
78 | ||
79 | function T CoverSheet Param.getD isplayRow: integer; | |
80 | begin | |
81 | Result : = fDisplay Row; | |
82 | end; | |
83 | ||
84 | function T CoverSheet Param.getT itle: stri ng; | |
85 | begin | |
86 | Result : = fTitle; | |
87 | end; | |
88 | ||
89 | procedure TCoverShee tParam.set DisplayCol umn(const aValue: in teger); | |
90 | begin | |
91 | fDisplay Col := aVa lue; | |
92 | end; | |
93 | ||
94 | procedure TCoverShee tParam.set DisplayRow (const aVa lue: integ er); | |
95 | begin | |
96 | fDisplay Row := aVa lue; | |
97 | end; | |
98 | ||
99 | procedure TCoverShee tParam.set Title(cons t aValue: string); | |
100 | begin | |
101 | fTitle : = aValue; | |
102 | end; | |
103 | ||
104 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.