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_Splash.pas | Tue Dec 13 18:25:52 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | fGMV_Splash.pas | Fri Mar 31 15:01:18 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 330 |
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_ Splash; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals M anager | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 3/ 10/08 11:2 8a $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Generic splash for m | |
11 | * | |
12 | * No tes: | |
13 | * | |
14 | * | |
15 | ========== ========== ========== ========== ========== ========== ========== ========== | |
16 | * $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_Splash. pas $ | |
17 | * | |
18 | * $History : fGMV_Spl ash.pas $ | |
19 | * | |
20 | * ******* ********** Version 1 ******* ********** | |
21 | * User: V haishandri a Date: 8/ 12/09 T ime: 8:29a | |
22 | * 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 | |
23 | * | |
24 | * ******* ********** Version 1 ******* ********** | |
25 | * User: V haishandri a Date: 3/ 09/09 T ime: 3:38p | |
26 | * 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 | |
27 | * | |
28 | * ******* ********** Version 1 ******* ********** | |
29 | * User: V haishandri a Date: 1/ 13/09 T ime: 1:26p | |
30 | * 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 | |
31 | * | |
32 | * ******* ********** Version 2 ******* ********** | |
33 | * User: V haishandri a Date: 3/ 10/08 T ime: 4:34p | |
34 | * Updated in $/Vita ls Source/ Vitals/VIT ALSCOMMON | |
35 | * 5.0.22. 5 Internal version 6 | |
36 | * | |
37 | * ******* ********** Version 1 ******* ********** | |
38 | * User: V haishandri a Date: 5/ 14/07 T ime: 10:29 a | |
39 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON | |
40 | * | |
41 | * ******* ********** Version 1 ******* ********** | |
42 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:43p | |
43 | * Created in $/Vita ls/VITALS- 5-0-18/Vit alsCommon | |
44 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
45 | * values. | |
46 | * | |
47 | * ******* ********** Version 1 ******* ********** | |
48 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:33p | |
49 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon | |
50 | * | |
51 | * ******* ********** Version 1 ******* ********** | |
52 | * User: V haishandri a Date: 5/ 24/05 T ime: 3:33p | |
53 | * 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 | |
54 | * | |
55 | * ******* ********** Version 1 ******* ********** | |
56 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:17p | |
57 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSCOM MON | |
58 | * | |
59 | * | |
60 | ========== ========== ========== ========== ========== ========== ========== ========== | |
61 | } | |
62 | ||
63 | interface | |
64 | ||
65 | uses | |
66 | Windows, | |
67 | Messages , | |
68 | SysUtils , | |
69 | Classes, | |
70 | Graphics , | |
71 | Controls , | |
72 | Forms, | |
73 | Dialogs, | |
74 | StdCtrls , | |
75 | ExtCtrls , | |
76 | ComCtrls , jpeg; | |
77 | ||
78 | type | |
79 | TfrmGMV_ Splash = c lass(TForm ) | |
80 | Panel2 : TPanel; | |
81 | Image1 : TImage; | |
82 | Panel1 : TPanel; | |
83 | lblVer sion: TLab el; | |
84 | lblDev elopedAt: TLabel; | |
85 | lblRel easeDate: TLabel; | |
86 | lblMes sage: TLab el; | |
87 | pnlPat ch: TPanel ; | |
88 | lblpat ch: TLabel ; | |
89 | lblSec urity: TLa bel; | |
90 | proced ure FormCr eate(Sende r: TObject ); | |
91 | proced ure FormSh ow(Sender: TObject); | |
92 | private | |
93 | { Priv ate declar ations } | |
94 | public | |
95 | proced ure Update Message(Ne wMessage: string; St ep: intege r = 0); | |
96 | { Publ ic declara tions } | |
97 | end; | |
98 | ||
99 | var | |
100 | GMVSplas h: TfrmGMV _Splash; | |
101 | ||
102 | implementa tion | |
103 | ||
104 | uses fGMV_ AboutDlg, uGMV_Versi onInfo; | |
105 | ||
106 | {$R *.DFM} | |
107 | ||
108 | procedure TfrmGMV_Sp lash.FormC reate(Send er: TObjec t); | |
109 | var | |
110 | version: string; | |
111 | patch: s tring; | |
112 | released ate: strin g; | |
113 | testvers ion: Boole an; | |
114 | sproduct name: stri ng; | |
115 | begin | |
116 | with TVe rsionInfo. Create(Sel f) do | |
117 | try | |
118 | vers ion := VAS erverVersi on; | |
119 | patc h := VAPat chNumber; | |
120 | rele asedate := VARelease Date; | |
121 | test version := VATestVer sion; | |
122 | spro ductname : = ProductN ame; | |
123 | finall y | |
124 | free ; | |
125 | end; | |
126 | ||
127 | lblVersi on.Caption := 'Versi on: ' + ve rsion; | |
128 | ||
129 | lblPatch .Caption : = ''; | |
130 | pnlPatch .Visible : = (testver sion or (p atch <> '' )); | |
131 | if patch <> '' the n | |
132 | lblPat ch.Caption := 'Patch ' + patch + ' '; | |
133 | ||
134 | if testv ersion the n | |
135 | lblPat ch.Caption := 'Test Release ' + lblPatch .Caption; | |
136 | ||
137 | lblRelea seDate.Cap tion := re leasedate; | |
138 | // lblIns et.Caption := sprodu ctname; | |
139 | // lblSha dow.Captio n := sprod uctname; | |
140 | // lblIns et.Font.Co lor := clA ctiveCapti on; | |
141 | // lblSha dow.Font.C olor := cl btnHighlig ht; | |
142 | // lblSha dow.Left : = lblInset .Left + 1; | |
143 | // lblSha dow.Top := lblInset. Top + 1; | |
144 | // Positi on := poSc reenCenter ; | |
145 | // pbStat us.Visible := False; | |
146 | Show; | |
147 | Applicat ion.Proces sMessages; | |
148 | end; | |
149 | ||
150 | procedure TfrmGMV_Sp lash.Updat eMessage(N ewMessage: string; S tep: integ er = 0); | |
151 | begin | |
152 | lblMessa ge.Caption := NewMes sage; | |
153 | // pbStat us.Positio n := Step; | |
154 | // pbStat us.Visible := (Step > 0); | |
155 | Refresh; | |
156 | end; | |
157 | ||
158 | procedure TfrmGMV_Sp lash.FormS how(Sender : TObject) ; | |
159 | begin | |
160 | left := (Screen.Wi dth - widt h) div 2; | |
161 | top := ( Screen.Hei ght-Height )div 2; | |
162 | invalida te; | |
163 | end; | |
164 | ||
165 | end. | |
166 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.