Produced by Araxis Merge on 3/31/2017 10:45:42 AM 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 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | fGMV_EditUserTemplates.pas | Tue Dec 13 18:25:54 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | fGMV_EditUserTemplates.pas | Fri Mar 31 15:01:12 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 756 |
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 fGMV_ EditUserTe mplates; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 2/ 25/09 6:22 p $ | |
7 | * De veloper: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Interfac e to the t emplate ed itor for g eneral use rs. | |
11 | * | |
12 | * No tes: | |
13 | * | |
14 | ========== ========== ========== ========== ========== ========== ========== ========== | |
15 | * $A rchive: /V itals/5.0 (Version 5 .0)/5.0.23 (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/fG MV_EditUse rTemplates .pas $ | |
16 | * | |
17 | * $History : fGMV_Edi tUserTempl ates.pas $ | |
18 | * | |
19 | * ******* ********** Version 1 ******* ********** | |
20 | * User: V haishandri a Date: 8/ 12/09 T ime: 8:29a | |
21 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON | |
22 | * | |
23 | * ******* ********** Version 1 ******* ********** | |
24 | * User: V haishandri a Date: 3/ 09/09 T ime: 3:38p | |
25 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON | |
26 | * | |
27 | * ******* ********** Version 1 ******* ********** | |
28 | * User: V haishandri a Date: 1/ 13/09 T ime: 1:26p | |
29 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON | |
30 | * | |
31 | * ******* ********** Version 1 ******* ********** | |
32 | * User: V haishandri a Date: 5/ 14/07 T ime: 10:29 a | |
33 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:43p | |
37 | * Created in $/Vita ls/VITALS- 5-0-18/Vit alsCommon | |
38 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
39 | * values. | |
40 | * | |
41 | * ******* ********** Version 1 ******* ********** | |
42 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:33p | |
43 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon | |
44 | * | |
45 | * ******* ********** Version 1 ******* ********** | |
46 | * User: V haishandri a Date: 5/ 24/05 T ime: 3:33p | |
47 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, No CCOW) - Delphi 6/ VitalsComm on | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:17p | |
51 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSCOM MON | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 1/ 26/04 T ime: 1:08p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsU ser | |
56 | * | |
57 | * ******* ********** Version 1 ******* ********** | |
58 | * User: V haishandri a Date: 10 /29/03 T ime: 4:15p | |
59 | * Created in $/Vita ls503/Vita ls User | |
60 | * Version 5.0.3 | |
61 | * | |
62 | * ******* ********** Version 1 ******* ********** | |
63 | * User: V haishandri a Date: 5/ 21/03 T ime: 1:18p | |
64 | * Created in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW | |
65 | * Pre CCO W Version of Vitals User | |
66 | * | |
67 | * ******* ********** Version 6 ******* ********** | |
68 | * User: V haishandri a Date: 10 /04/02 T ime: 4:50p | |
69 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
70 | * Version T32 | |
71 | * | |
72 | * ******* ********** Version 5 ******* ********** | |
73 | * User: V haishandri a Date: 6/ 11/02 T ime: 4:48p | |
74 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
75 | * | |
76 | * ******* ********** Version 4 ******* ********** | |
77 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:14 a | |
78 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
79 | * Roll-up to 5.0.0. 27 | |
80 | * | |
81 | * ******* ********** Version 3 ******* ********** | |
82 | * User: V haishpetit d Date: 4/ 26/02 T ime: 11:33 a | |
83 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
84 | * | |
85 | * ******* ********** Version 2 ******* ********** | |
86 | * User: V haishpetit d Date: 4/ 12/02 T ime: 3:39p | |
87 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
88 | * Done fo r the week | |
89 | * | |
90 | * ******* ********** Version 1 ******* ********** | |
91 | * User: V haishpetit d Date: 4/ 04/02 T ime: 11:56 a | |
92 | * Created in $/Vita ls GUI Ver sion 5.0/V itals User | |
93 | * | |
94 | * | |
95 | ========== ========== ========== ========== ========== ========== ========== ========== | |
96 | } | |
97 | interface | |
98 | ||
99 | uses | |
100 | Windows, | |
101 | Messages , | |
102 | SysUtils , | |
103 | Classes, | |
104 | Graphics , | |
105 | Controls , | |
106 | Forms, | |
107 | Dialogs, | |
108 | ExtCtrls , | |
109 | StdCtrls , | |
110 | uGMV_Com mon, | |
111 | uGMV_Con st, | |
112 | mGMV_Edi tTemplate, Menus; | |
113 | ||
114 | type | |
115 | TfrmGMV_ EditUserTe mplates = class(TFor m) | |
116 | GroupB ox1: TGrou pBox; | |
117 | Panel1 : TPanel; | |
118 | fraGMV _EditTempl ate1: Tfra GMV_EditTe mplate; | |
119 | lbxTem plates: TL istBox; | |
120 | Panel2 : TPanel; | |
121 | Panel3 : TPanel; | |
122 | btnSav eTemplate: TButton; | |
123 | btnClo se: TButto n; | |
124 | Panel5 : TPanel; | |
125 | Panel6 : TPanel; | |
126 | Panel7 : TPanel; | |
127 | Panel8 : TPanel; | |
128 | btnDel ete: TButt on; | |
129 | btnNew Template: TButton; | |
130 | Panel4 : TPanel; | |
131 | Panel9 : TPanel; | |
132 | MainMe nu1: TMain Menu; | |
133 | Vitals 1: TMenuIt em; | |
134 | Add1: TMenuItem; | |
135 | Delete 1: TMenuIt em; | |
136 | Down1: TMenuItem ; | |
137 | Up1: T MenuItem; | |
138 | File1: TMenuItem ; | |
139 | A1: TM enuItem; | |
140 | Delete 2: TMenuIt em; | |
141 | N1: TM enuItem; | |
142 | Save1: TMenuItem ; | |
143 | Close1 : TMenuIte m; | |
144 | proced ure lbxTem platesClic k(Sender: TObject); | |
145 | proced ure btnClo seClick(Se nder: TObj ect); | |
146 | proced ure btnSav eTemplateC lick(Sende r: TObject ); | |
147 | proced ure btnNew TemplateCl ick(Sender : TObject) ; | |
148 | proced ure GetTem plates; | |
149 | proced ure btnDel eteClick(S ender: TOb ject); | |
150 | proced ure lbxTem platesEnte r(Sender: TObject); | |
151 | proced ure lbxTem platesExit (Sender: T Object); | |
152 | proced ure FormKe yDown(Send er: TObjec t; var Key : Word; | |
153 | Shif t: TShiftS tate); | |
154 | proced ure fraGMV _EditTempl ate1edtTem plateNameE nter(Sende r: TObject ); | |
155 | proced ure fraGMV _EditTempl ate1edtTem plateNameE xit(Sender : TObject) ; | |
156 | proced ure fraGMV _EditTempl ate1edtTem plateDescr iptionExit ( | |
157 | Send er: TObjec t); | |
158 | proced ure fraGMV _EditTempl ate1edtTem plateDescr iptionEnte r( | |
159 | Send er: TObjec t); | |
160 | proced ure fraGMV _EditTempl ate1lvVita lsEnter(Se nder: TObj ect); | |
161 | proced ure fraGMV _EditTempl ate1lvVita lsExit(Sen der: TObje ct); | |
162 | proced ure fraGMV _EditTempl ate1sbtnMo veUpClick( Sender: TO bject); | |
163 | proced ure fraGMV _EditTempl ate1sbtnAd dVitalClic k(Sender: TObject); | |
164 | private | |
165 | { Priv ate declar ations } | |
166 | public | |
167 | { Publ ic declara tions } | |
168 | protecte d | |
169 | proced ure CleanU p; | |
170 | proced ure CMTemp lateUpdate d(var Mess age:TMessa ge); messa ge CM_Temp lateUpdate d; //AAN 06/11/02 | |
171 | proced ure CMTemp lateRefres hed(var Me ssage:TMes sage); mes sage CM_Te mplateRefr eshed; // AAN 06/11/ 02 | |
172 | end; | |
173 | ||
174 | var | |
175 | frmEditU serTemplat e: TfrmGMV _EditUserT emplates; | |
176 | ||
177 | procedure EditUserTe mplates; | |
178 | ||
179 | implementa tion | |
180 | ||
181 | uses uGMV_ Template | |
182 | , uGMV_Eng ine; | |
183 | ||
184 | {$R *.DFM} | |
185 | ||
186 | procedure EditUserTe mplates; | |
187 | begin | |
188 | if not A ssigned(fr mEditUserT emplate) t hen | |
189 | Applic ation.Crea teForm(Tfr mGMV_EditU serTemplat es,frmEdit UserTempla te); | |
190 | ||
191 | frmEditU serTemplat e.GetTempl ates; | |
192 | frmEditU serTemplat e.ShowModa l; | |
193 | end; | |
194 | ||
195 | procedure TfrmGMV_Ed itUserTemp lates.lbxT emplatesCl ick(Sender : TObject) ; | |
196 | begin | |
197 | if lbxTe mplates.It emIndex > -1 then | |
198 | if lbx Templates. Items.Obje cts[lbxTem plates.Ite mIndex] <> nil then | |
199 | begi n | |
200 | fr aGMV_EditT emplate1.E nabled := True; | |
201 | bt nDelete.En abled := T rue; | |
202 | fr aGMV_EditT emplate1.E ditTemplat e := | |
203 | TGMV_Templ ate(lbxTem plates.Ite ms.Objects [lbxTempla tes.ItemIn dex]); | |
204 | tr y | |
205 | if Self.Vi sible then | |
206 | lbxTempl ates.SetFo cus; | |
207 | ex cept | |
208 | en d; | |
209 | end | |
210 | else | |
211 | begi n | |
212 | fr aGMV_EditT emplate1.E nabled := False; | |
213 | bt nDelete.En abled := F alse; | |
214 | fr aGMV_EditT emplate1.E ditTemplat e := nil; | |
215 | end; | |
216 | end; | |
217 | ||
218 | procedure TfrmGMV_Ed itUserTemp lates.Clea nUp; | |
219 | var | |
220 | aTemplat e:TGMV_Tem plate; | |
221 | begin | |
222 | while lb xTemplates .Items.Cou nt > 0 do | |
223 | begin | |
224 | aTem plate := T GMV_Templa te(lbxTemp lates.Item s.Objects[ 0]); | |
225 | Free AndNil(aTe mplate); | |
226 | lbxT emplates.I tems.Delet e(0); | |
227 | end; | |
228 | end; | |
229 | ||
230 | procedure TfrmGMV_Ed itUserTemp lates.GetT emplates; | |
231 | var | |
232 | i: Integ er; | |
233 | Template s: TString List; | |
234 | begin | |
235 | try | |
236 | Templa tes := Get TemplateLi stByID('US R'); | |
237 | CleanU p; | |
238 | for i := 1 to Te mplates.Co unt - 1 do | |
239 | LbxT emplates.I tems.AddOb ject(Piece (Templates [i], '^', 4), | |
240 | TG MV_Templat e.CreateFr omXPAR(Tem plates[i]) ); | |
241 | finally | |
242 | FreeAn dNil(Templ ates); | |
243 | end; | |
244 | if lbxTe mplates.It ems.Count > 0 then | |
245 | begin | |
246 | lbxT emplates.S elected[0] := True; | |
247 | lbxT emplatesCl ick(nil); | |
248 | end; | |
249 | end; | |
250 | ||
251 | procedure TfrmGMV_Ed itUserTemp lates.btnC loseClick( Sender: TO bject); | |
252 | begin | |
253 | fraGMV_E ditTemplat e1.SaveTem plateIfCha nged;//AAN 06/11/02 | |
254 | CleanUp; | |
255 | Close; | |
256 | end; | |
257 | ||
258 | procedure TfrmGMV_Ed itUserTemp lates.btnS aveTemplat eClick(Sen der: TObje ct); | |
259 | var | |
260 | i: Integ er; | |
261 | begin | |
262 | i := lbx Templates. ItemIndex; | |
263 | fraGMV_E ditTemplat e1.SaveTem plate; | |
264 | GetTempl ates; | |
265 | lbxTempl ates.ItemI ndex := i; | |
266 | lbxTempl atesClick( nil); | |
267 | end; | |
268 | ||
269 | procedure TfrmGMV_Ed itUserTemp lates.btnN ewTemplate Click(Send er: TObjec t); | |
270 | begin | |
271 | CreateNe wUserTempl ate; | |
272 | GetTempl ates; | |
273 | end; | |
274 | ||
275 | procedure TfrmGMV_Ed itUserTemp lates.btnD eleteClick (Sender: T Object); | |
276 | var | |
277 | s: Strin g; | |
278 | begin | |
279 | if Messa geDlg('Del ete Templa te ' + lbx Templates. Items[lbxT emplates.I temIndex] + '?', | |
280 | mtConf irmation, [mbYes, mb No], 0) = mrYes then | |
281 | begin | |
282 | s := deleteUse rTemplate( lbxTemplat es.Items[l bxTemplate s.ItemInde x]); | |
283 | if P iece(s, '^ ', 1) <> ' -1' then | |
284 | be gin | |
285 | fraGMV_Edi tTemplate1 .EditTempl ate := nil ; | |
286 | TGMV_Templ ate(lbxTem plates.Ite ms.Objects [lbxTempla tes.ItemIn dex]).Free ; | |
287 | lbxTemplat es.Items.D elete(lbxT emplates.I temIndex); | |
288 | en d | |
289 | else | |
290 | Me ssageDlg(' Unable to delete tem plate ' + Piece(s, ' ^', 2, 3), mtError, [mbOk], 0) ; | |
291 | end; | |
292 | end; | |
293 | ||
294 | //AAN 06/1 1/02 ----- ---------- ---------- ---------- ---------- ---------- --- Begin | |
295 | procedure TfrmGMV_Ed itUserTemp lates.CMTe mplateUpda ted(var Me ssage: TMe ssage); | |
296 | begin | |
297 | btnSaveT emplate.En abled := T rue; | |
298 | end; | |
299 | ||
300 | procedure TfrmGMV_Ed itUserTemp lates.CMTe mplateRefr eshed(var Message: T Message); | |
301 | begin | |
302 | btnSaveT emplate.En abled := F alse; | |
303 | end; | |
304 | //AAN 06/1 1/02 ----- ---------- ---------- ---------- ---------- ---------- ----- End | |
305 | procedure TfrmGMV_Ed itUserTemp lates.lbxT emplatesEn ter(Sender : TObject) ; | |
306 | begin | |
307 | GroupBox 1.Font.Sty le := [fsB old]; | |
308 | lbxTempl ates.Color := clInfo Bk; | |
309 | end; | |
310 | ||
311 | procedure TfrmGMV_Ed itUserTemp lates.lbxT emplatesEx it(Sender: TObject); | |
312 | begin | |
313 | GroupBox 1.Font.Sty le := []; | |
314 | lbxTempl ates.Color := clwind ow; | |
315 | end; | |
316 | ||
317 | procedure TfrmGMV_Ed itUserTemp lates.Form KeyDown(Se nder: TObj ect; | |
318 | var Key: Word; Shi ft: TShift State); | |
319 | begin | |
320 | if Key = VK_ESCAPE then | |
321 | ModalR esult := m rCancel; | |
322 | end; | |
323 | ||
324 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateNam eEnter( | |
325 | Sender: TObject); | |
326 | begin | |
327 | fraGMV_E ditTemplat e1.edtTemp lateNameEn ter(Sender ); | |
328 | fraGMV_E ditTemplat e1.edtTemp lateName.C olor := cl InfoBk; | |
329 | end; | |
330 | ||
331 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateNam eExit( | |
332 | Sender: TObject); | |
333 | begin | |
334 | fraGMV_E ditTemplat e1.edtTemp lateNameEx it(Sender) ; | |
335 | fraGMV_E ditTemplat e1.edtTemp lateName.C olor := cl Window; | |
336 | end; | |
337 | ||
338 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateDes criptionEx it( | |
339 | Sender: TObject); | |
340 | begin | |
341 | fraGMV_E ditTemplat e1.edtTemp lateDescri ptionExit( Sender); | |
342 | fraGMV_E ditTemplat e1.edtTemp lateDescri ption.Colo r := clWin dow; | |
343 | end; | |
344 | ||
345 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateDes criptionEn ter( | |
346 | Sender: TObject); | |
347 | begin | |
348 | fraGMV_E ditTemplat e1.edtTemp lateDescri ptionEnter (Sender); | |
349 | fraGMV_E ditTemplat e1.edtTemp lateDescri ption.Colo r := clInf oBk; | |
350 | end; | |
351 | ||
352 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1lvVi talsEnter( | |
353 | Sender: TObject); | |
354 | begin | |
355 | fraGMV_E ditTemplat e1.lvVital sEnter(Sen der); | |
356 | fraGMV_E ditTemplat e1.lvVital s.Color := clInfoBk; | |
357 | end; | |
358 | ||
359 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1lvVi talsExit( | |
360 | Sender: TObject); | |
361 | begin | |
362 | fraGMV_E ditTemplat e1.lvVital sExit(Send er); | |
363 | fraGMV_E ditTemplat e1.lvVital s.Color := clWindow; | |
364 | end; | |
365 | ||
366 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1sbtn MoveUpClic k( | |
367 | Sender: TObject); | |
368 | begin | |
369 | fraGMV_E ditTemplat e1.acUpExe cute(Sende r); | |
370 | end; | |
371 | ||
372 | procedure TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1sbtn AddVitalCl ick( | |
373 | Sender: TObject); | |
374 | begin | |
375 | fraGMV_E ditTemplat e1.acAddEx ecute(Send er); | |
376 | end; | |
377 | ||
378 | end. | |
379 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.