Produced by Araxis Merge on 5/10/2019 1:00:04 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 | mCoverSheetDisplayPanel.pas | Wed Apr 3 19:32:15 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel.pas | Thu May 9 00:51:18 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 226 |
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 mCove rSheetDisp layPanel; | |
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-04 | |
9 | * | |
10 | * Descriptio n: Inheri ted from T fraGridPan elFrame. T his displa y panel | |
11 | * provid es the min imum funct ionality f or display ing anythi ng | |
12 | * in the CPRS Cove rSheet. | |
13 | * | |
14 | * Notes: This f rame is an ancestor object and heavily i nherited f rom. | |
15 | * ABSOLU TELY NO CH ANGES SHOU LD BE MADE WITHOUT F IRST | |
16 | * CONFER RING WITH THE CPRS D EVELOPMENT TEAM ABOU T POSSIBLE | |
17 | * RAMIFI CATIONS WI TH DESCEND ANT FRAMES . | |
18 | * | |
19 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
20 | } | |
21 | ||
22 | interface | |
23 | ||
24 | uses | |
25 | Winapi.W indows, | |
26 | Winapi.M essages, | |
27 | System.S ysUtils, | |
28 | System.V ariants, | |
29 | System.C lasses, | |
30 | System.I mageList, | |
31 | Vcl.Grap hics, | |
32 | Vcl.Cont rols, | |
33 | Vcl.Form s, | |
34 | Vcl.Dial ogs, | |
35 | Vcl.ImgL ist, | |
36 | Vcl.Menu s, | |
37 | Vcl.Butt ons, | |
38 | Vcl.StdC trls, | |
39 | Vcl.ExtC trls, | |
40 | iGridPan elIntf, | |
41 | iCoverSh eetIntf, | |
42 | mGridPan elFrame; | |
43 | ||
44 | type | |
45 | TfraCove rSheetDisp layPanel = class(Tfr aGridPanel Frame, ICo verSheetDi splayPanel , ICPRS508 ) | |
46 | private | |
47 | fParam : ICoverSh eetParam; | |
48 | protecte d | |
49 | { Prot ected decl arations } | |
50 | ||
51 | functi on getPara m: ICoverS heetParam; virtual; | |
52 | proced ure setPar am(const a Value: ICo verSheetPa ram); virt ual; | |
53 | functi on getIsFi nishedLoad ing: boole an; virtua l; | |
54 | ||
55 | { Intr oduced eve nts } | |
56 | proced ure OnClea rPtData(Se nder: TObj ect); virt ual; | |
57 | proced ure OnBegi nUpdate(Se nder: TObj ect); virt ual; | |
58 | proced ure OnEndU pdate(Send er: TObjec t); virtua l; | |
59 | public | |
60 | { Publ ic declara tions } | |
61 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
62 | destru ctor Destr oy; overri de; | |
63 | end; | |
64 | ||
65 | var | |
66 | fraCover SheetDispl ayPanel: T fraCoverSh eetDisplay Panel; | |
67 | ||
68 | implementa tion | |
69 | ||
70 | {$R *.dfm} | |
71 | ||
72 | { TfraCove rSheetDisp layPanel } | |
73 | ||
74 | constructo r TfraCove rSheetDisp layPanel.C reate(aOwn er: TCompo nent); | |
75 | begin | |
76 | inherite d; | |
77 | end; | |
78 | ||
79 | destructor TfraCover SheetDispl ayPanel.De stroy; | |
80 | begin | |
81 | inherite d; | |
82 | end; | |
83 | ||
84 | procedure TfraCoverS heetDispla yPanel.OnB eginUpdate (Sender: T Object); | |
85 | begin | |
86 | // | |
87 | end; | |
88 | ||
89 | procedure TfraCoverS heetDispla yPanel.OnC learPtData (Sender: T Object); | |
90 | begin | |
91 | // | |
92 | end; | |
93 | ||
94 | procedure TfraCoverS heetDispla yPanel.OnE ndUpdate(S ender: TOb ject); | |
95 | begin | |
96 | // | |
97 | end; | |
98 | ||
99 | function T fraCoverSh eetDisplay Panel.getI sFinishedL oading: bo olean; | |
100 | begin | |
101 | Result : = True; | |
102 | end; | |
103 | ||
104 | function T fraCoverSh eetDisplay Panel.getP aram: ICov erSheetPar am; | |
105 | begin | |
106 | Supports (fParam, I CoverSheet Param, Res ult); | |
107 | end; | |
108 | ||
109 | procedure TfraCoverS heetDispla yPanel.set Param(cons t aValue: ICoverShee tParam); | |
110 | begin | |
111 | Supports (aValue, I CoverSheet Param, fPa ram); | |
112 | end; | |
113 | ||
114 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.