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_Web.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParam_Web.pas | Thu May 9 00:51:40 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 184 |
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_Web; | |
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 T CoverSheet Param this parameter holds | |
12 | * custom items for displayin g CPRS dat a in the C overSheet. | |
13 | * | |
14 | * Notes: | |
15 | * | |
16 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
17 | } | |
18 | interface | |
19 | ||
20 | uses | |
21 | System.C lasses, | |
22 | System.S ysUtils, | |
23 | Vcl.Cont rols, | |
24 | oCoverSh eetParam, | |
25 | iCoverSh eetIntf; | |
26 | ||
27 | type | |
28 | TCoverSh eetParam_W eb = class (TCoverShe etParam, I CoverSheet Param_Web) | |
29 | private | |
30 | { Priv ate declar ations } | |
31 | fHomeP age: strin g; | |
32 | fShowN avigator: boolean; | |
33 | ||
34 | functi on getHome Page: stri ng; | |
35 | functi on getShow Navigator: boolean; | |
36 | ||
37 | proced ure setHom ePage(cons t aValue: string); | |
38 | proced ure setSho wNavigator (const aVa lue: boole an); | |
39 | protecte d | |
40 | { Prot ected decl arations } | |
41 | functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide; | |
42 | public | |
43 | { Publ ic declara tions } | |
44 | constr uctor Crea te(aInitSt r: string = ''); | |
45 | end; | |
46 | ||
47 | implementa tion | |
48 | ||
49 | uses | |
50 | mCoverSh eetDisplay Panel_Web, | |
51 | oDelimit edString; | |
52 | ||
53 | { TCoverSh eetParam_W eb } | |
54 | ||
55 | constructo r TCoverSh eetParam_W eb.Create( aInitStr: string = ' '); | |
56 | begin | |
57 | inherite d Create; | |
58 | with New DelimitedS tring(aIni tStr) do | |
59 | try | |
60 | setT itle(GetPi eceAsStrin g(2, 'Mini -Browser') ); | |
61 | fHom ePage := G etPieceAsS tring(3, ' http://www .google.co m'); | |
62 | fSho wNavigator := GetPie ceAsBoolea n(4, False ); | |
63 | finall y | |
64 | Free ; | |
65 | end; | |
66 | end; | |
67 | ||
68 | function T CoverSheet Param_Web. getHomePag e: string; | |
69 | begin | |
70 | Result : = fHomePag e; | |
71 | end; | |
72 | ||
73 | function T CoverSheet Param_Web. getShowNav igator: bo olean; | |
74 | begin | |
75 | Result : = fShowNav igator; | |
76 | end; | |
77 | ||
78 | procedure TCoverShee tParam_Web .setHomePa ge(const a Value: str ing); | |
79 | begin | |
80 | fHomePag e := aValu e; | |
81 | end; | |
82 | ||
83 | procedure TCoverShee tParam_Web .setShowNa vigator(co nst aValue : boolean) ; | |
84 | begin | |
85 | fShowNav igator := aValue; | |
86 | end; | |
87 | ||
88 | function T CoverSheet Param_Web. NewCoverSh eetControl (aOwner: T Component) : TControl ; | |
89 | begin | |
90 | Result : = TfraCove rSheetDisp layPanel_W eb.Create( aOwner); | |
91 | end; | |
92 | ||
93 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.