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 | mCoverSheetDisplayPanel_CPRS_Reminders.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 | mCoverSheetDisplayPanel_CPRS_Reminders.pas | Fri Apr 12 13:42:14 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 432 |
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_C PRS_Remind ers; | |
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-08 | |
9 | * | |
10 | * Descriptio n: Custom ized displ ay panel f or Clinica l Reminder s. | |
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.V ariants, | |
24 | System.C lasses, | |
25 | System.I mageList, | |
26 | Vcl.Grap hics, | |
27 | Vcl.Cont rols, | |
28 | Vcl.Form s, | |
29 | Vcl.Dial ogs, | |
30 | Vcl.ExtC trls, | |
31 | Vcl.Menu s, | |
32 | Vcl.ImgL ist, | |
33 | Vcl.ComC trls, | |
34 | Vcl.StdC trls, | |
35 | Vcl.Butt ons, | |
36 | iCoverSh eetIntf, | |
37 | mCoverSh eetDisplay Panel_CPRS , | |
38 | oDelimit edString; | |
39 | ||
40 | type | |
41 | TfraCove rSheetDisp layPanel_C PRS_Remind ers = clas s(TfraCove rSheetDisp layPanel_C PRS) | |
42 | private | |
43 | fSepar ator: TMen uItem; | |
44 | fRemin derOptions : TMenuIte m; | |
45 | protecte d | |
46 | { Inhe rited meth ods } | |
47 | functi on getTitl e: string; override; | |
48 | proced ure setTit le(const a Value: str ing); over ride; | |
49 | ||
50 | { Inhe rited even ts - TfraG ridPanel } | |
51 | proced ure OnPopu pMenu(Send er: TObjec t); overri de; | |
52 | proced ure OnPopu pMenuInit( Sender: TO bject); ov erride; | |
53 | proced ure OnPopu pMenuFree( Sender: TO bject); ov erride; | |
54 | ||
55 | { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS } | |
56 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
57 | proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override; | |
58 | ||
59 | proced ure OnStar tBackgroun dLoad(Send er: TObjec t); overri de; | |
60 | proced ure OnComp leteBackgr oundLoad(S ender: TOb ject); ove rride; | |
61 | public | |
62 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
63 | destru ctor Destr oy; overri de; | |
64 | end; | |
65 | ||
66 | var | |
67 | fraCover SheetDispl ayPanel_CP RS_Reminde rs: TfraCo verSheetDi splayPanel _CPRS_Remi nders; | |
68 | ||
69 | implementa tion | |
70 | ||
71 | uses | |
72 | uCore, | |
73 | uReminde rs, | |
74 | rReminde rs, | |
75 | fIconLeg end, | |
76 | ORFn, | |
77 | ORNet; | |
78 | ||
79 | const | |
80 | CUSTOM_T ITLE = 'Cl inical Rem inders'; / / The orig inal title has colum n headers in it. | |
81 | ||
82 | {$R *.dfm} | |
83 | ||
84 | ||
85 | constructo r TfraCove rSheetDisp layPanel_C PRS_Remind ers.Create (aOwner: T Component) ; | |
86 | begin | |
87 | inherite d; | |
88 | ||
89 | AddColum n(0, 'Remi nder'); | |
90 | AddColum n(1, 'Due Date'); | |
91 | Collapse Columns; | |
92 | end; | |
93 | ||
94 | destructor TfraCover SheetDispl ayPanel_CP RS_Reminde rs.Destroy ; | |
95 | begin | |
96 | inherite d; | |
97 | end; | |
98 | ||
99 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnGetDet ail(aRec: TDelimited String; aR esult: TSt rings); | |
100 | var | |
101 | aList: T StringList ; | |
102 | begin | |
103 | aList := TStringLi st.Create; | |
104 | try | |
105 | Detail Reminder(a Rec.GetPie ceAsIntege r(1), aLis t); | |
106 | aResul t.Text := aList.Text ; | |
107 | finally | |
108 | FreeAn dNil(aList ); | |
109 | end; | |
110 | end; | |
111 | ||
112 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnAddIte ms(aList: TStrings); | |
113 | var | |
114 | aRec: TD elimitedSt ring; | |
115 | aStr: st ring; | |
116 | begin | |
117 | try | |
118 | lvData .Items.Beg inUpdate; | |
119 | for aS tr in aLis t do | |
120 | begi n | |
121 | aR ec := TDel imitedStri ng.Create( aStr); | |
122 | ||
123 | if lvData.It ems.Count = 0 then | |
124 | if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en | |
125 | begin | |
126 | Collap seColumns; | |
127 | lvData .Items.Add .Caption : = aRec.Get Piece(2); | |
128 | Contin ue; | |
129 | end | |
130 | else | |
131 | ExpandCo lumns; | |
132 | ||
133 | if aRec.GetP ieceIsNotN ull(3) the n | |
134 | with lvDat a.Items.Ad d do | |
135 | begin | |
136 | Captio n := aRec. GetPiece(2 ); | |
137 | if aRe c.GetPiece IsDouble(3 ) then | |
138 | SubI tems.Add(F ormatDateT ime('MMM D D, YYYY', aRec.GetPi eceAsTDate Time(3))) | |
139 | else | |
140 | SubI tems.Add(a Rec.GetPie ce(3)); | |
141 | Data : = aRec; | |
142 | end; | |
143 | end; | |
144 | if In itialRemin dersLoaded then Clea rReminderD ata; | |
145 | if (no t InitialR emindersLo aded) then | |
146 | begi n | |
147 | Re mindersSta rted := Tr ue; | |
148 | In itialRemin dersLoaded := True; | |
149 | Lo adReminder Data; | |
150 | end; | |
151 | finally | |
152 | lvData .Items.End Update; | |
153 | end; | |
154 | end; | |
155 | ||
156 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnStartB ackgroundL oad(Sender : TObject) ; | |
157 | begin | |
158 | inherite d; | |
159 | CoverShe etReminder sInBackgro und := Tru e; | |
160 | CoverShe et.OnRefre shReminder s(Sender); | |
161 | Applicat ion.Proces sMessages; | |
162 | end; | |
163 | ||
164 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnComple teBackgrou ndLoad(Sen der: TObje ct); | |
165 | begin | |
166 | inherite d; | |
167 | CoverShe etReminder sInBackgro und := Fal se; | |
168 | CoverShe et.OnRefre shReminder s(Sender); | |
169 | Applicat ion.Proces sMessages; | |
170 | end; | |
171 | ||
172 | function T fraCoverSh eetDisplay Panel_CPRS _Reminders .getTitle: string; | |
173 | begin | |
174 | Result : = CUSTOM_T ITLE; | |
175 | end; | |
176 | ||
177 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enu(Sender : TObject) ; | |
178 | var | |
179 | aRec: TD elimitedSt ring; | |
180 | begin | |
181 | inherite d; | |
182 | ||
183 | aRec := ListViewIt emRec; | |
184 | ||
185 | if Assig ned(aRec) then | |
186 | begin | |
187 | // A sterick is needed fo r the Remi nderMenuBu ilder meth od. | |
188 | Remi nderMenuBu ilder(fRem inderOptio ns, aRec.G etDelimite dString, F alse, Fals e, False); | |
189 | fRem inderOptio ns.Enabled := True; | |
190 | end | |
191 | else | |
192 | fRemin derOptions .Enabled : = False; | |
193 | end; | |
194 | ||
195 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuFree(Se nder: TObj ect); | |
196 | begin | |
197 | FreeAndN il(fSepara tor); | |
198 | FreeAndN il(fRemind erOptions) ; | |
199 | inherite d; | |
200 | end; | |
201 | ||
202 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuInit(Se nder: TObj ect); | |
203 | begin | |
204 | inherite d; | |
205 | fSeparat or := NewL ine; | |
206 | fReminde rOptions : = NewItem( 'Reminders Options . ..', 0, Fa lse, False , nil, 0, 'pmnRemind erOptions' ); | |
207 | pmn.Item s.Add(fSep arator); | |
208 | pmn.Item s.Add(fRem inderOptio ns); | |
209 | end; | |
210 | ||
211 | procedure TfraCoverS heetDispla yPanel_CPR S_Reminder s.setTitle (const aVa lue: strin g); | |
212 | begin | |
213 | lblTitle .Caption : = CUSTOM_T ITLE; | |
214 | pnlWorks pace.Capti on := CUST OM_TITLE; | |
215 | end; | |
216 | ||
217 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.